Kirjautuminen

Haku

Tehtävät

Kilpailu

Ohjelmoi tekoäly!
Arvostele pelit
15.8. klo 12 mennessä!

Keskustelu: Koodit näytille: QB: Ohjelma tekee grafiikka käskyjä

Sivu 1 / 1

rndprogy [06.12.2003 16:02:13]

#

Tämä lukee lukee grafiikan näytöltä ja tekee siitä tiedoston, joka sisältää niin monta pset käskyä kuin kuvassa on pisteitä. Tämä korvaa esim. BSAVEtuksen.

SCREEN 13
FOR Y = 0 TO 30: FOR X = 0 TO 30
Q = INT(RND * 3) + 114
PSET (Y, X), Q
NEXT X, Y

    N$ = "FILU.BAS"             ' Tiedosto johon tallennetaan
    OPEN N$ FOR OUTPUT AS #1
FOR Y = 0 TO 30: FOR X = 0 TO 30
PRINT #1, "PSET ("; Y; ","; X; "),"; POINT(X, Y); ""' tämä latoo pset käskyjä tiedostoon
NEXT X, Y
CLOSE

Vastaus

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

Tietoa sivustosta