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

Tidak ada komentar:

Poskan Komentar

Related Posts Plugin for WordPress, Blogger...