Keskustelu: Koodit: QB: "Sykkyrän" piirtäjä

DIM x(100)
DIM y(100)
DIM vari(100)

' MUUTA NÄITÄ:
kuvioita = 5               ' Kuinka monta sykkyrää ruudulla on
varinvaihto = 2500         ' Kuinka usein sykkyröiden väri vaihtuu
                           ' Pienellä luvulla väri vaihtuu useammin

SCREEN 13                  ' Siirtyy 320*200 näyttötilaan
RANDOMIZE TIMER            ' Alustaa satunnaislukugeneraattorin

FOR i = 1 TO kuvioita      ' Satunnaistaa sykkyröiden:
x(i) = RND * 320           ' Lähtöpaikan x-koordinaatin
y(i) = RND * 200           ' Lähtöpaikan y-koordinaatin
vari(i) = RND * 256        ' ja aloitusvärin
NEXT i

DO
FOR i = 1 TO kuvioita
x(i) = x(i) + INT(RND * 3 - 1)         ' Siirtää sykkyröiden x-koordinaatteja
y(i) = y(i) + INT(RND * 3 - 1)         ' Siirtää sykkyröiden y-koordinaatteja

IF x(i) < 0 THEN x(i) = x(i) + 1       ' Jos jokin sykkyrä on menossa ulos
IF x(i) > 319 THEN x(i) = x(i) - 1     ' ruudusta, siirretään se takaisin
IF y(i) < 0 THEN y(i) = y(i) + 1       ' ruutuun
IF y(i) > 199 THEN y(i) = y(i) - 1

PSET (x(i), y(i)), vari(i)             ' Piirtää pikselin uusiin koordinaatteihin

NEXT i

z = z + 1                              ' lisää zetaan yhden

IF z = varinvaihto THEN                ' jos z on yhtä suuri kuin varinvaihto:
z = 0                                  ' z nollataan

FOR i = 1 TO kuvioita
vari(i) = RND * 256                    ' ja sykkyröiden värit satunnaistetaan
NEXT i

END IF

LOOP UNTIL INKEY$ = CHR$(27)           ' Poistuu loopista kun painaa esciä