English
Experimente

Keyboard-LED-Blinker (10 x)

 

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 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
05/29/21  
 



Zum Experiment


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

1.015 Views

Untitledvor 0 min.
E.T.11/28/23
Ernst07/21/21
Uwe ''Pascal'' Niemeier06/13/21
Thomas Zielinski06/07/21
More...

Themeninformationen

this Topic has 1 subscriber:

p.specht (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie