Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Ajastin

TuGi [30.01.2004 18:53:16]

#

Mitens ton ajastimen sais kulkemaan väärinpäin siis et se laskin alkais vaikka 170 ja loppuis 0?

sooda [30.01.2004 18:55:03]

#

Häh? Ei se laske mitään sitä vaan kutsutaan tietyn ajan välein...?

TuGi [30.01.2004 18:58:45]

#

Eiku siis et ajastin alkais 170 ja luvusta lähtis aina 1 pois. Esim: 170,169,168...jne.

sooda [30.01.2004 19:00:52]

#

eihän ajastin mitään laske. kai nyt timeriä tarkoitat?

TuGi [30.01.2004 19:05:56]

#

Ihan sama, mut kuintenkin sellanen koodin pätkä.

Antti Laaksonen [30.01.2004 23:33:33]

#

Vähennä muuttujan arvoa yhdellä aina kun ajastimen väliaika on kulunut. Tämä koodi toimii VB6:ssa.

'tämä rivi tulee koodin alkuun, koska aika on yleinen
'muuttuja, siihen täytyy päästä käsiksi eri aliohjelmista
Dim aika As Integer

Private Sub Form_Load()
    'määritetään laskurin aloitusarvo
    aika = 170
    'määritetään ajastimen aikaväliksi 1000 ms = 1 s
    Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
    'pienennetään laskuria yhdellä
    aika = aika - 1
    'näytetään laskurin arvo ikkunan otsikkopalkissa
    Caption = aika
    'jos laskuri on nollassa...
    If aika = 0 Then
        '...pysäytetään ajastin
        Timer1.Interval = 0
    End If
End Sub

TuGi [31.01.2004 12:14:11]

#

Kiitän ja kumarran.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta