Keskustelu: Ohjelmointikysymykset: QB: Unohtunut

Olen unohtanut yhden yksinkertaisen jutun... Että jos on, no nyt vaikka X niin miten sitä voi QuuBeessä liikuttaa painamalla jotain nappia? Muistaakseni aika yksinkertaista,
mutten muista... Jos joku on pelannut SpurquX:ää, niin pitäis tietää...

Näin se käy:

x% = 15 'asetetaan x%:n aloitusarvo
y% = 20 'asetetaan y%:n aloitusarvo
DO 'aloitetaan silmukka
m$ = INKEY$ 'muuttujaan m$ laitetaan n,pp,in, jota painetaan
IF m$ = "2" THEN CLS : y% = y% + 1 'jos painettu 2 niin y%:n lis,t,,n 1
IF m$ = "8" THEN CLS : y% = y% - 1 'jos painettu 8 niin y%:st, v,hennet,n 1
IF m$ = "4" THEN CLS : x% = x% - 1 'jos painettu 4 niin x:st, v,hennet,,n 1
IF m$ = "6" THEN CLS : x% = x% + 1 'jos painettu 6 niin x:n lis,t,,n 1
IF m$ = "9" THEN END
LOCATE y%, x% 'kirjoitetaan kohtaan y%, x%
PRINT "I" 'I
LOOP 'lopetetaan silmukka

Näin se käy:

x% = 15 'asetetaan x%:n aloitusarvo
y% = 20 'asetetaan y%:n aloitusarvo
DO 'aloitetaan silmukka
m$ = INKEY$ 'muuttujaan m$ laitetaan n,pp,in, jota painetaan
IF m$ = "2" THEN CLS : y% = y% + 1 'jos painettu 2 niin y%:n lis,t,,n 1
IF m$ = "8" THEN CLS : y% = y% - 1 'jos painettu 8 niin y%:st, v,hennet,n 1
IF m$ = "4" THEN CLS : x% = x% - 1 'jos painettu 4 niin x:st, v,hennet,,n 1
IF m$ = "6" THEN CLS : x% = x% + 1 'jos painettu 6 niin x:n lis,t,,n 1
IF m$ = "9" THEN END
LOCATE y%, x% 'kirjoitetaan kohtaan y%, x%
PRINT "I" 'I
LOOP 'lopetetaan silmukka

oho! tuli vahingossa kaks viestiä!

Joo, ei kannata heittää suoraan edellistä, kun on lähettänyt viestin...

Antti on näköjään muuttanut tuota systeemiä, eli nykyään voi painaa suoraan edellistä. Todella hyödyllinen juttu...

Vois kyllä käyttää casea ja nuolinappeja.

Voisi voisi.. itse en kyllä edes odottanut kenenkään vastaavan näin typerään kysymykseen.

oiskohan INP(&h60) parempi, ku joku INKEY$...

Hookattu INT9 + portti 0x60 on se paras tapa.

Siis case:

DO
  SELECT CASE INKEY$
    CASE "I"    'en jaksa väsätä nuolia
      Y% = Y% - 1
    CASE "K"
      Y% = Y% + 1
    CASE "J"
      X% = X% - 1
    CASE "L"
      X% = X% + 1
  CASE ELSE
  END SELECT
LOOP UNTIL CHR$(INKEY$) = "27" 'esc lopettaa...