Membuat Stopwatch dengan VB 6.0

Sobat kali ini saya berbagi gimana caranya membuat progam Stopwatch yang sederhana dengan Visual Basic 6.0.
Sebelumnya tau nggak yang dinamakan Stopwatch?? Stopwatch adalah mesin penghitung waktu per second dan mempunyai ketepatan waktu yang lebih akurat.

Berikut ini cara membuat aplikasi stopwatch atau aplikasi penghitung waktu yang sederhana  menggunakan Visual Basic 6.0.
Langkah - Langkah:
1.      Buka Visual Basic 6, buat project baru.

Beri nama  Form “FrmStopwatch” & beri picture jika di inginkan

2.      Tambahkan beberapa kontrol di bawah ini di Toolbox ke Form:

Kontrol:	Name:	Caption:
Label	Label1	00:00:00,00
Label	Label2
Label	Label3
CommandButton	CmdStart	Start
CommandButton	CmdStop	Stop
CommandButton	CmdReset	Reset
CommandButton	CmdAbout	About
Timer	Timer1
Timer	Timer2

• Untuk memasukkan gambar ke CommandButton
• Style    => Grapichal
• Picture => (gambar yang mau dimasukkan)
• Untuk mentransparantkan Label
• BackStyle => Transparant
• Untuk memasukkan gambar ke Form
• Picture => (gambar yang mau diamsukkan)
• Untuk Timer1
• Enabled => False
• Interval  => 1
• Untuk Timer2
• Enabled => True
• Interval  => 1

3.      Masukkan coding berikut pada kontrol-kontrol di atas (klik kanan pada form, view code):

• Buka Notepad Di Komputer Kamu (bisa tekan WinKeys + R, tuliskan notepad, OK) atau bisa langsung   dari menu Start > accesories > Notepad 

• Jika sudah, masukkan script ini :

Dim Jam As Integer, Menit As Integer, Detik As Integer, mDetik As Integer Private Sub CmdAbout_Click() MsgBox "This Progam made By: (pembuat)" End Sub Private Sub CmdReset_Click() Timer1.Enabled = False Label1.Caption = "00:00:00,00" Jam = 0 Menit = 0 Detik = 0 mDetik = 0 End Sub Private Sub CmdStart_Click() Timer1.Enabled = True End Sub Private Sub CmdStop_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() mDetik = mDetik + 1 If mDetik = 60 Then mDetik = 0 Detik = Detik + 1 If Detik = 60 Then Detik = 0 Menit = Menit + 1 If Menit = 60 Then Menit = 0 Jam = Jam + 1 End If End If End If Label1.Caption = Format(Jam, 0) & " : " & Format(Menit, 0) & " : " & Format(Detik, 0) & "," & Format(mDetik, 0) End Sub Private Sub Timer2_Timer() Label2.Caption = Time Label3.Caption = Date End Sub  
Sekian dulu Tutorial Stopwatch with VB 6.0 Semoga bermanfaat. Jika terjadi kesalahan silahkan comment di bawah ini!