Coding VB.net Stopwatch

Public Class Form1
    Dim selisih1, selisih2, a, b, a2, b2, a3, b3, no, test, test2 As Integer
    'a,a2,a3 = variable untuk menit
    'b,b2,b3 = variable untuk detik
    'no = nomor urut lap
    'test,test2 = untuk variable
    'selisih1,selisih2 = untuk menghitung selisih
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' memformat tampilan pada saat load
        tmrTimer.Interval = 100
        lblStopwatch.Text = Format(a, "00") & ":" & Format(b, "00")
        BtnLap.Enabled = False
        btnStop.Enabled = False
        lstLap.Items.Add(Space(2) & "Lap" & Space(15) & "Awal" & Space(15) & "Akhir" & Space(15) & "Selisih")
        lstLap.Items.Add(StrDup(60, "="))
    End Sub


    Private Sub tmrTimer_Tick(sender As Object, e As EventArgs) Handles tmrTimer.Tick
        'Membuat Stopwatch
        b += 1
        If b = 60 Then
            a += 1
            b = 0
        End If
        lblStopwatch.Text = Format(a, "00") & ":" & Format(b, "00")
    End Sub

    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
        'Memulai Stopwatch
        a = 0
        b = 0
        a2 = 0
        b2 = 0
        a3 = 0
        b3 = 0
        no = 0
        btnStop.Enabled = True
        BtnLap.Enabled = True
        btnStart.Enabled = False
        lstLap.Items.Clear()
        lstLap.Items.Add(Space(2) & "Lap" & Space(15) & "Awal" & Space(15) & "Akhir" & Space(15) & "Selisih")
        lstLap.Items.Add(StrDup(60, "="))
        tmrTimer.Start()
    End Sub


    Private Sub BtnLap_Click(sender As Object, e As EventArgs) Handles BtnLap.Click
        'Membuat New Lap Stopwatch
        selisih1 = a - a2
        selisih2 = b - b2
        If b < b2 Then
            b3 = 60 + b
            test2 = b3 - b2
            selisih2 = test2
            a3 = a - 1
            test = a3 - a2
            selisih1 = test
        End If
        tmrTimer.Stop()
        no += 1
        lstLap.Items.Add(Space(3) & no & Space(17) & Format(a2, "00") & ":" & Format(b2, "00") & Space(14) & Format(a, "00") & ":" & Format(b, "00") & Space(15) & Format(selisih1, "00") & ":" & Format(selisih2, "00"))
        a2 = a
        b2 = b
        b3 = b2
        a3 = a2
        a = a3
        b = b3
        tmrTimer.Start()
    End Sub

    Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
        'Menghentikan Stopwatch
        BtnLap.Enabled = False
        btnStop.Enabled = False
        selisih1 = a - a2
        selisih2 = b - b2
        If b < b2 Then
            b3 = 60 + b
            test2 = b3 - b2
            selisih2 = test2
            a3 = a - 1
            test = a3 - a2
            selisih1 = test
        End If
        no += 1
        lstLap.Items.Add(Space(3) & no & Space(17) & Format(a2, "00") & ":" & Format(b2, "00") & Space(14) & Format(a, "00") & ":" & Format(b, "00") & Space(15) & Format(selisih1, "00") & ":" & Format(selisih2, "00"))
        a2 = a
        b2 = b
        b3 = b2
        a3 = a2
        a = a3
        b = b3
        tmrTimer.Stop()
        btnStart.Enabled = True
        btnStart.Focus()
    End Sub
End Class

Comments