Siapa yang tidak tau Stopwatch alat yang digunakan untuk menghitung waktu yang sering digunakan pada perlombaan lari jarak jauh maupu jarak pendek, sekarang kita akan mencoba membuat program Stopwatch dengan menggunakn visual basic 6.
⦁ Buatlah sebuah Prospect pada visual basi 6
⦁ Isihkan pada Form dengan 2 tombol CommandButton, 1 Label, dan 1 Timer
⦁ Ganti nama tombol Commandbutton 1 dengan Start dan CommandButton 2 dengan Stop
⦁ Beri nilai Interval pada Timer di Properties dengan angka 10
⦁ Masukkan code berikut pada Form
Dim TotalTenthDetik, TotalDetik, TenthDetik, Detik, _
Menit, Jam As Integer
Dim Jam1 As String 'Fungsi di atas adalah untuk mendeklarasikan variabel
Private Sub Command1_Click() 'Untuk menjalakan tombol CommandButton 1 saat di klik
'Inisialisasi total sepersepuluh detik
TotalTenthDetik = -1 'Aktifkan timer
Timer1.Enabled = True
End Sub
Private Sub Command2_Click() 'Untuk menjalakan tombol CommandButton 2 saat di klik
'Memulai atau menghentikan timer kembali
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Timer1_Timer() 'Untuk menjalakan fungsi Timer pada program
'Tambah dengan satu untuk total sepersepuluh detik.
'Kita mengeset interval Timer menjadi 10, jadi
'setiap sepersepuluh detik prosedur ini akan
'dieksekusi
TotalTenthDetik = TotalTenthDetik + 1 'Jika TotalTenthSeconds = 10,
'set kembali menjadi 0.
TenthDetik = TotalTenthDetik Mod 10 '10 kali sepersepuluh detik sama dengan 1 detik.
'int - akan mengembalikan bilangan integer (bulat)
'dari pecahan 'Contoh: Int(0.9) = 0 menghasilkan 0
TotalDetik = Int(TotalTenthDetik / 10) 'Jika variabel Seconds = 60, set kembali menjadi 0
Detik = TotalDetik Mod 60
If Len(Detik) = 1 Then
Detik = "0" & Detik 'Agar selalu dalam dua
'digit
End If
Menit = Int(TotalDetik / 60) Mod 60
If Len(Menit) = 1 Then
Menit = "0" & Menit 'Agar selalu dalam dua
'digit
End If
Jam = Int(TotalDetik / 3600)
If Jam < 9 Then
Jam1 = "0" & Jam 'Agar selalu dalam dua
'digit
End If 'Tampilkan hasilnya di Label1 (update terus Label1)
Label1 = Jam1 & ":" & Menit & ":" & Detik & ":" _
& TenthDetik & ""
End Sub
⦁ Selesai program Stopwatch selesai dan siap di jalankan
Selamat mencoba ^_^
