تایم اجرای روال

[مملی2002]

من یه راهی میخوام تا بتونم بفهمم که یک روال چقدر برای اجرا زمان نیاز داره

به عنوان مثال یک روال داریم که به کمکش چندین عملیات محاسباتی رو انجام می دیم

از تایمر استفاده کردم جواب نداد چون صفر بر می گردونه

می دونم که خیلی ناچیزه ولی خوب بهش اجتیاج دارم

ممنون از همه شما

[xxxxx_xxxxx]

در شروع روال بنویسید print Timer و در آخرش هم دوباره بنویسید print Timer
اختلاف این دو عدد میشه مدت زمانی که طول کشیده تا دستورات داخل اون زوال اجرا بشه. (به میلی ثانیه)

البته این زمان به منابع سیستم شما و برنامه های در حال اجرا بستگی داره. یعنی نمیشه دقیقاً گفت که فلان دستور 1 میلی ثانیه طول میکشه تا اجرا شه و فلان دستور 2 میلی ثانیه.

موفق باشید/

[مملی2002]

1- این تایمر از کجا عددشو میاره ؟؟؟

2- بازم به نتیجه ی صفر خواهیم رسید !!!

برای من اون مقدار ناچیز زمانی که صرف انجام کار میشه مهمه حتی اگر خیلی خیلی ناچیزو کم باشه

[xxxxx_xxxxx]

1- این تایمر از کجا عددشو میاره ؟؟؟این تایمر عددی‌ست نشان دهنده مدت زمانی که سیستم شروع به کار کرده.


2- بازم به نتیجه ی صفر خواهیم رسید !!! اینو تست کنید:


Private Sub Command1_Click()
Print Timer
x = Timer
For i = 1 To 100
Me.Caption = i
Next i
y = Timer
Print Timer
MsgBox y - x
End Sub