Penghitung waktu

Cara kerjanya seperti penghitung waktu didalam handphone kita, yang dapat menghitung mundur sesuai kehendak kita.
Sebenernya cara ini aplikasi yang digunakan seperti billing diwarnet.
Bahan yang digunakan:

1. Timer (1 )
2. Label (2)
3. Text Box (1)

• Masukan Code dibawah ini sebagai pembuka Source Code pada form :

Option Explicit

Private m_StopTime As Date

• Masukan code berikutnya pada commandbutton

Private Sub cmdGo_Click()
Dim fields() As String
Dim hours As Long
Dim minutes As Long
Dim seconds As Long

fields = Split(txtDuration.Text, ":")
hours = fields(0)
minutes = fields(1)
seconds = fields(2)

m_StopTime = Now
m_StopTime = DateAdd("h", hours, m_StopTime)
m_StopTime = DateAdd("n", minutes, m_StopTime)
m_StopTime = DateAdd("s", seconds, m_StopTime)

tmrWait.Enabled = True
End Sub

• lalu berikutnya masukan code ini pada timer yang terdapat di form

Private Sub tmrWait_Timer()
Dim time_now As Date
Dim hours As Long
Dim minutes As Long
Dim seconds As Long

time_now = Now
If time_now >= m_StopTime Then
Me.WindowState = vbMaximized
tmrWait.Enabled = False
lblRemaining.Caption = "0:00:00"
Else
seconds = DateDiff("s", time_now, m_StopTime)
minutes = seconds \ 60
seconds = seconds - minutes * 60
hours = minutes \ 60
minutes = minutes - hours * 60
lblRemaining.Caption = _
Format$(hours) & ":" & _
Format$(minutes, "00") & ":" & _
Format$(seconds, "00")
End If
End Sub