Stopwatch pada VB

Membuat Stopwatch pada Vb

berikut adalah design untuk stopwatch

Berikut adalah tampilan form untuk timer. Yaa terdiri dari 3 buah penunjuk waktu yang akan berjalan nantinya dibuat dengan menggunakan Label. Dan 3 buah CommandButton yang masing masing diubah captionnya menjadi stop, start, dan resume.

berikut adalah listing programnya:

Maksud dari source code tersebut adalah

Private Sub Command1_Click()

Timer1.Enabled = True

Label1.Caption = 0

Label2.Caption = 0

Label3.Caption = 0

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

Label1.Caption = 0

Label2.Caption = 0

End Sub

Private Sub Command3_Click()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Label1.Caption + 1

If Label1.Caption = 60 Then

Label1.Caption = 0

Label2.Caption = Label2.Caption + 1

If Label.2Caption = 60 Then

Label2.Caption = 0

Label3.Caption = Label3.Caption + 1

End If

End If

End Sub

·         Logika untuk program Stopwatch

Pada commandbutton 1 dituliskan Timer1.Enabled= False berarti tidak menjalankan waktunya karna bernilai salah.

Kemudian di tuliskan :

Label1.Caption = 0

Label2.Caption = 0

Label3.Caption = 0

Timer1.Enabled = True

Maksud dari label1, label2, label3, .Caption=0 merupakan harga awal bilangan tersebut dihitung dan bernilai benar jadi setelah di run label 1 akan menghitung terlebih dahulu dari 0

Pada commandbutton 3 dituliskan timer1.Enabled=True yang menyatakan bahwa akan menjalankan waktu karna bernilai benar.

Pada codingan timer tertulis:

Label1.Caption = Label1.Caption + 1 = akan mulai menjalankan dari 0 dan selalu bertambah +1

If Label1.Caption = 60 Then = angka yang terus bertambah +1 akan sampai pada 

batasnya yaitu 60 karna telah ditetapkan batas dari waktu penjumlahan

Label1.Caption = 0 =karna telah sampai pada angka 60, makan nilai kembali ke awal yaitu 0, dan akan memulai penghitungan +1 selanjutnya

Label2.Caption = Label2.Caption + 1 = setelah label1 sampai pada batas angka yang ditentukan yaitu 60 maka label 1 bernilai 0 dan label 2 bernilai +1 setiap kenaikan 60 dari label 1

If Label2.Caption = 60 Then =penentuan batas kenaikan label2 bernilai 60

Label2.Caption = 0 = setelah sampai batas yang ditetapkan maka nilai label2 kembali ke 0 dan akan mengalami kenaikan +1 setelah label1 sampai pada kondisi waktu =60.

Label3.Caption = Label3.Caption + 1 =label3 akan mengalami kenaikan +1 karna label1 dan label2 yang telah mencapai kondisi waktu=60

End If = untuk mengakhiri perintah if

End If = untuk mengakhiri perintah if

Maka outputnya akan menjadi: