в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:54:32Z

1 версия

Новая страница

==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>
<pre class=codeResult>Elapsed milliseconds: 1001
Number of updates per second: 1001</pre>

==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>
<pre class=codeResult>testWatch.Elapsed.Seconds: 2
testWatch.Elapsed.TotalSeconds: 2.2114405
testWatch.ElapsedMilliseconds / 1000: 2.211</pre>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Date Time/Stopwatch - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия