Kirjautuminen

Haku

Tehtävät

Kilpailu

Ohjelmoi tekoäly!
Aikaa on 6.1. saakka.

Keskustelu: Koodit näytille: QB: Värinrämppäys

Sivu 1 / 1

anomizer [18.02.2003 11:11:28]

#

Koodi vilkkuttaa värejä ikäänkuin discossa.
En tiedä onko hyödyllinen mutta ihan sama...

'''Värinrämppäys


DEFINT A-Z
DIM SHARED paletti(15)
CONST ASPECT = 1 / 3

SCREEN 8   ''''<-Näytöntila

FOR I = 0 TO 15
    paletti(I) = I
NEXT

'''''Krafiikkaa'''''''''''
FOR ColorVal = 15 TO 1 STEP -1

    PAINT (320, 100), ColorVal
NEXT

DO
    FOR I = 1 TO 15
        paletti(I) = (paletti(I) MOD 15) + 1
    NEXT I
    PALETTE USING paletti(0)

    PALETTE 0, paletti(INT(RND * 15))  ''''Värit mustasta johonkin toiseen

       LOCATE 1, 35      '''Määrittää disco sanan sijainnin
       PRINT "*DISCO*"


LOOP WHILE INKEY$ = ""                 '''Ohjelma loppuu napin painalluksesta
END

anomizer [18.02.2003 11:12:29]

#

ps. Oli minun eka koodivinkki

Vastaus

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

Tietoa sivustosta