Keskustelu: Ohjelmointikysymykset: QB: QBasicilla näytönsäästäjä

Mitekaköhän sais tehtyä silleen että, kun qbasicilla tehtyä ohjelmaa ei käytä esim . 10 minuuttiin ohjelma palais taaksepäin tiettyyn kohti.

pseudona:

alustetaan laskuri
PAIKKA_X{koodia tässä}

aina kun jotain tehdään{nollataan laskuri}
käydään vaikkapa minuutin välein laskuria läpi ja lisätään siihen yksi. (eli joku silmukka)
kun laskuri on 10, palataan kohtaan PAIKKA_X

Tässä tulee esimerkki asiasta:

alku:
CLS
PRINT "OHJELMAN ALKU"
aika& = INT(TIMER)
sek& = 0
DO
   IF aika& <> INT(TIMER) THEN
      aika& = INT(TIMER)
      sek& = sek& + 1
   END IF
   ' tulostetaan sekuntien määrä
   LOCATE 1, 70: PRINT sek&
   ' näppäin ESC nollaa laskurin
   IF INKEY$ = CHR$(27) THEN sek& = 0
   ' jos sekunteja on kulunut 10,
   ' siirrytään ohjelman alkuun
   IF sek& >= 10 THEN GOTO alku
LOOP

Muuttujassa aika& on keskiyöstä kulunut aika sekunteina, ja kun tämä aika muuttuu, muuttuja sek& kasvaa yhdellä. Nyt ajan laskun voi aloittaa alusta nollaamalla muuttujan sek& (käyttäjä tekee jotain). Jos muuttuja sek& saavuttaa tietyn arvon, niin monta sekuntia on kulunut ja voi vaikka siirtyä ohjelman toiseen osaan.