Tipp 0120 Zeitmessung mit TimeSpan (Countdown)
Autor/Einsender:
Datum:
  Michael Werner
17.05.2006
Entwicklungsumgebung:   VB 2005
Framework:   2.0
Dieser Tipp demonstriert, wie man mit der TimeSpan-Klasse eine Zeitdifferenz, in diesem Fall ein CountDown in Tagen, Stunden, Minuten usw. darstellen kann. Aktuell wird der CountDown zum Eröffnungsspiel der WM 2006 angezeigt. Wird dieser Termin überschritten, wird ein negativer "CountDown" von diesem Zeitpunkt durchgeführt.
Weiterhin zeigt dieser Tipp:
 -   Genaues Datum + Zeit vorgeben
 -   Datumsangaben vergleichen, vor oder hinter Datum + Zeit
 -   Zahlen formatieren: Auffüllen mit vorangestellten Nullen
 -   Url aufrufen mit Webbrowser-Steuerelement
 
  Dim TSpan As New TimeSpan
  Dim CountDownDT As DateTime = #6/9/2006 6:00:00 PM#

  Private Sub Form1_Load(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles MyBase.Load

    Timer1.Start()
    If DateTime.Now < CountDownDT Then
      Label7.Text = Me.Text
      Label8.Text = "Freitag 09.06. 2006, 18.00 Uhr"
      Label9.Text = "Noch..."
      Me.Text = "CountDown bis Eröffnungsspiel WM2006:  " & _
            CStr(CountDownDT)
    Else
      Label7.Text = "Zeit vergangen nach Eröffnungspiel WM2006:  "
      Label8.Text = "Freitag 09.06. 2006, 18.00 Uhr"
      Label9.Text = "Seither..."
      Me.Text = """ountDown"" seit Eröffnungsspiel WM2006:  " & _
            CStr(CountDownDT)
      Button1.Visible = False
    End If
  End Sub

  Private Sub Timer1_Tick(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Timer1.Tick

    TSpan = CountDownDT.Subtract(DateTime.Now)

    Label1.Text = CStr(TSpan.Days) & " Tage"
    Label2.Text = CStr(TSpan.Hours) & " Stunden"
    Label3.Text = CStr(TSpan.Minutes) & " Minuten"
    Label4.Text = CStr(TSpan.Seconds) & " Sekunden"
    Label5.Text = Format(TSpan.Milliseconds, "000") & _
          " Millisekunden"
    Label6.Text = CStr(TSpan.Ticks) & " Ticks"
  End Sub
 
Weitere Links zum Thema
Genaue Zeitmessung
Stoppuhr
Zeit exakt messen (Stopwatch)

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


Download  (20,5 kB) Downloads bisher: [ 1108 ]

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: Montag, 25. Januar 2012