Selamat pagi!
Selamat berhari minggu kawan...
Selamat berhari minggu kawan...
Pagi ini saya share cara membuat Aplikasi Stopwatch menggunakan Visual Basic 6.0.
Check this out...
Check this out...
Sebelumnya, silahkan kalian buat kerangka program mirip seperti diatas menggunakan :
- Label (untuk Tulisan Menit,Detik,Milisekon,Kotak Waktu,dan Separator waktunya)
- 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 :
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.
Semoga Bermanfaat.
Salam Leaf-Coder!
0 Komentar