Der Befehl Inkey()

[obbba]

Code: Alles auswählen

OpenConsole()
Repeat
  key$=Inkey()
  Delay(20)
Until key$<>""
Debug PeekB(@key+1)
Debug #PB_Key_N
CloseConsole()

Warum kommt da nicht beid beiden "Debugzeilen" das gleiche raus, wenn ich auf die Taste "n" drücke?

[mk-soft]

Code: Alles auswählen

OpenConsole()
Repeat
  key$=Inkey()
  Delay(20)
Until key$<>""
Debug Asc(key$) ; <--- geändert, Key und Key$ sind zwei verschiedene Variablen
Debug #PB_Key_N
CloseConsole()

#PB_Key_ ist Scancode der Tastertur. Der Scancode wird erst mit der eingestellten Sprache übersetzt.

FF

[Kaeru Gaman]

Code: Alles auswählen

Debug PeekB(@key+1)

ich versteh auch nicht, warum +1 ?

Code: Alles auswählen

Debug PeekB(@key$)

sollte doch gehen, oder?

um den Hinweis von mk nochmal ausführlicher zu wiederholen:
die tastatur-scancodes sind keine ASCII-codes.
was ja irgendwie logisch ist, da ja Cursor-Up und Backspace keine Zeichen sind.

[obbba]

Code: Alles auswählen

OpenConsole() 
Repeat 
  key$=Inkey() 
  Delay(20) 
Until key$<>"" 
Debug PeekB(@key$+1) 
Debug #PB_Key_N 
CloseConsole()

HA!!!

So geht's nämlich doch!!

Lest euch den Befehl Inkey nochmal durch...

[Kaeru Gaman]

> Lest euch den Befehl Inkey nochmal durch...

ok.. in 3.94 wird der scancode noch an zweiter stelle mit übergeben.

aber in 4.0 ist das konzept komplett geändert, da gibts ne extra-funktion RawKey() für den Scancode.

[mk-soft]

Wer lesen kann ist im Vorteil

Gibt einen "ein Zeichen"-String zurück

Du liest immer nur das NULLBYTE. "String Ende". allso ein Byte zu weit.

FF

MIST, ZU LANGSAM

[Kaeru Gaman]

> Wer lesen kann ist im Vorteil

genau, mk, lies mal obbbas signatur...

[mk-soft]

Übersehen und jetzt gelesen. OK

[Kaeru Gaman]

hab ich ja auch zuerst überlesen, hätte schon beinahe ne blöde antwort geschrieben...


@obbba

ich empfehle dir, mit folgendem konstukt zu arbeiten:

Code: Alles auswählen

I$ = Inkey() : I1$ = Left(I$,1) : I2$ = Right(I$,1)

und im anschluss nur noch I1$ und I2$ auszuwerten.

das mag erstmal kompliziert oder unsinnig aussehen,
aber es erleichtert die spätere umstellung auf 4.0 ungemein.

dann müsst du nämlich nur diese einzige zeile ersetzen durch:

Code: Alles auswählen

I1$ = Inkey() : I2$ = RawKey()