Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249541 (10977)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Scancodes
Hans-Peter
| Datum:28.07.01 15:32 (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 (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