MEMBUAT APLIKASI STOPWATCH

BELAJAR VISUAL BASIC 6.0

pertama :

buatlah disain aplikasi seperti gambar berikut :

kedua :

silahkan CoPas coding di bawah :

Dim jam, menit, detik, milidetik

Private Sub cmdExit_Click()
Timer1.Enabled = False
Timer2.Enabled = False
End
End Sub

Private Sub cmdReset_Click()
'membuat tampilan menjadi 00:00:00:00

lblDetik.Caption = "00"
lblMenit.Caption = "00"
lblJam.Caption = "00"

'pengaturan nilai variabel

jam = "0"
menit = "0"
detik = "0"
End Sub

Private Sub cmdStart_Click()
Timer1.Enabled = True
Timer2.Enabled = True
cmdReset.Enabled = False
cmdStart.Enabled = False
cmdStop.Enabled = True

jam = lblJam.Caption
menit = lblMenit.Caption
detik = lblDetik.Caption
End Sub

Private Sub cmdStop_Click()
Timer1.Enabled = False
Timer2.Enabled = False
cmdReset.Enabled = True
cmdStart.Enabled = True
cmdStop.Enabled = False
End Sub

Private Sub Form_Load()
'pemberian nilai properti interval timer
' interval untuk satu detik sama dengan kuranglebih 1000

Timer1.Interval = 1000
Timer2.Interval = 500
End Sub

Private Sub Timer1_Timer()
detik = detik + 1
If Val(detik) > 59 Then 'fungsi "val" untuk menggubah karakter menjadi angka atau number

detik = "00"
menit = Val(menit) + 1

If Val(menit) > 59 Then

menit = "00"
jam = Val(jam) + 1

If Val(jam) > 23 Then
jam = "00"

End If
End If
End If

d = Len(detik) 'fungsi "len" berguna untuk mengetahui banyak/panjang karakter
If d = 1 Then
lblDetik.Caption = "0" & detik 'membuat tampilan menjadi "0X"
'tanda "&" berfungsi untuk penggabungan karakter
Else
lblDetik.Caption = detik
End If

m = Len(menit)
If m = 1 Then
lblMenit.Caption = "0" & menit
Else
lblMenit.Caption = menit
End If

j = Len(jam)
If j = 1 Then
lblJam.Caption = "0" & jam
Else
lblJam.Caption = jam
End If
End Sub

Private Sub Timer2_Timer()
'Untuk membuat karakter titik dua ( : ) berkedip

Label4.Visible = Not Label4.Visible
Label5.Visible = Not Label5.Visible
End Sub

buat kamu yang ingin download aplikasi dan source codenya silahkan download disini.

Tag Technorati: {grup-tag}contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module