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

Tämä koodin pätkänen rämpyttää värejä tiuhaan tahtiin.
On muuten eka koodini.

'''Värinrämppäys


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

SCREEN 8   ''''<- Asettaa näytöntilan

'''Värin valinnat yms..
FOR I = 0 TO 15
    paletti(I) = I
NEXT


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

Aika kaamea, mutta menköön, kun PALETTE USING -komento ei ole esiintynyt muualla. :)

Tästäkin voisi saada hieman paremman, jos laittaa värin muuttumaan ajastuksella (esim. puolen sekunnin välein)

kauhee

No jaa, eipä se mikään kauneuden perikuva ollut... Mutta toimiva jos se oli eka koodi. Mutta tuskimpa kukaan muukaan tekee mitään tetristä aluksi... Elikkä tällaisista on hyvä alottaa ja edetä sitten samalla kun taidot karttuu.

Onhan tuossa sentään käytetty sitä PALETTE USINGii :P

Värin vaihtoa vois ehkä hieman hitaammaks laittaa. Vilkkuvat värit silmiä haittaa.