Program Stopwatch dengan VB

Program Stopwatch

dengan VB

Membuat program stopwatch dengan VB langkah-langkahnya adalah sebagai berikut:


1.Buka program VB lw
2.Pilih standart EXE
3.Buat Form(area kerja lw) kaya dibawah ini

1 Label, 2 commandButton, 1 Timer



Keterangan properties:

Form : caption = Membuat Perhitungan Waktu (Stopwatch)
Label1 : tdk dirubah
Command1 : caption = Star
Command2 : caption = Stop
Timer : interval = 10

4. Klik view code, dan tulis coding berikut:

Dim TotalTenthDetik, TotalDetik, TenthDetik, Detik, _
Menit, Jam As Integer
Dim Jam1 As String

5. Balik ke area objek
6. Klik 2x pada Command1 dan tulis coding berikut:

Private Sub Command1_Click()
TotalTenthDetik = -1
Timer1.enabled = True
End Sub

7.Klik 2x pada Command2 dan tulis coding berikut:

Private Sub Command2_Click()
Timer1.enabled = Not Timer1.Enabled
End Sub

8.Klik 2x pada gambar Timer1 dan tulis coding berikut:

Private Sub Timer1_Timer()
TotalTenthDetik = TotalTenthDetik + 1
TenthDetik = TotalTenthDetik Mod 10
TotalDetik = Int(TotalTenthDetik / 10)
Detik = TotalDetik Mod 60
If Len(Detik)=1 then
Detik = "0" & Detik
End If
Menit = Int(TotalDetik / 60) Mod 60
If Len(Menit) = 1 Then
Menit = "0" & Menit
End If
Jam =Int(TotalDetik/ 3600)
If Jam < jam1 = "0" label1=" Jam1">
End Sub

8.Tekan F5(klik icon run) Hasil akan seperti ini :













Program di atas masih sederhana banget n kalo da yg bisa ngembangin, tolong share ilmu y....!!!