| |
|
|
p.specht
| the Progi power nothing other as IN INTERPRETER with the LED the keyboard To glint (and To beepen). usage on Own menace! interestingly: the XProfan-11-Compilat resolve whom Waitinput-Timer from - eigenartiger Difference, runs therefore faster! ABHILFE: 2 x Waitinput 333 instead of 1 time!
Window Style 24:Window 200,10-150,0:var n&=10:Global(%hwnd,$14)
whileloop n&-1,0,-1:cls 255:Windowtitle "BlinkLEDs "+st$(&Loop)
Global(%hwnd,$90):Global(%hwnd,$14):sound 2000,23:waitinput 333:waitinput 333
cls:Global(%hwnd,$91):Global(%hwnd,$14):waitinput 333:waitinput 333
endwhile:Global(%hwnd,$14):end
' for Experimente:
'1 $01 left Mouse button VK_LBUTTON '2 $02 rights Mouse button VK_RBUTTON
'3 $03 Strg-disruption VK_CANCEL '4 $04 Mittlere Mouse button VK_MBUTTON
'8 $08 BackSpace VK_BACK '9 $09 tab-Button VK_TAB '12 $0C Remove VK_CLEAR
'13 $0D Return VK_RETURN '16 $10 Invoice values VK_SHIFT '17 $11 Strg VK_CONTROL
'18 $12 old / Menu VK_MENU '19 $13 interval 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 end VK_END '36 $24 Pos1 VK_HOME '37 $25 left VK_LEFT
'38 $26 high VK_UP '39 $27 right VK_RIGHT '40 $28 down VK_DOWN
'41 $29 Select VK_SELECT '42 $2A pressure VK_PRINT '43 $2B Execute VK_EXECUTE
'44 $2C pressure VK_SNAPSHOT '45 $2D Einfg VK_INSERT '46 $2E Entf VK_DELETE
'47 $2F Help VK_HELP
'48 $30 Button 0 VK_0 '49 $31 Button 1 VK_1 '50 $32 Button 2 VK_2 '51 $33 Button 3 VK_3
'52 $34 Button 4 VK_4 '53 $35 Button 5 VK_5 '54 $36 Button 6 VK_6 '55 $37 Button 7 VK_7
'56 $38 Button 8 VK_8 '57 $39 Button 9 VK_9 '65 $41 Button A VK_A '66 $42 Button B VK_B
'67 $43 Button C VK_C '68 $44 Button D VK_D '69 $45 Button E VK_E '70 $46 Button F VK_F
'71 $47 Button G VK_G '72 $48 Button H VK_H '73 $49 Button I VK_I '74 $4A Button J VK_J
'75 $4B Button k VK_K '76 $4C Button L VK_L '77 $4D Button M VK_M '78 $4E Button n VK_N
'79 $4F Button O VK_O '80 $50 Button P VK_P '81 $51 Button Q VK_Q '82 $52 Button R VK_R
'83 $53 Button s VK_S '84 $54 Button T VK_T '85 $55 Button u VK_U '86 $56 Button V VK_V
'87 $57 Button W VK_W '88 $58 Button X VK_X '89 $59 Button Y VK_Y '90 $5A Button 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 left Invoice values-Button VK_LSHIFT '161 $A1 rights Invoice values-Button VK_RSHIFT
'162 $A2 left Strg-Button VK_LCONTROL '163 $A3 rights Strg-Button VK_RCONTROL
'164 $A4 left old-Button VK_LMENU '165 $A5 rights old-Tast VK_RMENU
|
|
|
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 05/29/21 ▲ |
|
|
|