Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0

Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0

Pada postingan kali ini membahas tentang coding bagaimana membuat stopwatch, stopwatch adalah alat pengukur waktu. semoga code program berikut dapat membantu pengembangan pemikiran membuat stopwatch

Pada program ini pengukur waktu yang digunakan dalam satuan menit,detik dan milidetik. Rancanglah Form seperti tampilan gambar diatas.

Source Code dari program diatas :

3 textbox , 2 command button, 1 timer
setting timer dengan interval 1
untuk textbox silakan name = sesuai gambar
dan berikut code program stopwatch dengan visual basic

———————————————————————————————-
Private Sub CMDRESET_Click()
    TXTMILI.Text = "00"
    TXTDETIK.Text = "00"
    TXTMENIT.Text = "00"
    Timer1.Enabled = False

End Sub

Private Sub CmdStart_Click()
    TXTMILI.Text = "00"
    TXTDETIK.Text = "00"
    TXTMENIT.Text = "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 Form_Load()
    Timer1.Enabled = False
    CMDSTOP.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"
        TXTDETIK.Text = Val(TXTDETIK.Text) + 1
        If Len(TXTDETIK.Text) = 1 Then TXTDETIK.Text = "0" & TXTDETIK.Text
    End If
    If TXTDETIK.Text = "60" Then
        TXTDETIK.Text = "00"
        TXTMENIT.Text = Val(TXTMENIT.Text) + 1
        If Len(TXTMENIT.Text) = 1 Then TXTMENIT.Text = "0" & TXTMENIT.Text
    End If
End Sub

———————————————————————————————-
Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0
Membuat  Debian 5 Lenny Repository List  
Perintah dasar AT COMMAND dengan HP siemens c55

Pengertian VPN, Manfaat dan Cara Cerja VPN
Laptop HP,  Notebook HP, Accessories HP
De Prima Terra, Kawasan industri dan pergudangan di Bandung Indonesia,
 Call centre provider / Customer servis operator pulsa 
lomba seo, seo lomba, kontes seo 

Posted in: Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0