Membuat Perhitungan Waktu (Stopwatch) dengan VB

Membuat sebuah perhitungan waktu yang akan menampilkan urutan jam:menit:detik:persepuluh detik. Waktu ini bisa direset, dihentikan dan dilanjutkan kembali
Persiapan :
1. Buat 1 project baru dengan 1 form, 1 timer, 1 label dan 2 commandbutton
2. Set property interval Timer menjadi 10
3. Set property enabel Timer menjadi false
4. Ketik coding berikut ke dalam editor dan module yang bersangkutan

Ketik coding berikut pada form

Dim TotaltenthDetik, TotalDetik, Tenthdetik, detik, menit, Jam As integer
Dim Jam1 as string
Private Sub Command1_Click()
‘Inisialisasi Total sepersepuluh detik
TotalTenthDetik = -1
‘Aktifkan Timer
Timer1.Enabled = True
End sub
Private sub Command2Click()
‘Memulai atau menghentikan timer kembali
Timer1.Enabled = Not Timer1.enabled
End sub
Privated Sub Timer1_timer()
‘Ta\mbah dengan satu untuk total sepersepuluh detik
‘kita mengeset interval timer menjadi 10, jadi
‘setiap sepersepuluh detik prosedur ini akan dieksekusi
TotalTenthDetik = TotalTenthDetik
‘Jika TotalTenthSeconds = 10, set kembali menjadi 0
TenthDetik = TotalTenthDetik Mod 10
TotalDetik = Int(TotalTenthDetik / 10)
Detik = TotalDetik Mod 60
If Len(Detik) = 1 Then
Detik = “0” & detik
End if
Menit = Int(TotalDetik / 60) Mod 60
If Len(menit) = 1 Then
Menit = “0” & Menit
End if
Jam = Int(TotalDetik / 3600)
If Jam < 9 Then
Jam1 = “0” & Jam
End if
Label = Jam1 & “:” & Menit & “:” & Detik & “:” & TenthDetik & “”
End Sub