Ongelmana on että Q-Basicilla kun käytän Screen 12 modessa tekstiä, jää sille musta tausta. Saako tekstiä tulemaan näytölle ilman mustaa taustaa, niinkun läpinäkyvällä taustalla. Laittakaa koodia jos voitte. Todellakin ois tarpeellista tietää. :)
tämä auttanee:
http://koti.mbnet.fi/~tgeeni/basic/basguru2.zip ---> gfxprint.bas
tai tässä koodi:
SCREEN 12
DIM bitmask(7)
FOR a = 0 TO 7
bitmask(a) = 2 ^ (7 - a)
NEXT a
DEF SEG = &HF000
juttu$ = "Tähän tulostettava teksti"
FOR luuppi = 1 TO LEN(juttu$)
FOR loopx = 0 TO 7
FOR loopy = 0 TO 7
IF PEEK(&HFA6E + (ASC(MID$(juttu$, luuppi, 1)) * 8) + loopy) AND bitmask(loopx) THEN PSET (loopx + luuppi * 8, loopy)
NEXT loopy
NEXT loopx
NEXT luuppi
no toi hymiö tuolta sellaseks ku kuuluuki eli 8 )
Jep, tuo toimii muuten hyvin, paitsi että kirjaimen ASCII-koodi ei voi olla yli 127. Siksi esim. ä:t eivät näy tuossa esimerkissä.
En kylläkään tiedä, miten tuon voisi tehdä niin, että kaikki merkit näkyisivät, mutta yksi mahdollisuus olisi laittaa toisessa ohjelmassa johonkin tiedostoon kaikkien merkkien kuvat pikseli pikseliltä SCREEN 12:ssa ja sitten käyttää kuvia itse ohjelmassa.
Ok, kiitos. En tarvitse edes ääkkösiä tai öökkösiä. :)
Hmm... Jotkut kirjaimet ovat vähän hassun näköisiä kun tuota käyttää. :T
Aihe on jo aika vanha, joten et voi enää vastata siihen.