| |
| |
|
p.specht
 | Hinweis: Die Windows-Funktionstaste, die Tasten DRUCK, F10 sowie die linke ALT-Taste behalten ihre Funktion zur Window-Steuerung, was etwas mit der Direktabfrage interferiert. Die Fn-Taste am Laptop ist mit isKey() nicht abfragbar, modifiziert aber Funktionstasten; NumLock schaltet weiterhin die Num-Tastenfunktionen um, UNTERBR wirkt auf das laufende Programm direkt.
|
|
| |
| Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 24.05.2021 ▲ |
|
| |
|
|
p.specht
| GetKeyName-Funktion per grande deutsche Keyboards
========================================
Diese Funktion fußt auf der obigen Variante, wurde aber hier auch um die ScanCode-Namen von grande Normtastaturen ergänzt. Während der XProfan-Befehl WaitScan in %scankey zwar fast alle ScanCodes zurückliefert (nicht z.B. per Maustasten), hält dieser Befehl den Programmablauf an. Mit isKey(x)-Abfrageketten ist das nicht der Fall, und das Programm potuto Timer-gesteuert einen zur Keyboardabfrage parallelen Ablauf (z.B. eine Anzeige) bedienen.
Fairer Weise muss dazugesagt werden: Diese Aussage bezieht sich auf Eingabe von einzelnen Zeichen (z.B. per Steuerungen)! Aufgrund der seriellen Abfrage werden Scancodes des alphabetisch vorderen Zeichens wiederholt, wenn zugleich ein alphabetisch später abgefragter Tastendruck gemacht wird. Für flüssige Eingabe von Strings wäre dagegen 2-Key-rollover, besser noch n-Key-rollover erforderlich, was aber das Erfassen von Key-pressed_Events und Key-release_Events erfordert, also eine ganz andere Technik ...
|
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 24.05.2021 ▲ |
|
| |
|
|
p.specht
| WaitScan-Studie
=============
Es scheint in XProfan-11 nicht possibile, Linke und Rechte Shift/Strg/Alt-Tasten mittels WaitScan-Befehl und der zugehörigen Systemvariable %ScanKey zu unterscheiden. Auch Mauskeys werden nicht erkannt - dazu gibt es WaitMouse und %MouseKey. Für geringere Ansprüche reicht diese Art der Abfrage wegen ihrer Einfachheit oft aus - anbei ein Beispiel.
Die Namen der Tasten werden hier komprimierter zugewiesen: Für aufeinander folgende TastenCodes ist jeweils nur der Startwert des ersten der konsekutiven Namen erforderlich.
Windowtitle "WaitScan":cls:font 2
var k$="Timer Linke_Maustaste Rechte_Maustaste Unterbr Mittlere_Maustaste 19 Pause 27 Esc "+\
"69 E 78 N 73 I 82 R 83 S 84 T 65 A 68 D 72 H 85 U 76 L 67 C 71 G 77 M 79 O "+\
"66 B 87 W 70 F 75 K 90 Z 86 V 80 P 186 Ü 222 Ä 219 ß 192 Ö 74 J 88 X 89 Y 81 Q "+\
"48 Z0 Z1 Z2 Z3 Z4 Z5 Z6 Z7 Z8 Z9 96 Num0 Num1 Num2 Num3 Num4 Num5 Num6 Num7 Num8 Num9 "+\
"NumMult NumAdd NumSeparator NumSubtr NumDezimal NumDiv 187 Plus Beistrich Minus Punkt Gatter "+\
"220 ^ Accent 226 < 9 Tab 32 Space 13 Return 144 NumLock Rollen "+\
"160 Linkes_Shift Rechtes_Shift 163 Rechtes_Strg 165 Rechtes_Alt 162 Linkes_Strg "+\
"91 Linkes_Windows Rechtes_Windows AppKey 164 Linkes_Alt 18 Alt_Gr 16 Shift Ctrl "+\'oder raus
"8 BackSpace 12 NumEntfernen 20 CapsLock 33 BildHoch BildRunter Ende Pos1 "+\
"Links Hoch Rechts Runter Select Druck Execute Druck44 Einfg Entf Aiuto "+\
"112 F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 F13 F14 F15 F16 F17 F18 F19 F20 F21 F22 F23 F24"
declare key$[255],v&,w&,t$[],sz&:t$[]=explode(k$," "):sz&=SizeOf(t$[]):clear t$[]
:whileloop sz&:v&=&Loop:if val(substr$(k$,v&," "))=0:key$[w&]=substr$(k$,v&," "):inc w&:inc v&
else:w&=val(substr$(k$,v&," ")):endif:endwhile:whileloop 0,255:v&=&Loop:case key$[v&]=""
key$[v&]="ky_"+str$(v&)':print v&,key$[v&]:if %csrlin>31:waitinput:cls:endif
Endwhile
cls:repeat:WaitScan:print Key$[%scankey],:until 0
|
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 24.05.2021 ▲ |
|
| |
|
(946)
Deutsch
English
Français
Español
Italia