Timer countdown

 avatar
unknown
plain_text
3 months ago
950 B
4
Indexable
Public Class Form1
    Dim countdown As Integer = 5 * 60 'Amount of minutes in seconds

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        UpdateLabel()
        Timer1.Interval = 1000 'This is equal to 1 sec
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If countdown > 0 Then
            countdown -= 1
            UpdateLabel()
        Else
            Timer1.Stop()
            MessageBox.Show("STUPID CREATURE!")
        End If
    End Sub

    Private Sub UpdateLabel()
        Dim minutes As Integer = countdown \ 60
        Dim seconds As Integer = countdown Mod 60
        Label1.Text = minutes.ToString("00") & ":" & seconds.ToString("00") 'for proper minutes:seconds format
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
End Class
Editor is loading...
Leave a Comment