Kirjautuminen

Haku

Tehtävät

Koodit: QB: PCX-tiedoston tutkinta

Kirjoittaja: Vilikki

Kirjoitettu: 15.08.2002 – 15.08.2002

Tagit: grafiikka, koodi näytille, vinkki

Tämä tulostaa kaikenlaista tietoa pcx-tiedostosta. Kuva.pcx viittaa qb-kansiossa olevaan tiedostoon, eli ottakaa joku kuva, siirtäkää se qb-kansioon ja nimetkää se kuva.pcx:ksi. Tai muuttakaa tuota kolmatta riviä sopivaksi...

CLS

OPEN "kuva.pcx" FOR INPUT AS 1
a$ = INPUT$(1, #1)
PRINT "aina 10: "; ASC(a$)
a$ = INPUT$(1, #1)
PRINT "Versio: "; ASC(a$)
a$ = INPUT$(1, #1)
PRINT "RLE-koodaus (aina 1): "; ASC(a$)
a$ = INPUT$(1, #1)
PRINT "Bittiä pikseliä kohti: "; ASC(a$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Kuvan vasen yläkulma, x: "; ASC(a$) * 256 + ASC(b$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Kuvan vasen yläkulma, y: "; ASC(a$) * 256 + ASC(b$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Kuvan koko, x: "; ASC(b$) * 256 + ASC(a$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Kuvan koko, y: "; ASC(b$) * 256 + ASC(a$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Pikselien määrä x-suunnassa: "; ASC(b$) * 256 + ASC(a$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Pikselien määrä y-suunnassa: "; ASC(b$) * 256 + ASC(a$)
'ega-paletti. turha, joten ohitetaan
FOR i = 1 TO 48: a$ = INPUT$(1, #1): NEXT i
a$ = INPUT$(1, #1)
PRINT "Ei mitään?: "; ASC(a$)
a$ = INPUT$(1, #1)
PRINT "Kuvan tasojen määrä: "; ASC(a$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Tavujen määrä yhdellä vaakasuoralla viivalla: "; ASC(b$) * 256 + ASC(a$)
'ja sitten tässä olisi vielä 60 merkkiä "turhaa tietoa", jota ei nyt avata...

CLOSE 1

Kommentit

Antti Laaksonen [16.08.2002 14:01:59]

#

Vain itse piirtäminen puuttuu...;)

Vilikki [16.08.2002 14:03:55]

#

Joo, saatan joskus pistää sellaisenkin tänne.

thefox [17.08.2002 11:56:00]

#

Tietysti olisi käytännöllisempää lukea se koko headeria johonkin TYPE:en josta sitten voisi kätevästi tulostella nuo arvot.

Grez [18.09.2024 15:37:31]

#

Tuossa kannattaisi avata tiedosto FOR BINARY mieluummin kuin FOR INPUT. Nimittäin toi FOR INPUT kosahtaa "End of File" virheeseen, mikäli tiedostossa tulee EOF-merkki (CHR$(26)) vastaan.

Kirjoita kommentti

Muista lukea kirjoitusohjeet.
Tietoa sivustosta