Cara Membuat Stopwatch Sederhana dengan Visual Basic 6.0

Cara Membuat Stopwatch Sederhana dengan Visual Basic 6.0

   

1. Tambahkan 1 buah form.

                                                                    

2. Tambahkan 3 buah label, masing – masing atribut   caption-nya dikosongkan.
3. Tambahkan 1 buah timer, ganti atribut name-nya menjadi “tmrTime”. 
4. Tambahkan 1 buah commandbutton, ganti atribut name-nya menjadi “btnStart”.
5. Masukkan code berikut disetiap control :

Private Sub btnStart_Click()
If tmrTime.Enabled = False Then
tmrTime.Enabled = True
Else
tmrTime.Enabled = False
End If
End Sub

Private Sub tmrTime_timer()
Label3.Caption = Val(Label3.Caption) + Val(1)
If Label3.Caption = 60 Then
Label2.Caption = Val(Label2.Caption) + Val(1)
Label3.Caption = 0
ElseIf Label2.Caption = 60 Then
Label1.Caption = Val(Label1.Caption) + Val(1)
Label2.Caption = 0
End If
End Sub

Private Sub Form_Load()
tmrTime.Enabled = False
End Sub

Private Sub btnExit_Click()
Unload Me
End Sub


6. Jalankan program tersebut, lalu lihat hasilnya ! 
7. Selesai.