Bad command,Errorneous syntax. Abort,not found,Access denied YeS

Bad command,Errorneous syntax. Abort,not found,Access denied YeS
Selamat Datang Di Web Encep Nurdin (Online15)Postingan Terbaru Kami Disini Semoga Bermanfaat
Powered by Blogger.
Home » » Membuat Program Stopwat VB 6.0

Membuat Program Stopwat VB 6.0

Written By Baharakom on Friday, September 20, 2013 | 9:25:00 AM

1. Buat lah Fom Seperti Ini




2. Tulis Koding nya 

 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 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


Kalo Gak mau pusing downlod aja file nya disini tinggal di kembangkan ge sesuai selera masing-masing ya ...heheh semoga bermanfaat.


0 komentar:

Post a Comment

Terimakasih telah berkunjung ke blog kami dan kami harapkan partisipasi komentar dari anda ! Semoga artikel kami bermanfaat "