| |
|
|
p.specht
| Das Progi macht nix anderes als IM INTERPRETER mit den LED der Tastatur zu blinken (und zu beepen). Verwendung auf eigene Gefahr! Interessant: Das XProfan-11-Compilat löst den Waitinput-Timer aus - eigenartiger Unterschied, corre daher schneller! ABHILFE: 2 x Waitinput 333 statt 1 mal!
WindowStyle 24:Window 200,10-150,0:var n&=10:sendkey(%hwnd,$14)
whileloop n&-1,0,-1:cls 255:Windowtitle "BlinkLEDs "+str$(&Loop)
sendkey(%hwnd,$90):sendkey(%hwnd,$14):sound 2000,23:waitinput 333:waitinput 333
cls:sendkey(%hwnd,$91):sendkey(%hwnd,$14):waitinput 333:waitinput 333
endwhile:sendkey(%hwnd,$14):end
' Für Experimente:
'1 $01 Linke Maustaste VK_LBUTTON '2 $02 Rechte Maustaste VK_RBUTTON
'3 $03 Strg-Unterbrechung VK_CANCEL '4 $04 Mittlere Maustaste VK_MBUTTON
'8 $08 BackSpace VK_BACK '9 $09 Tab-Taste VK_TAB '12 $0C Entfernen VK_CLEAR
'13 $0D Return VK_RETURN '16 $10 Shift VK_SHIFT '17 $11 Strg VK_CONTROL
'18 $12 Alt / Menü VK_MENU '19 $13 Pause VK_PAUSE '20 $14 CapsLock VK_CAPITAL
'27 $1B Esc VK_ESCAPE '32 $20 Space VK_SPACE
'33 $21 BildHoch VK_PRIOR '34 $22 BildRunter VK_NEXT
'35 $23 Ende VK_END '36 $24 Pos1 VK_HOME '37 $25 Links VK_LEFT
'38 $26 Hoch VK_UP '39 $27 Rechts VK_RIGHT '40 $28 Runter VK_DOWN
'41 $29 Select VK_SELECT '42 $2A Druck VK_PRINT '43 $2B Execute VK_EXECUTE
'44 $2C Druck VK_SNAPSHOT '45 $2D Einfg VK_INSERT '46 $2E Entf VK_DELETE
'47 $2F Aiuto VK_HELP
'48 $30 Taste 0 VK_0 '49 $31 Taste 1 VK_1 '50 $32 Taste 2 VK_2 '51 $33 Taste 3 VK_3
'52 $34 Taste 4 VK_4 '53 $35 Taste 5 VK_5 '54 $36 Taste 6 VK_6 '55 $37 Taste 7 VK_7
'56 $38 Taste 8 VK_8 '57 $39 Taste 9 VK_9 '65 $41 Taste A VK_A '66 $42 Taste B VK_B
'67 $43 Taste C VK_C '68 $44 Taste D VK_D '69 $45 Taste E VK_E '70 $46 Taste F VK_F
'71 $47 Taste G VK_G '72 $48 Taste H VK_H '73 $49 Taste I VK_I '74 $4A Taste J VK_J
'75 $4B Taste K VK_K '76 $4C Taste L VK_L '77 $4D Taste M VK_M '78 $4E Taste N VK_N
'79 $4F Taste O VK_O '80 $50 Taste P VK_P '81 $51 Taste Q VK_Q '82 $52 Taste R VK_R
'83 $53 Taste S VK_S '84 $54 Taste T VK_T '85 $55 Taste U VK_U '86 $56 Taste V VK_V
'87 $57 Taste W VK_W '88 $58 Taste X VK_X '89 $59 Taste Y VK_Y '90 $5A Taste Z VK_Z
'91 $5B VK_LWIN '92 $5C VK_RWIN '93 $5D VK_APPS
'96 $60 Num Tastenblock 0 VK_NUMPAD0 '97 $61 Num Tastenblock 1 VK_NUMPAD1
'98 $62 Num Tastenblock 2 VK_NUMPAD2 '99 $63 Num Tastenblock 3 VK_NUMPAD3
'100 $64 Num Tastenblock 4 VK_NUMPAD4 '101 $65 Num Tastenblock 5 VK_NUMPAD5
'102 $66 Num Tastenblock 6 VK_NUMPAD6 '103 $67 Num Tastenblock 7 VK_NUMPAD7
'104 $68 Num Tastenblock 8 VK_NUMPAD8 '105 $69 Num Tastenblock 9 VK_NUMPAD9
'106 $6A Multiplikationstaste (*) VK_MULTIPLY '107 $6B Additionstaste (+) VK_ADD
'108 $6C Separatortaste VK_SEPARATOR '109 $6D Subtraktionstaste (-) VK_SUBTRACT
'110 $6E Dezimaltaste (,) VK_DECIMAL '111 $6F Divisionstaste (/) VK_DIVIDE
'112 $70 F1 VK_F1 '113 $71 F2 VK_F2 '114 $72 F3 VK_F3 '115 $73 F4 VK_F4
'116 $74 F5 VK_F5 '117 $75 F6 VK_F6 '118 $76 F7 VK_F7 '119 $77 F8 VK_F8
'120 $78 F9 VK_F9 '121 $79 F10 VK_F10 '122 $7A F11 VK_F11 '123 $7B F12 VK_F12
'124 $7C F13 VK_F13 '125 $7D F14 VK_F14 '126 $7E F15 VK_F15 '127 $7F F16 VK_F16
'128 $80 F17 VK_F17 '129 $81 F18 VK_F18 '130 $82 F19 VK_F19 '131 $83 F20 VK_F20
'132 $84 F21 VK_F21 '133 $85 F22 VK_F22 '134 $86 F23 VK_F23 '135 $87 F24 VK_F24
'144 $90 Numlocktaste VK_NUMLOCK '145 $91 Rollentaste VK_SCROLL
'160 $A0 Linke Shift-Taste VK_LSHIFT '161 $A1 Rechte Shift-Taste VK_RSHIFT
'162 $A2 Linke Strg-Taste VK_LCONTROL '163 $A3 Rechte Strg-Taste VK_RCONTROL
'164 $A4 Linke Alt-Taste VK_LMENU '165 $A5 Rechte Alt-Tast VK_RMENU
|
|
|
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 29.05.2021 ▲ |
|
|
|