Keskustelu: Ohjelmointikysymykset: QB, VB6: Ajastin

Elikkäs kunka voi tehdä sellaisen ajastimen jossa on (kun jokin tietty aika on mennyt tapahtuu jotain)? esim. sulkeee ohjelman.

Kieli?

Helposti! Tässäpä koodia: (jos teet QB:llä)

AIKA = 10 'Asetetaan ajaksi 10 sek.
LASKE:
CLS
PRINT AIKA; 'Näytetään aika
PRINT " .SEK JÄLJELLÄ!"
SLEEP 1 'odotetaan sekunti
AIKA = AIKA - 1 'vähennetään aikaa yhdellä
IF AIKA = 0 THEN END 'Jos aika on lopussa, suljetaan ohjelma
GOTO LASKE

PS. Tuli laitettua GOTO...

Laitat Timer -objektin formille, intervalliksi se aika minkä haluat millisekunteina (60000 = minuutti, maksimi).
Jos haluat isompia, laitat vaan muuttujaan ne minuuttien määrät, eli

''Tää jossain ylhäällä
Public MenneetMinsat as integer

''Timerissä
MenneetMinsat = MenneetMinsat + 1
'Jos 60 minuuttia, kello pois päältä ja tehdään jotain
If MenneetMinsat = 60 then
   Timer1.Enabled = False
   'Koodia, mitä tehdään, tähän.
End If

EDIT: Olin hidas, mutta tässä VB -versio.

Ai niin teen ohjelmaa vb:lla :)
Olen aika aloittelija minkä taisitte jo huomata.
Kiitoksia :)

Kokeile ohjelmoida myös QB:llä! :D