Countdown

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von FlashGarden.

    Countdown

    Hi,

    ich bin absolut neu hier und habe mich im Rahmen meines Studiums mit VB 2005 beschäftigt. Jetzt wollte ich gerne einen Countdown erstellen, der von heute ab (also vom Programmierdatum ab) die Tage bis zu meinem Ägyptenurlaub abwärts zählt (29.02.2008). Möglichst mit der Angabe von verbleibenden Tagen, Stunden, Minuten und Sekunden :)
    Ich habe mir gedacht dass das Programm die Tage in einem Label ausgeben soll.
    Kann mir da jemand helfen? :?:

    Grüße,
    Flash

    PS: Ich habe schon die Suchfunktion benutzt, allerdings nur einen Code für VB6 oder älter gefunden, welcher aber nicht funktioniert :(

    Super, danke!
    Das hat mir weiter geholfen :)

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim TSpan As New TimeSpan
    3. Dim CountDownDT As DateTime = #2/29/2008 2:20:00 AM#
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. Timer1.Start()
    7. If DateTime.Now < CountDownDT Then
    8. Label7.Text = Me.Text
    9. Label8.Text = "Samstag 29.02.2008, 02.30 Uhr"
    10. Label9.Text = "Noch..."
    11. Me.Text = "Countdown bis zum Abflug nach El Gouna"
    12. End If
    13. End Sub
    15. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    17. TSpan = CountDownDT.Subtract(DateTime.Now)
    19. Label1.Text = CStr(TSpan.Days) & " Tage"
    20. Label2.Text = CStr(TSpan.Hours) & " Stunden"
    21. Label3.Text = CStr(TSpan.Minutes) & " Minuten"
    22. Label4.Text = CStr(TSpan.Seconds) & " Sekunden"
    23. End Sub
    24. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    25. Me.Close()
    26. End Sub
    27. End Class


    So funktioniert das wunderbar :)