Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249541 (10977)
  Suchen
 Zurück zur Übersicht
 AutorThema: Scancodes
Hans-Peter
Datum:28.07.01 15:32 Antwortenals Email verschicken (Hans-Peter_Cremers@t-online.de) 


Hi,
kann mir bitte jemand helfen?
Der Code für die Entertaste ist ´13´. Also programmiere ich
if equ(%key, 13)
Was aber schreibe ich, wenn mir ein kleines Programm, das
den Tastencode ermittelt, bei
Tab die Zahlen 9 und 17 mitteilt und bei
Shift/Tab die Zahlen 16 und 9?
Wie bringe ich die Zahlenpaare - z.B. für Shift/Tab 16/9 -
in der if equ(%key,...)-Zeile unter?
Weiß jemand Bescheid?
Mfg
Hans-Peter


Norbert Spörl
Datum: 28.07.01 22:33 Antwortenals Email verschicken (NSp_ware@t-online.de) 


Hallo,

hab es nach einiger Mühe hinbekommen. Die Zeilen unten müßten das Problem lösen.

MfG

Norbert
-----------------------------------------------------------------------------------------------------------------------------

DEF GetKeyState(1) ! "USER32", "GetKeyState"
CLS
DECLARE ende%, vk1&, vk2&
WHILENOT ende%
WAITINPUT
vk1& = TESTBIT(GetKeyState(9), 15)
'-> 9 steht für Tab
vk2& = TESTBIT(GetKeyState(16), 15)
'-> 16 steht für Shift
IF AND(vk1&, vk2&)
MESSAGEBOX "Shift und Tab wurden gleichzeitig gedrückt.", " ... Hurraa ! ", 64
ENDIF
ENDWHILE
END



 Zurück zur Übersicht