Cara Membuat Aplikasi Stopwatch Hitung Mundur Menggunakan VB 6.0

Cara Membuat Aplikasi Hitung Mundur (Count Down) di VB 6.0 - Pada pertemuan kali ini tip dan trik akan memberikan sebuah tip yaitu bagaimana Cara Membuat Aplikasi Hitung Mundur (Count Down) di VB 6.0.Aplikasi ini adalah adalah aplikasi yang memanfaatkan sistem Timer, kita tinggal memasukan lama waktunya layaknya seperti Alarm, tapi perhitungan dilakukan secara mundur. Seperti yang pernah kita lihat pada saat malam pergantian Tahun Baru di televisi-televisi.

Hitung mundur juga bisa digunakan sebagai pengingat untuk memulai suatu aktivitas misalnya pada perlombaan lari untuk memulai star, pergantian tahun baru dan Anda juga mensetnya menjadi alarm untuk waktu, ketika kita bermain komputer dengan menseting lama waktu krtika Anda memakai komputer tersebut misalnya Anda masukan 50 menit, maka dengan hitungan mundur dari menit 50 s/d 0, komputer otomatis akan shutdown ketika menit 0.

Pada kesempatan kali ini kami akan membuatnya dengan menggunakan VB 6.0, adapun langkah-langkah yang harus Anda lakukan adalah sebagai berikut :

1. Buka form Visual Basic Anda

2. Tanamkan beberapa Label, 1 Timer, 4 Comandbutton, 1 Frame (optional) dan 3 TextBox

3. Atur peoperti masing-masing:

   Label1 dan TextBox1,2,3 Captionnya biarkan saja

   Command1 Caption Star

   Command2 Caption Atur

   Command3 Caption Stop

   command4 Caption Batal

   Timer1 Enabled =False   Interval =1000

4. Desainlah Form seperti gambar dibawah ini:

5. Lalu buka jendela kode dengan F7 copy-paste kode dibawah bagian General-Declaration

Dim jam As Integer

Dim menit As Integer

Dim detik As Integer

Private Sub Command1_Click()

jam = Text1.Text

menit = Text2.Text

detik = Text3.Text

Label1.Caption = Format(jam, "00") & ":" & Format(menit, "00") & ":" & Format(detik, "00")

Timer1.Enabled = True

Command1.Enabled = False

Command3.Enabled = True

End Sub

Private Sub Command2_Click()

If Command2.Caption = "Atur" Then

Command2.Caption = "Save"

Command4.Enabled = True

Text1.Text = "00:00:00"

Text2.Text = "00:00:00"

Text3.Text = "00:00:00"

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text1.SetFocus

Else

If Command2.Caption = "Save" Then

If Text1.Text = "00" And Text2.Text = "00" And Text3.Text = "00" Then

MsgBox "Waktu belum di atur", vbCritical, "Error Input"

Text1.SetFocus

Else

Command2.Enabled = False

Command1.Enabled = True

Command2.Caption = "Atur"

Command4.Enabled = False

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

End If

End If

End If

End Sub

Private Sub Command3_Click()

Timer1.Enabled = False

Command2.Enabled = True

Command3.Enabled = False

Text1.Text = "00"

Text2.Text = "00"

Text3.Text = "00"

End Sub

Private Sub Command4_Click()

Command2.Caption = "Atur"

Label1.Caption = "00:00:00"

Command1.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text1.Text = "00"

Text2.Text = "00"

Text3.Text = "00"

Command2.SetFocus

End Sub

Private Sub Form_Load()

Label1.Caption = "00:00:00"

Command1.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text1.Text = "00"

Text2.Text = "00"

Text3.Text = "00"

End Sub

Private Sub Timer1_Timer()

detik = detik - 1

If detik < 0 Then

detik = 59

menit = menit - 1

Else

If menit < 0 Then

menit = 59

jam = jam - 1

End If

End If

Label1.Caption = Format(jam, "00") & ":" & Format(menit, "00") & ":" & Format(detik, "00")

If jam = 0 And menit = 0 And detik = 0 Then

Timer1.Enabled = False

MsgBox "Waktu Sudah Habis", vbInformation, "Perhatian"

Command1.Enabled = False

Command3.Enabled = False

Command2.Enabled = True

Text1.Text = "00"

Text2.Text = "00"

Text3.Text = "00"

End If

End Sub

6. Simpan hasil pekerjaan Anda, dan jalankan program

Demikian Cara Membuat Aplikasi Stopwatch dan Source Code Aplikasi Hitung Mundur di Visual Basic 6.0. Selamat mencoba semoga berhasil.