Tipp 0193 Zeit exakt messen
Autor/Einsender:
Datum:
  Michael Werner
06.07.2009
Entwicklungsumgebung:   VB.Net 2008
Framework:   2.0
Mit der neuen Stopwatch-Klasse in Visual Studio 2008 kann die verstrichene Zeit exakt gemessen werden. Mit Klassen-Members wie Start, Stop, IsRunning, Reset, ElapsedMilliseconds etc. ist die Zeitmessung sehr einfach zu handhaben.
 
Imports System.Globalization  'CulturInfo

Public Class Form1

  Private myTimer As Timer
  Private myStopwatch As New Stopwatch
  Dim paused As Boolean = False

  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
    Label1.Text = "Verstrichene Zeit:"
    Label2.Text = "Stunden:Minuten:Sekunden.Millisekunden"

    myTimer = New Timer
    myTimer.Interval = 100
    AddHandler myTimer.Tick, AddressOf myTimer_Tick
    myTimer.Start()
  End Sub

  Private Sub myTimer_Tick(ByVal sender As System.Object, _
          ByVal e As System.EventArgs)
     'Vertsrichene Zeit
    If myStopwatch.IsRunning Then
      Dim ts As TimeSpan = _
         TimeSpan.FromMilliseconds(myStopwatch.ElapsedMilliseconds)
      lblPastedTime.Text = _
         String.Format(CultureInfo.CurrentCulture, _
         "{0:00}:{1:00}:{2:00}.{3:00}", ts.Hours, ts.Minutes, _
         ts.Seconds, ts.Milliseconds)
    End If
  End Sub

  Private Sub btnStartStop_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnStartStop.Click
    If myStopwatch.IsRunning Then
      If chkboxReset.Checked = False Then
          ' Zeitmessung auf 0 setzen
         myStopwatch.Reset()
      End If

      myStopwatch.Stop()
      Console.Beep()
      btnStartStop.Text = "Start"
    Else
      If chkboxReset.Checked = False Then
        ' Zeitmessung auf 0 setzen
        myStopwatch.Reset()
      End If

      myStopwatch.Start()
      btnStartStop.Text = "Stop"
    End If
  End Sub

End Class
 
Weitere Links zum Thema
Zeitmessung mit TimeSpan (Countdown)
Genaue Zeitmessung

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (18 kB) Downloads bisher: [ 342 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 10. Januar 2012