JOYSTICK ET AUTRES MANETTES DE JEU (OPTIMISÉ)

Signaler
Messages postés
2075
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
16 mars 2020
-
Messages postés
25
Date d'inscription
mercredi 20 décembre 2000
Statut
Membre
Dernière intervention
28 octobre 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/18685-joystick-et-autres-manettes-de-jeu-optimise

Messages postés
25
Date d'inscription
mercredi 20 décembre 2000
Statut
Membre
Dernière intervention
28 octobre 2009

Ok j'ai trouvé :
For i% = 0 To 30
' Teste chaque bouton
If (Manette.dwButtons And (2 ^ i%)) > 0 Then
C = vbGreen ' bouton appuyé
Text1.Text = Manette.dwButtons ' renvoi le nbs calculé (on peut ensuite faire un routine qui pour chaque calcul unique renvoi un numéro de bouton choisi)

Else
C = vbRed ' bouton relaché
End If
Messages postés
25
Date d'inscription
mercredi 20 décembre 2000
Statut
Membre
Dernière intervention
28 octobre 2009

Salut, ta source tombe bien car j'ai besoin de faire un petit soft perso pour emuler 30 boutons avec des touches clavier.

En modifiant un poil ta source je fait bien apparaitre mes 30 boutons qui s'allume en vert lorsque j'appuie dessus. Je souhaitera pouvoir recuperer le numero du bouton sur lequel j'appuie. Peux tu m'aider stp
Messages postés
2
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
5 mars 2008

Salut à tous et merci pour la source, elle fonctionne à merveille.
Simple, sobre et efficace !
Donc mille mercis.
jean-pierre
Messages postés
2075
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
16 mars 2020
2
pekch ==|> Si tu fait référence à moi, je ne vois pas où est le problème.

En ce qui concerne les pads PSX, tout dépend de l'adaptateur utilisé ...
Afficher les 8 commentaires