Keskustelu: Ohjelmointikysymykset: QB: Eurot Qbasiciin

Lueskelin ohimmenne 80-luvun Tekniikan Maailmoja, ja yhdessä niistä oli tehty basicilla kirjanpito-ohjelma. Ajattelin tehdä seuraavaksi projektina nykyaikaisen version. Vaan eipä tule toteen, sillä en jaksa edes käynnistää ohjelmointikonettani.

MUTTA asiaan: Olen idiootti ja täys ääliö, mutta tietääkö joku että basicille olisi mahdollista saada euromerkki ?

Vai pitääkö sellainen piirtää ? Se piirtäminen vie vain tehoja koneelta... Joten kertokaa jos tiedätte jotain.

(Q)Basic perustuu DOSiin, joka ei tiedä mikä on euro, sillä ei siis saa euromerkkiä ainakaan suoraan. QB:lle on kyllä saataville fonttienlatausrutiineja, joiden avulla euromerkki saattaa olla mahdollinen, varmaksi en kuitenkaan menisi sanomaan. Jos ei muuten niin sitten teet oman funktion joka piirtää euromerkin.
Microsoftin järjestelmistä eurotuki on suoraan vasta Win98:ssa, ysivitoseen on ladattavissa europäivitys.

Joo ei saa quickbasicilla sitä €-merkkiä, mutta eikös pikku e riitä?

Itsekin suosittelisin käyttämään pientä e-kirjainta, joka lienee ihan virallinen vaihtoehtoislyhenne. Euromerkin liittäminen DOS:in käyttämään merkistöön on kuitenkin mahdollista, jos piirrät sopivan merkin itse ja lataat fontin jonkun muun merkin paikalle keskeytyksellä 10h. Lisätietoa ja esimerkkiohjelma löytyy tästä viestiketjusta: https://www.ohjelmointiputka.net/keskustelu/1852-taustagrafiikka

Euromerkin voi helposti tehdä DATA-tyylisenä kuvana, mutta sitten tarvitsee jonkun näyttömoodin.
Tässäpä päästä huitaistu ja testaamaton esimerkkikoodi (myöskään kuvaa ei ole testattu, mutta uskoakseni se toimii noin):

SCREEN 13
eurox = 43 'euromerkin x-koordinaatti pikseleinä
euroy = 63 'y-koordinaatti pikseleinä
       'koordinaatit on merkin vasemman yläkulman koordit

RESTORE euro

FOR y = 1 to 8
   FOR x = 1 to 8
      READ v
      PSET (eurox+x, euroy+y), v
   NEXT x
NEXT y

euro:
DATA 00,00,15,15,15,15,15,00
DATA 00,15,00,00,00,00,00,15
DATA 00,15,00,00,00,00,00,00
DATA 15,15,15,15,15,00,00,00
DATA 00,15,00,00,00,00,00,00
DATA 15,15,15,15,15,00,00,15
DATA 00,15,00,00,00,00,15,00
DATA 00,00,15,15,15,15,00,00

lainaus:

ja lataat fontin jonkun muun merkin paikalle keskeytyksellä 10h. Lisätietoa

Ja joku muu merkkihän voisi olla esim. $, joka on helposti käytettävissä ja kuvastaa muutenkin valuuttaa...

No voihan siihen laittaa myös yksinkertaisesti sanan "euroa" :)

Teinpä iltapuhteiksi ohjelman, joka vaihtaa tekstitilan fontissa merkin 127 euromerkiksi: https://www.ohjelmointiputka.net/koodivinkit/23948-qb-dos-fontin-muuttaminen