Cara Membuat Program Menghitung Waktu Menggunakan VB 6

Kali ini saya akan membagikan Cara Membuat Program Menghitung Waktu Menggunakan VB 6

Download Program Menghitung Waktu Microsoft Visual Basic 6.0

1. Buka Aplikasi VB 6

2. Desain Form Seperti Ini

 

3. Ubah Property

Form1 - Caption - Menghitung Durasi Waktu
Label1 - Caption - Sekarang Jam :
Label2 - Caption - Mulai :
Label3 - Caption - Durasi Waktu :
Label4 - Name - LblJam
           - Caption - 00:00:00
Label5 - Name - LblStart
          - Caption - 00:00:00
Label6 - Name - LblDurasi
           - Caption - 00:00:00
Command1 - Name - CmdProses
                  - Caption - START
Timer1 - Name - TmrWaktu
           - Interval - 100
    

4. Copy code berikut lalu klik View Code dan pastekan 

Dim Awal As Date
Dim Akhir As Date
Dim Lama As Single

Private Sub CmdProses_Click()
   
    If CmdProses.Caption = "START" Then
        Awal = Now
        LblStart.Caption = Format(Awal, "hh:mm:ss")
        CmdProses.Caption = "STOP"
    ElseIf CmdProses.Caption = "STOP" Then
        TmrWaktu.Enabled = False
        Akhir = Now
        Lama = Akhir - Awal
        LblDurasi.Caption = Format(Lama, "hh:mm:ss")
        CmdProses.Caption = "EXIT"
    ElseIf CmdProses.Caption = "EXIT" Then
        Unload Me
    End If
End Sub

Private Sub TmrWaktu_Timer()
    LblJam.Caption = Format(Now, "hh:mm:ss")
    If CmdProses.Caption = "STOP" Then
        LblDurasi.Caption = Format(Now - Awal, "hh:mm:ss")
    End If
End Sub

5. Jalankan Program dengan menekan F5, maka tampilannya akan seperti ini 

 

Download Program Menghitung Waktu Microsoft Visual Basic 6.0
SELAMAT MENCOBA...!!!