Page 1 sur 1

Fonctions keyboard() avec la console ??

Publié : mer. 21/juin/2006 18:53
par Fortix
salut à tous, j'aimerais savoir comment on utilise toutes les fonctions Keyboard() avec une fenêtre du type Console() :roll: surtous pour la fonction Keyboardpush() que j'aimerai faire intervenir dans mon projet, merci à tous :D

Publié : mer. 21/juin/2006 22:53
par Anonyme
Salut Fortix,
La fonction GetAsyncKeyState_ répond à ta demande
Code:
Repeat
Until GetAsyncKeyState_(#VK_ESCAPE)

Le programme boucle jusqu'à ce que escape soit pressée.
Bonne continuation
ca foit fonctionner aussi logiquement :wink:

@++

Publié : ven. 23/juin/2006 17:05
par Fortix
Allon! Allon! Un Remerciement Royal pour Mister Cpl.Bator :D
aller 1........ 2......... eeeeettttttt 3333333333333333333333333333333333
MMMMMMMMMMeRRRRRRRRRRRcIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII

Publié : sam. 24/juin/2006 15:50
par Fortix
oui mais sa ne marche pas! :roll: !:

Code : Tout sélectionner

Repeat

If InitKeyboard()
  ExamineKeyboard()
Else
  End
EndIf

If KeyboardPushed(#PB_Key_All)    
  Beep_(400,50)
EndIf

Until GetAsyncKeyState_(#VK_ESCAPE)
mais où est la faute :?:

Publié : sam. 24/juin/2006 16:01
par olivier
Je pense qu'il penssait plus à un truc comme le code ci dessous.

En fait ne pas utiliser initkeyboard !

Code : Tout sélectionner

Repeat 
Delay(100)
   If GetAsyncKeyState_(#VK_a) : Debug "touche A" : EndIf
   If GetAsyncKeyState_(#VK_b) : Debug "touche B" : EndIf
Until GetAsyncKeyState_(#VK_ESCAPE) 
PS : Liste ds VK
; Symbolic constant name Value (hexadecimal) Mouse Or keyboard equivalent
; VK_LBUTTON 01 Left mouse button
; VK_RBUTTON 02 Right mouse button
; VK_CANCEL 03 Control-break processing
; VK_MBUTTON 04 Middle mouse button (three-button mouse)
; ¾ 05-07 Undefined
; VK_BACK 08 BACKSPACE key
; VK_TAB 09 TAB key
; ¾ 0A-0B Undefined
; VK_CLEAR 0C CLEAR key
; VK_RETURN 0D ENTER key
; ¾ 0E-0F Undefined
; VK_SHIFT 10 SHIFT key
; VK_CONTROL 11 CTRL key
; VK_MENU 12 ALT key
; VK_PAUSE 13 PAUSE key
; VK_CAPITAL 14 CAPS LOCK key
; ¾ 15-19 Reserved for Kanji systems
; ¾ 1A Undefined
; VK_ESCAPE 1B ESC key
; ¾ 1C-1F Reserved for Kanji systems
; VK_SPACE 20 SPACEBAR
; VK_PRIOR 21 PAGE UP key
; VK_NEXT 22 PAGE DOWN key
; VK_END 23 END key
; VK_HOME 24 HOME key
; VK_LEFT 25 LEFT ARROW key
; VK_UP 26 UP ARROW key
; VK_RIGHT 27 RIGHT ARROW key
; VK_DOWN 28 DOWN ARROW key
; VK_SELECT 29 SELECT key
; ¾ 2A Original equipment manufacturer (OEM) specific
; VK_EXECUTE 2B EXECUTE key
; VK_SNAPSHOT 2C PRINT SCREEN key for Windows 3.0 and later
; VK_INSERT 2D INS key
; VK_DELETE 2E DEL key
; VK_HELP 2F HELP key
; VK_0 30 0 key
; VK_1 31 1 key
; VK_2 32 2 key
; VK_3 33 3 key
; VK_4 34 4 key
; VK_5 35 5 key
; VK_6 36 6 key
; VK_7 37 7 key
; VK_8 38 8 key
; VK_9 39 9 key
; ¾ 3A-40 Undefined
; VK_A 41 A key
; VK_B 42 B key
; VK_C 43 C key
; VK_D 44 D key
; VK_E 45 E key
; VK_F 46 F key
; VK_G 47 G key
; VK_H 48 H key
; VK_I 49 I key
; VK_J 4A J key
; VK_K 4B K key
; VK_L 4C L key
; VK_M 4D M key
; VK_N 4E N key
; VK_O 4F O key
; VK_P 50 P key
; VK_Q 51 Q key
; VK_R 52 R key
; VK_S 53 S key
; VK_T 54 T key
; VK_U 55 U key
; VK_V 56 V key
; VK_W 57 W key
; VK_X 58 X key
; VK_Y 59 Y key
; VK_Z 5A Z key
; ¾ 5B-5F Undefined
; VK_NUMPAD0 60 Numeric keypad 0 key
; VK_NUMPAD1 61 Numeric keypad 1 key
; VK_NUMPAD2 62 Numeric keypad 2 key
; VK_NUMPAD3 63 Numeric keypad 3 key
; VK_NUMPAD4 64 Numeric keypad 4 key
; VK_NUMPAD5 65 Numeric keypad 5 key
; VK_NUMPAD6 66 Numeric keypad 6 key
; VK_NUMPAD7 67 Numeric keypad 7 key
; VK_NUMPAD8 68 Numeric keypad 8 key
; VK_NUMPAD9 69 Numeric keypad 9 key
; VK_MULTIPLY 6A Multiply key
; VK_ADD 6B Add key
; VK_SEPARATOR 6C Separator key
; VK_SUBTRACT 6D Subtract key
; VK_DECIMAL 6E Decimal key
; VK_DIVIDE 6F Divide key
; VK_F1 70 F1 key
; VK_F2 71 F2 key
; VK_F3 72 F3 key
; VK_F4 73 F4 key
; VK_F5 74 F5 key
; VK_F6 75 F6 key
; VK_F7 76 F7 key
; VK_F8 77 F8 key
; VK_F9 78 F9 key
; VK_F10 79 F10 key
; VK_F11 7A F11 key
; VK_F12 7B F12 key
; VK_F13 7C F13 key
; VK_F14 7D F14 key
; VK_F15 7E F15 key
; VK_F16 7F F16 key
; VK_F17 80H F17 key
; VK_F18 81H F18 key
; VK_F19 82H F19 key
; VK_F20 83H F20 key
; VK_F21 84H F21 key
; VK_F22 85H F22 key
; VK_F23 86H F23 key
; VK_F24 87H F24 key
; ¾ 88-8F Unassigned
; VK_NUMLOCK 90 NUM LOCK key
; VK_SCROLL 91 SCROLL LOCK key
; ¾ 92-B9 Unassigned
; ¾ BA-C0 OEM specific
; ¾ C1-DA Unassigned
; ¾ DB-E4 OEM specific
; ¾ E5 Unassigned
; ¾ E6 OEM specific
; ¾ E7-E8 Unassigned
; ¾ E9-F5 OEM specific
; ¾ F6-FE Unassigned
;
;

Publié : sam. 24/juin/2006 16:02
par Anonyme
-InitKeyboard() ne fonctionne que si il y a un ecran
-tu initialises plusieurs fois le clavier dans ta boucle principale
-tu mélanges GetAsyncKeyState_() avec KeyboardPushed()
alors que GetAsyncKeyState_() suffit, trouve la constante équivalente à #pb_key_all

Code : Tout sélectionner

Repeat 

If GetAsyncKeyState_(#VK_?)    
  Beep_(400,50) 
EndIf 

Until GetAsyncKeyState_(#VK_ESCAPE) 
@+

Publié : sam. 24/juin/2006 16:05
par Fortix
Un grand Merci à vous tous!

Publié : sam. 24/juin/2006 16:05
par Gillou
Les fonctions keyboard (mode screen) de pb et GetAsyncKeyState ne se combine pas. aussi évite d'initialisé le clavier dans une boucle ;)

je t'ai fait ça un peu à l'arrache

Code : Tout sélectionner

Repeat
For a=1 To 200
If GetAsyncKeyState_(a)
If a=#PB_Shortcut_Escape
quit=1
EndIf
Beep_(400,200)
EndIf
Next
Delay(10)
Until  Quit=1