Cara Membuat Aplikasi Stopwatch Menggunakan Visual Basic 6.0

Membuat Aplikasi Stopwatch Menggunakan Visual Basic 6.0

Bicara tentang Stopwatch, benda ini adalah benda yang lumayan terkenal dibidang olahraga pada umumnya. Semua orang pasti kenal dengan benda yang lumayan unyu-unyu dan bulat ini, seperti halnya saya sudah lama kenal dengan benda ini. Waktu itu saya masih berada di bangku sekolah dasar kelas 5, kami sedang ujian praktek lomba lari mengelilingi komplek sekolah yang lumayan luas 5 kali putaran (cukup berat ya gan untuk tingkat sekolah dasar praktek seperti itu, yah tapi  mau tak maulah demi mendapatkan nilai yang bagus) jadi alat itu digunakan untuk mengetahui berapa lama waktu yang ditempuh setiap peserta dalam setiap kali putaran atau pengukur waktu. Kurang lebih seperti itulah.

Pada postingan saya kali ini akan membahas pembuatan program stopwatch dengan menggunakan Miscrosoft Visual Basic 6.0. Pada program ini pengukur waktu yang digunakan dalam satuan menit, detik dan milidetik.

1)   Desainlah form seperti gambar dibawah ini atau dengan desain form anda sendiri,

Gambar 1. Desain Stopwatch

2)   Kemudian copy paste listing programnya di bawah ini ;

Private Sub cmdstart_Click()

If cmdstart.Caption = "&Start" Then

txtmili.Text = "00"

txtsecond.Text = "00"

txtminute.Text = "00"

cmdstart.Enabled = False

Timer1.Enabled = True

cmdstop.Enabled = True

End If

End Sub

Private Sub cmdstop_Click()

Timer1.Enabled = False

cmdstart.Enabled = True

cmdstop.Enabled = False

End Sub

Private Sub mnto_Click()

txtmili.Text = "00"

txtsecond.Text = "00"

txtminute.Text = "00"

Timer1.Enabled = False

cmdstart.Enabled = True

cmdstop.Enabled = False

End Sub

Private Sub mnsd_Click()

txtmili.Text = "00"

txtsecond.Text = "00"

txtminute.Text = "00"

Timer1.Enabled = False

cmdstop.Enabled = False

cmdstart.Enabled = False

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

cmdstop.Enabled = False

cmdstart.Enabled = False

End Sub

Private Sub Timer1_Timer()

txtmili.Text = Val(txtmili.Text) + 1

If Len(txtmili.Text) = 1 Then txtmili.Text = "0" & txtmili.Text

If txtmili.Text = "60" Then

txtmili.Text = "00"

txtsecond.Text = Val(txtsecond.Text) + 1

If Len(txtsecond.Text) = 1 Then txtsecond.Text = "0" & txtsecond.Text

End If

If txtsecond.Text = "60" Then

txtsecond.Text = "00"

txtminute.Text = Val(txtminute.Text) + 1

If Len(txtminute.Text) = 1 Then txtminute.Text = "0" & txtminute.Text

End If

End Sub

Private Sub mnexit_Click()

pesan = MsgBox("Kamu yakin ingin keluar dari aplikasi ini?", vbQuestion + vbYesNo, "Konfirmasi")

If pesan = vbYes Then

End

End If

End Sub

3)   Setetalah selesai anda desain dan listing programnya sudah di copy paste silahkan anda running dengan mengklik tombol running atau dengan menekan tombol key F5 sehingga hasilnya tampak seperti gambar di bawah ini ;

Gambar 2. Running Program Stopwatch

4)   Untuk mengoperasikan aplikasi stopwatch tersebut klik terlebih dahulu tab Turn On pada pojok kanan atas lalu klik start. (Jika program aplikasinya tidak berjalan, silahkan hubungi kami dengan memberi komentar.)

Begitulah cara membuat aplikasi stopwatch, semoga bermanfaat.