Keskustelu: Koodit: QB: Merkin lukeminen näytöltä

Grafiikkatilassa voi pisteen värin lukea näytöltä POINT-komennolla, mutta tekstitilassa merkkien lukemiseen ei QBasicissa taida olla komentoa. PEEK-komennolla homma käy kuitenkin helposti lukemalla merkki suoraan muistista.

CLS
LOCATE 5, 10: PRINT "A"
'HUOM! LOCATE y, x kun LueMerkki(x,y)
LOCATE 10, 15: PRINT "ASC-koodi:"; LueMerkki(10, 5)

'Luemerkki-aliohjelma, palauttaa merkin ASCII-koodin
FUNCTION LueMerkki% (x, y)
  DEF SEG = &HB800
  LueMerkki% = PEEK((y - 1) * 160 + (x - 1) * 2)
  DEF SEG
END FUNCTION

Olin väärässä. Funktio SCREEN(y, x) tekee täsmälleen saman kuin tuo minun funktioni.

hah :P