Perhitungan TIMER (selisih START - STOP)

Bagi temen2 yang buat projek warnet, nie ada sedikit contohnya. Misal qta akan menghitung selisih waktu start dan waktu stop. Langkah pertamanya adalah membuat design form seperti di bawah ini :



JANGAN LUPA TAMBAHKAN KOMPONEN TIMER PADA FORMNYA DAN ATUR INTERVALNYA MENAJDI 1000 (UNTUK 1 DETIK)

Kemudian tambahkan code dibawah ini :

Public Class coBAtIMER

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
jam1.Text = Format(Now, "HH:mm:ss")
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
waktu.Text = Format(Now, "HH:mm:ss")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer1.Enabled = True
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
jam2.Text = Format(Now, "HH:mm:ss")
Timer1.Enabled = False
'--------------------------------
'Proses Selisih Waktu
Dim detik, menit, jam, second As Integer
detik = DateDiff(DateInterval.Second, CDate(jam1.Text), CDate(jam2.Text))
'menit = DateDiff(DateInterval.Minute, CDate(jam1.Text), CDate(jam2.Text))
'jam = DateDiff(DateInterval.Hour, CDate(jam1.Text), CDate(jam2.Text))
jam = detik / 3600
menit = (detik Mod 3600) / 60
second = (detik Mod 3600) Mod 60

durasi.Text = jam & " JAM " & menit & " MENIT " & second & " DETIK"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
waktu.Clear()
durasi.Clear()
jam1.Clear()
jam2.Clear()
End Sub
End Class

kALO udah coba jalanin programnya, MAKa hasilnya seperti gambar dibawah