Kirjautuminen

Haku

Tehtävät

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

rndprogy [06.12.2003 16:02:16]

#

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