Kirjautuminen

Haku

Tehtävät

Kilpailu

Putka Open 2025
4. kierros:
7.11. klo 18 – 9.11. klo 23

Keskustelu: Ohjelmointikysymykset: QB: Merkin liikutus

iostream [04.03.2004 19:49:05]

#

Miten saan esimerkiksi # merkin liikkumaan nuolinäppäimillä?

petrinm [04.03.2004 19:50:08]

#

Mikä kieli?

iostream [04.03.2004 19:53:21]

#

Q-basic

petrinm [04.03.2004 19:56:24]

#

Tolla saa siirretyä kirjaimen eri kohtaan.

Location Y ,X :Print "#"

sqwiik [04.03.2004 20:00:34]

#

Tuossa koodia (alkeis sellaista)

DIM X AS INTEGER, Y AS INTEGER, KEY AS STRING
X = 5 : Y = 5
DO
  LOCATE Y, X : PRINT "#" 'Piirretään merkki
  KEY = ""
  DO
    KEY = INKEY$
  LOOP UNTIL KEY <> ""
  LOCATE Y, X : PRINT " " 'pyyhitään edellisestä kohdasta
  SELECT CASE KEY
    CASE CHR$(0) + CHR$(72) 'Ylös
      Y = Y - 1
    CASE CHR$(0) + CHR$(75) 'Vasen
      X = X -1
    CASE CHR$(0) + CHR$(77) 'Oikea
      X = X + 1
    CASE CHR$(0) + CHR$(80) 'Alas
      Y = Y + 1
  END SELECT
LOOP

Muokkaa siitä eteenpäin (esim. rajojen tarkistus etc)

rndprogy [04.03.2004 20:01:04]

#

Näin:

Y = 10: X = 10
DO
LOCATE Y, X: PRINT "#"
A$ = INKEY$
IF A$ = CHR$(0) + "M" THEN X = X + 1: LOCATE Y, X - 1: PRINT " "
IF A$ = CHR$(0) + "K" THEN X = X - 1: LOCATE Y, X + 1: PRINT " "
IF A$ = CHR$(0) + "P" THEN Y = Y + 1: LOCATE Y - 1, X: PRINT " "
IF A$ = CHR$(0) + "H" THEN Y = Y - 1: LOCATE Y + 1, X: PRINT " "
LOOP

EDIT: Äsh! aina joku ehtii väliin.

iostream [04.03.2004 20:09:04]

#

Juu Kiitti.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta