Keskustelu: Ohjelmointikysymykset: QB: Kuva ohjelmaan

Millähän tavalla Qbasic ohjelmaan voisi ladata esim. kotitekoisen kuvan?

Koodivinkit: QBasic: Grafiikka: BMP-kuvan näyttäminen. Katso toki myös muita saman vinkkialueen vinkkejä, eiköhän niistä selviä.

Tallenna se tiettyyn formaattiin (jos ei muuta niin vaikka raakadata) ja kirjoita latausfunktio sille formaatille. Kuvaformaatti vois toimia vaikka sillain että ekat kaks tavua sanois leveyden ja korkeuden, sit ois vaikka 2 tavua windows-rivinvaihtoa (0x0a0d) ja sit ois leveys * korkeus * bittien määrä pikseliä kohti kuvadataa. Esim. jos pikseli ois 8 bittiä niin latausfunktio voisi kuulua seuraavasti:

SUB lataakuva (nimi AS STRING, leveys AS INTEGER, korkeus AS INTEGER, paluudata AS STRING)
DIM data AS STRING, rivi AS STRING
OPEN nimi FOR INPUT AS #1
LINE INPUT #1, rivi
leveys = ASC(LEFT(rivi, 1))
korkeus = ASC(RIGHT(rivi, 1))
WHILE NOT EOF(1)
LINE INPUT #1, rivi
data = data + rivi
WEND
paluudata = data
END SUB

Toivottavasti meni oikein :d

edit: hidas.

Kannattaa joku grafiikkakirjasto hommata, nopeampi piirtää ja ladata semmosen kanssa joka on kirjotettu assemblerillä.