Experimente | | | | | 
p.specht
 | Info: The windows-Funktionstaste, The Keys DRUCK, F10 as well as The left ALT-Button keep your function to Window-Control, what something with the Direktabfrage interferiert. The Fn-Button on the Laptop is with isKey() not abfragbar, modifiziert but Funktionstasten; NumLock toggles furthermore The Num-Tastenfunktionen circa, UNTERBR works the ongoing Program directly.
|
| | | | Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 05/24/21 ▲ |
| | |
| |
p.specht
| GetKeyName-function for large German Keyboards
========================================
These function fußt on the obigen Variante, watts but here too around the ScanCode-names of large Normtastaturen complement. During the XProfan-commands WaitScan in %scankey of course almost any ScanCodes returns (not z.B. for Mouse buttons), holds this commands whom Programmablauf on. with isKey(x)-Abfrageketten is not the case, and the program could Timer-gesteuert a to Keyboardabfrage parallelen term (z.B. a display) valet.
Fairer point must dazugesagt go: These testimony relating itself on input of individual characters (z.B. for Steuerungen)! because of the seriellen request go Scancodes the alphabetical vorderen Zeichens repeatedly, if zugleich one alphabetical later abgefragter Tastendruck made becomes. for flüssige input of Strings would against it 2-Key-rollover, rather yet n-Key-rollover necessary, what but the Erfassen of Key-pressed_Events and Key-release_Events requires, means a integrally others engineering ...
|
| | | | XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 05/24/21 ▲ |
| | |
| |
p.specht
| WaitScan-investigation
=============
it shining in XProfan-11 you don't say so, left and rights Invoice values/Strg/old-Keys through WaitScan-commands and the pertinent Systemvariable %ScanKey To discern. too Mauskeys go not recognized - moreover there WaitMouse and %MouseKey. for geringere Ansprüche reicht these manner the request because of yours Simplicity often from - enclosed an example.
The names the Keys go here komprimierter allocated: for one after another following TastenCodes is each only the Startwert the first the konsekutiven names necessary.
Windowtitle "WaitScan":cls:font 2
var k$="Timer Linke_Maustaste Rechte_Maustaste Unterbr Mittlere_Maustaste 19 interval 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 less point Gatter "+\
"220 ^ Accent 226 < 9 tab 32 Space 13 Return 144 NumLock rumble "+\
"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 Invoice values Ctrl "+\'or out
"8 BackSpace 12 NumEntfernen 20 CapsLock 33 BildHoch BildRunter end Pos1 "+\
"Links high right down Select pressure Execute pressure44 Einfg Entf Help "+\
"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_"+st$(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'... | 05/24/21 ▲ |
| | |
|
Zum ExperimentThemeninformationenthis Topic has 1 subscriber: |
(5.683)
Deutsch
English
Français
Español
Italia