Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
Tämä kirjoittaa/piirtää näytön keskelle tekstin (jonka itse määräät) niin, että jokainen kirjain välähtää esille.
teksti on muuttujassa teksti
tekstin alkukohdan x on muuttujassa tekstix
tekstin alkukohdan y on muuttujassa tekstiy
DIM teksti AS STRING
teksti = "Ohjelmointiputka 2003" 'kirjoita teksti tähän
SCREEN 13
'tehdään paletti
OUT &H3C8, 0
FOR c = 0 TO 255
OUT &H3C9, INT(c / 4)
OUT &H3C9, INT(c / 4)
OUT &H3C9, INT(c / 4)
NEXT
COLOR 255
tekstiy = INT(25 / 2) 'muuta näihin kahteen haluamasi
tekstix = INT(40 / 2 - LEN(teksti) / 2) 'koordinaatit
'näillä asetuksilla teksti tulee
'näytön keskelle
FOR i = 1 TO LEN(teksti)
FOR o = 1 TO 255 STEP 10
CIRCLE (tekstix * 8 + i * 8 - 12, tekstiy * 8 - 4), o / 10, 255 - INT(o), , , 2
FOR hidastus = 1 TO 1000: NEXT hidastus
NEXT o
FOR o = 255 TO 1 STEP -10
CIRCLE (tekstix * 8 + i * 8 - 12, tekstiy * 8 - 4), 255 / 10 - o / 10, 0, , , 2
FOR hidastus = 1 TO 1000: NEXT hidastus
LOCATE tekstiy, tekstix
PRINT MID$(teksti, 1, i)
NEXT o
LOCATE tekstiy, tekstix
PRINT MID$(teksti, 1, i)
NEXT iMjoo-o, ihan menevä toi on, itseasiassa on hyvä :P
Iha kiva. (Ilma outtiiki ois varmaa pärjänny...)
ilman OUT:ia ei olis saatu sulavaa vieritystä valkosesta mustaan.
Huippu ku pistää hidastuksii kumpaaki 99999 :D
jotenkin mä uskon ;)
eikä tota 99999 hidastusta tarvi ku käyttää vanhaa Qbasicii.
Toki onhan mul uudempiki
Aihe on jo aika vanha, joten et voi enää vastata siihen.