&

Wednesday, December 26, 2012

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

1 comments:

Unknown said...

Thanks gan Tutorialnya,, Mampir ke Blog ane ya gan http://computertoons.blogspot.com/

Post a Comment

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Best CD Rates