Italia
Experimente

Keyboard-LED-Blinker (10 x)

 

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



Zum Experiment


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

1.018 Views

Untitledvor 0 min.
E.T.28.11.2023
Ernst21.07.2021
Uwe ''Pascal'' Niemeier13.06.2021
Thomas Zielinski07.06.2021
Di più...

Themeninformationen

Dieses Thema hat 1 subscriber:

p.specht (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie