Membuat Program Stopwatch Visual Basic

Sebelumnya kita telah belajar Cara Membuat Program Lampu Lalu lintas, kali ini kita akan belajar Cara Membuat Stopwatch, seperti yang kita ketahui stopwatch adalah sebuah alat untuk mencatat sebuah waktu pada waktu tertentu, untuk penerapanya yang pernah saya lihat, stopwatch di gunakan oleh guru olahraga saya untuk mencatat waktu dari semua siswa yang sedang test lari sekitar 1 KM, untuk itu sekarang kita akan membuat system stopwatch di visual basic, berikut tutorialnya :

1. Jalankan VB dan pilih Standar EXE
2. Tambahkan 4 text box, 3 command button 1 frame, 1 list box dan 1 timer, atur sehingga seperti ini :

3. Rubah propertienya seperti ini :
Tool BoxPropertiesKeterangan
Form 1Star Up PositionCenter Screen
Text Box
1, 2, 3, 4
Text00
AligmentCenter
Font Size20
EnabledFalse
Command 1CaptionRECORD
VisibleFalse
Command 2CaptionPAUSE
VisibleFalse
Command 3CaptionSTART
VisibleTrue
Frame 1CaptionRESULT
Timer 1EnabledFalse
Interval10
Dimana text4 = 1/100 Detik, Text3 = Detik, Text2 = Menit, danText1 : Jam, Sehingga seperti ini :

4. Lalu tuliskan script berikut :
Sub first()
Text1.Text = "00"
Text2.Text = "00"
Text3.Text = "00"
Text4.Text = "00"
Command1.Visible = False
Command2.Visible = False
Command3.Visible = True
List1.Clear
Timer1.Enabled = False
Command2.Caption = "PAUSE"
Command1.Caption = "RECORD"
End Sub 

Private Sub Command1_Click()
If Command1.Caption = "RECORD" Then 
List1.AddItem Text1.Text + ":" + Text2.Text + ":" + Text3.Text + ":" + Text4.Text
ElseIf Command1.Caption = "RESET" Then 
Call first
End If
End Sub

Private Sub Command2_Click()
If Command2.Caption = "PAUSE" Then
Command2.Caption = "CONTINUE"
Command1.Caption = "RESET"
Timer1.Enabled = False
ElseIf Command2.Caption = "CONTINUE" Then
Timer1.Enabled = True
Command2.Caption = "PAUSE"
Command1.Caption = "RECORD"
End If
End Sub

Private Sub Command3_Click()
Timer1.Enabled = True
Command1.Visible = True
Command2.Visible = True
Command3.Visible = False
End Sub

Private Sub Timer1_Timer()
Text4.Text = Text4.Text + 1
If Text4.Text >= 64 Then '
Text4.Text = "0"
Text3.Text = Text3.Text + 1
End If

If Text3.Text = 59 And Text4.Text >= 60 Then
Text2.Text = Text2.Text + 1
Text3.Text = "0"
End If

If Text2.Text = 59 And Text4.Text >= 60 Then
Text1.Text = Text1.Text + 1
Text2.Text = "0"
End If
End Sub

5. Dan sekarang coba jalankan,
Penjelasan Singkat :
jika nilai text4 lebih dari 64 maka nilai text3 di tambah 1, dan nilai text4 kembali ke 0
jika nilai text3 lebih dari 59 maka nilai text2 di tambah 1, dan nilai text3 kembali ke 0
jika nilai text2 lebih dari 59 maka nilai text1 di tambah 1, dan nilai text2 kembali ke 0
Tanpilan Awal Program
Tampilan ketika di Klik Record
Tampilan ketika di klik PAUSE
Itulah tutorial mengenai cara membaut stopwatch,

Sekian tutorial kali ini, semoga bermanfaat

3 Responses to "Membuat Program Stopwatch Visual Basic"

  1. gan, ini pada bagian text2.text gak mau keisi
    jadinya text3.text malah lebih dari 60

    ReplyDelete
    Replies
    1. jika text2 tidak mau ke isi, coba cek script berikut :

      Private Sub Timer1_Timer()
      Text4.Text = Text4.Text + 1
      If Text4.Text >= 64 Then '
      Text4.Text = "0"
      Text3.Text = Text3.Text + 1
      End If

      If Text3.Text = 59 And Text4.Text >= 60 Then
      Text2.Text = Text2.Text + 1
      Text3.Text = "0"
      End If

      pastikan penulisanya benar, dan pastikan juga interval dari timernya 10 :D

      Delete
  2. This comment has been removed by the author.

    ReplyDelete