Tipp 0017 Stoppuhr
Autor/Einsender:
Datum:
  Michael Werner
18.06.2003
Entwicklungsumgebung:   VB.Net 2002
Framework:   1.0
Die TimeSpan-Struktur im Namespace System stellt ein Zeitintervall dar. Der Wert einer Instanz von TimeSpan entspricht der in der Instanz enthaltenen Anzahl von Ticks im Bereich von Int64.MinValue bis Int64.MaxValue. Ein Tick ist die kleinste Zeiteinheit, die angegeben werden kann, und entspricht 100 Nanosekunden. Die angegebene Anzahl von Ticks und der Wert von TimeSpan kann positiv oder negativ sein.
In diesem Tipp wird TimeSpan dazu genutzt, um eine Stoppuhr mit Millisekunden, Sekunden, Minuten, Stunden und Tagen zu erhalten.
 
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Dim DiffZeit As Date
  Dim TSpan As TimeSpan

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Enabled = True
    DiffZeit = DateTime.Now
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Timer1.Enabled = False
  End Sub

  Private Sub Timer1_Tick(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Timer1.Tick
    TSpan = DateTime.Now.Subtract(DiffZeit)
    Label1.Text = TSpan.Days & ":" & TSpan.Hours & ":" & _
             TSpan.Minutes & ":" & TSpan.Seconds & ":" & _
             TSpan.Milliseconds
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button3.Click
    Me.Close()
  End Sub
End Class
 
Links zum Thema
Genaue Zeitmessung
Zeitmessung mit TimeSpan (Countdown)

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


Download  (6,1 kB) Downloads bisher: [ 2189 ]

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: Samstag, 21. Januar 2012