VB.Net Tutorial/Date Time/Stopwatch
StopWatch: ElapsedMilliseconds
<source lang="vbnet">Public Class Tester
Public Shared Sub Main Dim lastMillis As Long Dim numMillis As Long Dim testWatch As New System.Diagnostics.Stopwatch Dim endTime As Date Dim results As String endTime = Now.AddSeconds(1) testWatch.Start() Do If (testWatch.ElapsedMilliseconds <> lastMillis) Then numMillis += 1 lastMillis = testWatch.ElapsedMilliseconds End If Loop Until (Now > endTime) results = "Elapsed milliseconds: " & _ testWatch.ElapsedMilliseconds.ToString & vbNewLine & _ "Number of updates per second: " & numMillis.ToString Console.WriteLine(results) End Sub
End Class</source>
Elapsed milliseconds: 1001 Number of updates per second: 1001
Use StopWatch
<source lang="vbnet">Public Class Tester
Public Shared Sub Main Dim testWatch As New System.Diagnostics.Stopwatch Dim results As String " ----- Start counting. testWatch.Start() MsgBox("Press OK to see elapsed seconds") " ----- Stop and record. results = String.Format( _ "testWatch.Elapsed.Seconds: {0}{3}" & _ "testWatch.Elapsed.TotalSeconds: {1}{3}" & _ "testWatch.ElapsedMilliseconds / 1000: {2}", _ testWatch.Elapsed.Seconds, _ testWatch.Elapsed.TotalSeconds, _ testWatch.ElapsedMilliseconds / 1000, vbNewLine) Console.WriteLine(results) End Sub
End Class</source>
testWatch.Elapsed.Seconds: 2 testWatch.Elapsed.TotalSeconds: 2.2114405 testWatch.ElapsedMilliseconds / 1000: 2.211