Visual Basic - Membuat Stopwatch


Selamat pagi!
Selamat berhari minggu kawan...
Pagi ini saya share cara membuat Aplikasi Stopwatch menggunakan Visual Basic 6.0.
Check this out...


Sebelumnya, silahkan kalian buat kerangka program mirip seperti diatas menggunakan :
- Label (untuk Tulisan Menit,Detik,Milisekon,Kotak Waktu,dan Separator waktunya)
- Command Button (untuk Start,Stop,Reset,Exit)

Saya memberikan Added Command Button "Ke Stopwatch mode Jam" karena dalam Tugas Kuliah saya menggunakan dua jenis stopwatch. Kalian bisa saja tak usah menambahkan Button tersebut.

Ok, setelah kerangka program beres. Silahkan Isi dengan Coding berikut :

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdnext2_Click()
frmstopwatchjam.Show
frmstopwatch.Visible = False
End Sub

Private Sub cmdreset_Click()
xmili.Caption = "00"
xdetik.Caption = "00"
xmenit.Caption = "00"
End Sub

Private Sub CmdStart_Click()
xmili.Caption = "00"
xdetik.Caption = "00"
xmenit.Caption = "00"
Timer1.Enabled = True
cmdstart.Enabled = False
cmdstop.Enabled = True
End Sub

Private Sub CmdStop_Click()
Timer1.Enabled = False
cmdstart.Enabled = True
cmdstop.Enabled = False
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()
Timer1.Enabled = False
cmdstop.Enabled = False
End Sub

Private Sub Timer1_Timer()
xmili.Caption = Val(xmili.Caption) + 1
If Len(xmili.Caption) = 1 Then xmili.Caption = "0" & xmili.Caption
If xmili.Caption = "60" Then
xmili.Caption = "00"
xdetik.Caption = Val(xdetik.Caption) + 1
If Len(xdetik.Caption) = 1 Then xdetik.Caption = "0" & xdetik.Caption
End If
If xdetik.Caption = "60" Then
xdetik.Caption = "00"
xmenit.Caption = Val(xmenit.Caption) + 1
If Len(xmenit.Caption) = 1 Then xmenit.Caption = "0" & xmenit.Caption
End If
End Sub


Jika sudah, Run dan lihat hasilnya...
Semoga Bermanfaat.


Belum ada Komentar untuk "Visual Basic - Membuat Stopwatch"

Posting Komentar

Iklan Atas Artikel



Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel