Cara Membuat Stopwatch Dengan Visual Basic 6.0 - Hai Sobat Naga Kali ini Saya akan share mengenai Cara Membuat Stopwatch Dengan Visual Basic 6.0 Berikut caranya :

Buka Aplikasi Visual Basic 6.0 Buatlah :
  • 3 buah label dengan nama Label1, Label2, Label3
  • 3 Buah Command Button Dengan Nama Command1, Command2, Command3
  • Dan 1 Buah Timer Dengan Nama Timer1 Dan Interval = 10
Atur Sesuai Keinginan Anda :

Contoh Design
Masukkan Code Di General (Declaration) :
Private Sub Command1_Click()
Label3.Caption = "00"
Label2.Caption = "00"
Label1.Caption = "00"
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Command2.Enabled = False
Label1.Caption = "00"
Label2.Caption = "00"
Label3.Caption = "00"
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Val(Label3.Caption) + 1
If Len(Label3.Caption) = 1 Then Label3.Caption = "0" & Label3.Caption
If Label3.Caption = "60" Then
Label3.Caption = "00"
Label2.Caption = Val(Label2.Caption) + 1
If Len(Label2.Caption) = 1 Then Label2.Caption = "0" & Label2.Caption
End If
If Label2.Caption = "60" Then
Label2.Caption = "00"
Label1.Caption = Val(Label1.Caption) + 1
If Len(Label1.Caption) = 1 Then Label1.Caption = "0" & Label1.Caption
End If
End Sub

Coba Jalankan Programnya Ada Script Yang error ?
Sekian, Terima Kasih 

2 komentar

Di bagian sebelum if Label2.caption = "60" (di paling bawah)
Salahny dituilsan "End if" terus kata erorny "End if without block if"