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
Post a Comment