Stopwatch
Berikut ini cara membuat aplikasi stopwatch atau aplikasi penghitung waktu yang sederhana menggunakan Visual Basic.
Buat Project baru dengan sebuah Form. Masukkan ke
dalam Form tersebut 1 kontrol Label, 2 kontrol Tombol / Button (utk
Start dan Reset), dan 1 buah kontrol Timer (Enabled=False; Interval=10).
Kemudian atur seperti gambar diatas, dan bagian kodenya adalah :
[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :
Dim Jam As Integer, Menit As Integer, Detik As Integer, mDetik As Integer
Di bagian 'Form_Load' ketikkan :
Label1.Caption = "00 : 00 : 00,00"
Di bagian 'Command1_Click' ketikkan : (Start)
Timer1.Enabled = (Command1.Caption = "Start")
Command1.Caption = IIf(Command1.Caption = "Start", "Stop", "Start")
Di bagian 'Command2_Click' ketikkan : (Reset)
Timer1.Enabled = False
Command1.Caption = "Start"
Label1.Caption = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0
Di bagian 'Timer1_Timer' ketikkan :
mDetik = mDetik + 1
If mDetik = 100 Then
mDetik = 0
Detik = Detik + 1
If Detik = 60 Then
Detik = 0
Menit = Menit + 1
If Menit = 60 Then
Menit = 0
Jam = Jam + 1
End If
End If
End If
Label1.Caption = Format(Jam, "00") & " : " & Format(Menit, "00")
& " : " & Format(Detik, "00") & "," & Format(mDetik,
"00")
[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :
Dim Jam, Menit, Detik, mDetik As Integer
Di bagian 'Form1_Load' ketikkan :
Label1.Text = "00 : 00 : 00,00"
Di bagian 'Button1_Click' ketikkan : (Start)
Timer1.Enabled = (Button1.Text = "Start")
Button1.Text = IIf(Button1.Text = "Start", "Stop", "Start")
Di bagian 'Button2_Click' ketikkan : (Reset)
Timer1.Enabled = False
Button1.Text = "Start"
Label1.Text = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0
Di bagian 'Timer1_Tick' ketikkan :
mDetik += 1
If mDetik = 100 Then
mDetik = 0
Detik += 1
If Detik = 60 Then
Detik = 0
Menit += 1
If Menit = 60 Then
Menit = 0
Jam += 1
End If
End If
End If
Label1.Text = Format(Jam, "00") & " : " & Format(Menit, "00")
& " : " & Format(Detik, "00") & "," & Format(mDetik,
"00")
