Lesson 32: Mastering Timer Control in VB2022

Private Sub ConfigureTimer()
    ' Set timer interval to 1 second (1000ms)
    Timer1.Interval = 1000
    
    ' Start the timer
    Timer1.Start()
    
    ' Alternatively, set Enabled property
    ' Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ' Code to execute every second
    LblStatus.Text = "Timer ticked at " & DateTime.Now.ToString("HH:mm:ss")
End Sub

Public Class ClockForm
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Configure timer for 1-second intervals
        Timer1.Interval = 1000
        Timer1.Enabled = True
        
        ' Display initial time
        LblClock.Text = DateTime.Now.ToString("HH:mm:ss")
    End Sub
    
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ' Update time display
        LblClock.Text = DateTime.Now.ToString("HH:mm:ss")
        
        ' Optional: Change color every second
        Dim rnd As New Random()
        LblClock.ForeColor = Color.FromArgb(rnd.Next(256), rnd.Next(256), rnd.Next(256))
    End Sub
End Class

Public Class StopwatchForm
    Private elapsedTime As TimeSpan = TimeSpan.Zero
    
    Private Sub BtnStart_Click(sender As Object, e As EventArgs) Handles BtnStart.Click
        Timer1.Interval = 10 ' 10ms for millisecond precision
        Timer1.Start()
        BtnStart.Enabled = False
        BtnStop.Enabled = True
    End Sub
    
    Private Sub BtnStop_Click(sender As Object, e As EventArgs) Handles BtnStop.Click
        Timer1.Stop()
        BtnStart.Enabled = True
        BtnStop.Enabled = False
    End Sub
    
    Private Sub BtnReset_Click(sender As Object, e As EventArgs) Handles BtnReset.Click
        Timer1.Stop()
        elapsedTime = TimeSpan.Zero
        UpdateDisplay()
        BtnStart.Enabled = True
        BtnStop.Enabled = False
    End Sub
    
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        elapsedTime = elapsedTime.Add(TimeSpan.FromMilliseconds(Timer1.Interval))
        UpdateDisplay()
    End Sub
    
    Private Sub UpdateDisplay()
        LblDisplay.Text = $"{elapsedTime.Hours:00}:{elapsedTime.Minutes:00}:{elapsedTime.Seconds:00}.{elapsedTime.Milliseconds \ 10:00}"
    End Sub
End Class