Countdown / Timer

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Eisvogel.

    1 Textbox
    1 Button
    1 Timer

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim count As Integer
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. count = textbox1.text
    5. Timer1.Interval = 1000
    6. Timer1.Start()
    7. End Sub
    9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. End Sub
    13. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    14. count = count - 1
    15. Label1.Text = "Noch " & count & " Sekunden."
    16. If count = 0 Then
    17. Label1.Text = "Ende."
    18. Timer1.Stop()
    19. End If
    20. End Sub
    21. End Class

    Müsste eigentlich selbsterklärend sein.

    Ich weiß es ist schon lang her ....
    Aber ich habe das mit dem Countdown jetzt mal etwas einfacher gestaltet:

    Quellcode

    1. Private Sub Countdown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. If CheckBox18.Checked = True Then
    3. Dim Time As New DateTime
    4. Time = DateTime.Parse(MaskedTextBox2.Text)
    5. Time = Time.AddSeconds(-1)
    6. MaskedTextBox2.Text = Time.ToLongTimeString
    7. End If
    8. End Sub


    Das einzige was noch fehlt sind Millisekunden.
    Vlt hat ja jemand eine Idee, wie ich das noch hinbekomme.

Facebook
Telefonspende