Keskustelu: Ohjelmointikysymykset: QB: Locate/point QBasic

Elikkäs, QBasicin omasta ohjeesta taaskaan apua.

Locate 10, 10 : draw"l100"

Miten saan esim. point käskyllä katsottua onko kys.om. alueella tyhjää tai kenties jotain grafiikkaa/merkkejä?

Tai millä muulla käskyllä homma voisi mennä?

print "Pikselin väri kohdassa (5, 9): "; point(5, 9)

Nyt ei menny jakeluun toi ihan :D
Eli jos vaikka näin...

Locate 10, 10 : Print "A"

Miten tietää onko kohdassa 10, 10 A merkki?

screen funkkarilla. print "Merkki kohdasss 10,10:",screen(10,10)

Heh, nyt tuntuu niin s******** tyhmältä.

-----------------------------------------------------
Screen 12
Cls
A$ = "#"
x = 10 : y = 10
Locate x, y : Print A$
Get (x, x) - (y, y), B$
If A$ = B$ Then Print "It´s working"
End
-------------------------------------

Ja tämä "koodihan" ei toimi siis, vaan miten saan sen toimimaan.
Eli saisiko tällainen mäntti erittäin selventävän vastauksen vai paiskaanko koko masiinan järveen ja läksin ryyppäämään? Miel. toki juopottelisin mut vika viikko ennen tiliä niin heikos on rahat :D

ota nyt ihmeessä tuo b$ nyt ainakin pois tuosta GETin perästä. Mitä yrität saada aikaseksi? tuo on ihan seko koodi

Joo, koodi on aika seko. Idea on vaan että miten saan laitettua tuon "Get (x, x) - (y, y)" komentorivistä saadun tiedon johonkin muuttujaan jota sitten vertailla.

Onnistuuko siis teksti-merkin haku näytöltä mitenkään ilman että sotkeudutaan grafiikkaan.

Heh, nukkumaan voisi mennä taas kun ratkaisu löytyi jo ja osoittautui liiankin helpoksi.

Niin grafiikaan ei siis tarvitse puuttua?
Niinkuin edellä mainittiin:

CHR$(SCREEN(rivi, sarake))

palauttaa merkin. Pelkkä:

SCREEN(rivi, sarake)

palauttaa kohdassa olevan merkin ASCII-koodin.
CHR$ muuntaa ASCII-koodin merkiksi.

Vai hokasitko tämän jo?

Joo, kesti hieman aikaa mut pari tuntia unta auttoi. Ehkä taas hetken selviää. :D