Cara Membuat Stopwatch dengan Visual Basic 6.0

Siapa yang tidak tahu Stopwatch alat yang digunakan untuk menghitung waktu yng sering digunakan pada perlombaan sekarang kita  akan mencoba membuat program.Stopwatch dengan menggunakan Visual basic 6.0 berikut langkah-langkahnya :



1.Buatlah project baru pada visual basic


 



2. Tambahkan Label1, Command1,  Command2, dan Timer
















3. Ganti Nama Componen Command1 menjadi Start, Command2 menjadi Stop




4. Setting Timer pada properties beri nilai interval pada timer dengan angka 10









5.Kemudian Isikan Listing Code Berikut :
Fungsi di bawah adalah untuk mendeklarasikan variabel


Dim TotalTenthDetik, TotalDetik, TenthDetik, Detik, _
Menit, Jam As Integer
Dim Jam1 As String


Private Sub Command1_Click()
TotalTenthDetik = -1   
Timer1.Enabled = True
End Sub


Private Sub Command2_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Timer1_Timer()
TotalTenthDetik = TotalTenthDetik + 1    
TenthDetik = TotalTenthDetik Mod 10    
TotalDetik = Int(TotalTenthDetik / 10)     

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   
End Sub 

6. Selesai Program Tinggal Dijalankan