Keskustelu: Ohjelmointikysymykset: QB: Inkeytä quubasicilla

Löysinpäs tälläisen jutun, että sitten, kun ohjelmaa ajetaan ja painaa esciä niin ohjelma sammuu ja sittenpähän tutkin quickbasicin ohjetiedostoja niin löytyi tuohon
numero hommeliin lisää numeroita, että jotkin muut näppäimet toimisi, mutta microsoftilla on näköjään aivot kadonneet johonkin ja nämä numerot sattuvat olemaan väärien paikalla, joten pystyisikö joku käyttää iltansa siihen, että kertoisi minulle mahdollisesti nämä muut näppäimet. Juu juu! Tiedän, että ei välttämättä tarvitse edes niitä numeroita laittaa vaan jokin kirjain niin se toimii sillä kirjaimella, mutta enemmän kiinostaisi juuri tälläiset F1:ä F12:a ja shiftit ja muut.

DO
    PRINT "Press the escape (Esc) key to stop!"

LOOP UNTIL INKEY$ = CHR$(27)

Pahoittelen, että viesti tuli pari kertaa, mutta tätä ei näkynyt äskön. Näytti siltä kuin tämä olisi vain kadonnut lähetyksen jälkeen.

Semmonen vinkki ois hyvä, kun painaa näppäintä se näyttää näppäimen koodin!

Tässä...

DO
IF INKEY$<>"" THEN
LOCATE 1:PRINT INKEY$
END IF
LOOP

Näppäimiä voi lukea myös suoraan näppäimistöportista (hexana h60) INP() funktiolla. Katso esimerkki: http://www.saunalahti.fi/~trinit/cgi-bin/forum/YaBB.pl?board=vinkkeja;action­=display;num=1021102444;start=0

---
Tero Pietilä - http://trinitforums.cjb.net

En oikein tajunnut tuota miten näppäin koodin saa selville. Kokeilin molempia koodeja trinitin ja Antti Laaksosen suosittelemia. Nyt pitäisi saada näppäinten L ja U koodit yhtä ohjelmaa varten.
Kiitos

Ei siihen välttämättä näppäinkoodeja tarvita:

DO
SELECT CASE UCASE$(INKEY$)
CASE "L"
PRINT "Painoit L"
CASE "U"
PRINT "Painoit U"
END SELECT
LOOP

Kiitos
Tuntee olonsa vähän tyhmäksi kun ei hogannu kokeilla "normaaleilla" kirjaimilla.