Keskustelu: Ohjelmointikysymykset: VB6: Kello

Kellohan tehdään näin :
Private Sub timDisplay_Timer()
Dim Today As Variant
Today = Now
lblTime.Caption = Format (Today, "h:mm:ss")

Mutta miten tehdään että kello laskee vaikka 50:neen sekunttiin ,tai joku aikalaskenta 10:nesta 0:aan ???

Private Sub Form_Load()
Dim aika as integer
Timer1.interval = 1000
End Sub

Private Sub Timer1_Timer()
aika = aika - 1
If aika = 0 then msgbox("Haist..."), , "Voitto kotiin!"
End sub

Nyt meikä menee saunaan...

Dim aika as integer

Private Sub Form_Load()
aika=10
Timer1.interval = 1000
End Sub

Private Sub Timer1_Timer()
aika = aika - 1
If aika = 0 then
msgbox "hui."
timer1.enabled=false
end if
End sub

' tuo vois jopa toimiakkin ;p

ai kato prkl.