1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77
| Constante
JOY_BUTTON1 =0x1 //1
JOY_BUTTON2 =0x2 //2
JOY_BUTTON3 =0x4 //4
JOY_BUTTON4 =0x8 //8
JOYERR_BASE =0xA0 //160
JOYERR_NOERROR =0 //0
JOYERR_NOCANDO =(JOYERR_BASE + 6) //166
JOYERR_PARMS =(JOYERR_BASE + 5) //165
JOYERR_UNPLUGGED = (JOYERR_BASE + 7) //167
Fin
//thread
PROCEDURE _EvePedalier()
TraceDébut()
nResult est un entier
nUJoyID est un entier sans signe
nCbjc est un entier sans signe
sResult est une chaîne
//Mettre ces déclarations dans le code d'initialisation (Fenêtre, Projet...)
//********************** Déclaration des structures nécessaires à la fonction de l'API <joyGetDevCaps> :
JOYCAPS est une structure
wMid est un entier sur 2 octets
wPid est un entier sur 2 octets
szPname est une chaîne fixe sur 32
wXmin est un entier sans signe
wXmax est un entier sans signe
wYmin est un entier sans signe
wYmax est un entier sans signe
wZmin est un entier sans signe
wZmax est un entier sans signe
wNumButtons est un entier sans signe
wPeriodMin est un entier sans signe
wPeriodMax est un entier sans signe
wRmin est un entier sans signe
wRmax est un entier sans signe
wUmin est un entier sans signe
wUmax est un entier sans signe
wVmin est un entier sans signe
wVmax est un entier sans signe
wCaps est un entier sans signe
wMaxAxes est un entier sans signe
wNumAxes est un entier sans signe
wMaxButtons est un entier sans signe
szRegKey est une chaîne fixe sur 32
szOEMVxD est une chaîne fixe sur 260
FIN
JOYINFO est une structure
wXpos est un entier sans signe //Type C : UINT
wYpos est un entier sans signe //Type C : UINT
wZpos est un entier sans signe //Type C : UINT
wButtons est un entier sans signe //Type C : UINT
FIN
//********************** Fin de la déclaration des structures pour <joyGetPos>
pjc est un JOYCAPS // Pointeur sur structureJOYCAPS
pji est un JOYINFO // Pointeur sur structureJOYINFO
//********************** Fin de la déclaration des structures pour <joyGetDevCaps>
//nResult=AppelDLL32("WINMM.DLL","joyGetDevCapsA",nUJoyID,&pjc,nCbjc)
//nResult=AppelDLL32("WINMM.DLL","joyGetNumDevs")
nResult=AppelDLL32("WINMM.DLL","joyGetPosEx",nUJoyID,&pji)
SELON nResult
CAS JOY_BUTTON1 : sResult=" Bouton 1"
CAS JOY_BUTTON2 : sResult=" Bouton 2"
CAS JOY_BUTTON3 : sResult=" Bouton 3"
CAS JOY_BUTTON4 : sResult=" Bouton 4"
CAS JOYERR_BASE : sResult=" Configuration de base "
CAS JOYERR_NOERROR : sResult=" Pas d'erreur "
CAS JOYERR_NOCANDO : sResult=" NOCANDO"
CAS JOYERR_PARMS : sResult=" Problème de configuration "
CAS JOYERR_UNPLUGGED : sResult=" Pas de connexion du pédalier "
AUTRE CAS
FIN
Trace(nResult,sResult,pji.wButtons) |
Partager