Senin, 15 Agustus 2011
Membuat Counter Time dengan Vb6
Private Sub Command1_Click() intbatas = 5 Me.Timer1.Interval =
1000 Me.Timer1.Enabled = True End Sub
Private Sub
Command2_Click() intbatas = 5 Dim inttout As Integer Dim dtm
As Date dtm = DateAdd(“s”, intbatas, Now)
Do Until Now >=
dtm DoEvents inttout = Second(dtm) – Second(Now) Me.Caption =
“TimeOut:” & inttout Loop Unload Me End Sub
Private
Sub Timer1_Timer() intbatas = intbatas – 1 If
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar