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

[قبلاوي]

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

[AZPC]

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
...

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

[malinofski]

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

[aya brea]

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

[AZPC]

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

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

[UUNUU]

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

[أبو هاجر الحلوة]

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

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

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

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

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

[The Coder]

شطار ..... ^^