زمان به صورت میکروثانیه

[mah.yar]

من میخوام تعیین کنم که مدت زمان اجرای یه حلقه For چقدره.
با توجه به اینکه مدتش به ثانیه نمیرسه و چیزی حدود چند میلی ثانیه یا شایدم میکرو ثانیه است چطوری میتونم این زمان رو به میکرو ثانیه بیان کنم؟

[__siavash__]

My.Computer.Clock.TickCount

این قطعه کد زمان سپری شده رو نسبت به ساعت 12 شب بر حسب میلی ثانیه برمیگردونه که ابتدای حلقه این مقدار رو درون یه متغییر قرار میدی و در پایان حلقه این مقدار رو از مقداری که همین کد دوباره در پایانه حلقه برمیگردونه کم میکنی !!!

[Sub Zero]

دوست عزیز اگه سری به تاپیک Code Sample می زدی جوابت رو می گرفتی اما همین جا کدش رو برات می نویسم .

Dim Time As New Diagnostics.Stopwatch
Time.Start()
for i as int32= 1 to value
.....
.....
next
Time.Stop()
MsgBox(Time.ElapsedMilliseconds)
این تیکه کد رو میتونی هر جای برنامت برای چک کردن مدت زمان اجرا استفاده کنی .
به نقل از Amir Asjadi

[__siavash__]

البته کد دوستمون Sub Zero دات نتی تره اما دستور

My.Computer.Clock.TickCount

که معادل دستور Timer در VB6 هستش رو هم به این صورت میتونی استفاده کنی!

Dim Start As Integer
Dim Finish As Integer
Start = My.Computer.Clock.TickCount
For i As Int32 = 1 To 100
Me.Text = i
'Do Nothing
Next
Finish = My.Computer.Clock.TickCount
MsgBox(Finish - Start)