Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: Nuolinpääimet

anomizer [22.06.2003 01:28:13]

#

No tämä kertoo mitä nuolinäppäintä painoit (tai spacea).
Voi kait soveltaa johonkin peliin.
Kirjoitusvirhe otsikossa =)

CLS
PRINT "Paina jotain nuolinäppäintä , tai spacea...
DO
   DO
   KeyPressed$ = INKEY$
   LOOP UNTIL KeyPressed$ <> ""
   IF KeyPressed$ = CHR$(32) THEN           ' Jos painaa alas...
      CLS : PRINT "Painoit speissii..."     ' Tulee tekstii...

   END IF
   IF KeyPressed$ = CHR$(0) + CHR$(72) THEN ' Jos painaa ylös...
     CLS : PRINT "Painoit ylöspäin..."       ' Tulee taas tekstii..
   END IF
   IF KeyPressed$ = CHR$(0) + CHR$(75) THEN ' ja niin edelleen...
     CLS : PRINT "Painoit vasemmalle..."
   END IF
   IF KeyPressed$ = CHR$(0) + CHR$(77) THEN ' jne..
     CLS : PRINT "Painoit oikealle..."
   END IF
   IF KeyPressed$ = CHR$(0) + CHR$(80) THEN ' En oo varma... =)
     CLS : PRINT "Painoit alas..."
   END IF
   KeyPressed$ = ""
LOOP

anomizer [22.06.2003 01:30:25]

#

Ja otsikossa kirjoitusvirhe =)

Vastaus

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

Tietoa sivustosta