دالة حساب زمن تنفيذ البرنامج

الى الأخوة الأعزاء أرجو أن تزودوني بدوال أو برنامج أو اجراء يقوم باحتساب زمن تنفيذ البرنامج باللغات VISUAL BASIC,C++,VC++,FORTRAN,QBASIC,PASCAL,ASSEMBLY,C

when prog load
int i = 0
timer1.enabled = true

the timer will add 1 to i every 1 sec
// the i will be the time in secondes of the prog runing time
...

,ويوجد العديد من الدوال ممكت تنفدها وتخترعها من نفسك ^.^

مشكوووووور يا غالي

السلام عليكم ورحمة الله وبركاته
حل الاخ AZPC صحيح لكن لو افترضنا بان البرنامج يحتاج الى اقل من ثانية واحدة
للتنفيذ فاعتقد انه قيمة المتغير i راح تكون صفر ولا يوجد برنامج يحتاج
الى صفر ثانية للتنفيذ (حسب اعتقادي) حتى برنامج السي الفارغ
main(){}

اقتباس:

---

المشاركة الأصلية كتبت بواسطة aya brea

السلام عليكم ورحمة الله وبركاته
حل الاخ AZPC صحيح لكن لو افترضنا بان البرنامج يحتاج الى اقل من ثانية واحدة
للتنفيذ فاعتقد انه قيمة المتغير i راح تكون صفر ولا يوجد برنامج يحتاج
الى صفر ثانية للتنفيذ (حسب اعتقادي) حتى برنامج السي الفارغ
main(){}

---

عليكم السلام ورحمة الله ، يا رجل !

مايهم اللغه اللي تكتب فيها الفكره هي انك تحسب الوقت في اول سطر و تحسب الوقت في آخر سطر وتطرحهم من بعض ويطلعلك وقت تنفيذ البرنامج

هذا الكود لحساب زمن تنفيذ أي جزء من البرنامج(إجراء,دالة إلخ....)
في قسم التصريحات

كود:

---

Private Declare Function GetTickCount Lib"kernel32" () As Long

---

و في المكان المناسب

كود:

---

Dim iStart As Long, iEnd As Long
iStart=GetTickCount()
'ضع هنا الكود الذي تريد زمن تنقيذه
iEnd = GetTickCount()
MsgBox iEnd - iStart

---

الزمن المسترجع محسوب بالجزء من الألف من الثانية

شطار ..... ^^