Accueil > > > COMPOSANT POUR GÉRER WIIMOTE(S) + NUNCHUK
COMPOSANT POUR GÉRER WIIMOTE(S) + NUNCHUK
Information sur la source
Description
Bonjour tout le monde, Le composant qui se trouve dans le zip permet d’utiliser une (ou plusieurs) Wiimote dans vos projets Delphi, et le programme qui l’accompagne est un exemple que j’ai fait très rapidement pour montrer comment se servir du composant. C’est le premier composant que je fais donc tout le code n’est peut être pas optimisé, donc j’espère que vous serez indulgent XD, j’ai essayé de commenter le composant le plus possible pour que ce soit le plus clair possible. Pour l’utiliser, vous avez impérativement besoin d’avoir installé le Composant HIDKomponent que vous pouvez trouver sur ce site : http://www.delphi-gems.com dans la partie All Download. Et vous trouverez très facilement sur internet, la procedure pour connecter la Wiimote au PC. ( pour ceux qui ont Vista, il faut la version 5.x.x de BlueSoleil que vous trouverez ici : http://www.bluesoleil.com/download/ sinon ça ne fonctionne pas). Le seul inconvénient, est que pour pouvoir gérer plusieurs wiimote en même temps (je n’ai testé qu’avec deux) j’ai du modifier une fonction du composant HIDKomponent, la modification à faire est expliquée un peu plus bas et dans le code.
Source
- //Pour gérer plusieurs wiimotes en même temps, il faut modifier une fonction du composant //HIDKomponent
- //dans l'unité:
- //JvHidControllerClass, la fonction CheckOutByID (~2100 eme ligne) il faut lui rajouté un //parametre et une petite ligne,
-
- //modifier l'entête :
- function TJvHidDeviceController.CheckOutByID(var HidDev: TJvHidDevice; const Vid, Pid: Integer): Boolean;
- //***par***//
- function TJvHidDeviceController.CheckOutByID(var HidDev: TJvHidDevice; const Vid, Pid: Integer; NumWiimote: Integer = 0): Boolean;
-
- //et la fonction
-
- function TJvHidDeviceController.CheckOutByID(var HidDev: TJvHidDevice;
- const Vid, Pid: Integer): Boolean;
- var
- I: Integer;
- begin
- Result := False;
- HidDev := nil;
- for I := 0 to FList.Count - 1 do
- begin
- Result := CheckThisOut(HidDev, I, (Vid = TJvHidDevice(FList[I]).Attributes.VendorID) and
- ((Pid = TJvHidDevice(FList[I]).Attributes.ProductID) or (Pid = -1)));
- if Result then
- Break;
- end;
- end;
-
- //***par***//
-
- function TJvHidDeviceController.CheckOutByID(var HidDev: TJvHidDevice;
- const Vid, Pid: Integer; NumWiimote: Integer = 0): Boolean;
- var
- I: Integer;
- begin
- Result := False;
- HidDev := nil;
- for I := 0 to FList.Count - 1 do
- begin
- if I < NumWiimote-1 then continue; //Ligne rajoutée
- Result := CheckThisOut(HidDev, I, (Vid = TJvHidDevice(FList[I]).Attributes.VendorID) and
- ((Pid = TJvHidDevice(FList[I]).Attributes.ProductID) or (Pid = -1)));
- if Result then
- Break;
- end;
- end;
//Pour gérer plusieurs wiimotes en même temps, il faut modifier une fonction du composant //HIDKomponent
//dans l'unité:
//JvHidControllerClass, la fonction CheckOutByID (~2100 eme ligne) il faut lui rajouté un //parametre et une petite ligne,
//modifier l'entête :
function TJvHidDeviceController.CheckOutByID(var HidDev: TJvHidDevice; const Vid, Pid: Integer): Boolean;
//***par***//
function TJvHidDeviceController.CheckOutByID(var HidDev: TJvHidDevice; const Vid, Pid: Integer; NumWiimote: Integer = 0): Boolean;
//et la fonction
function TJvHidDeviceController.CheckOutByID(var HidDev: TJvHidDevice;
const Vid, Pid: Integer): Boolean;
var
I: Integer;
begin
Result := False;
HidDev := nil;
for I := 0 to FList.Count - 1 do
begin
Result := CheckThisOut(HidDev, I, (Vid = TJvHidDevice(FList[I]).Attributes.VendorID) and
((Pid = TJvHidDevice(FList[I]).Attributes.ProductID) or (Pid = -1)));
if Result then
Break;
end;
end;
//***par***//
function TJvHidDeviceController.CheckOutByID(var HidDev: TJvHidDevice;
const Vid, Pid: Integer; NumWiimote: Integer = 0): Boolean;
var
I: Integer;
begin
Result := False;
HidDev := nil;
for I := 0 to FList.Count - 1 do
begin
if I < NumWiimote-1 then continue; //Ligne rajoutée
Result := CheckThisOut(HidDev, I, (Vid = TJvHidDevice(FList[I]).Attributes.VendorID) and
((Pid = TJvHidDevice(FList[I]).Attributes.ProductID) or (Pid = -1)));
if Result then
Break;
end;
end;
Conclusion
le seul fait de déposer le composant sur la fiche et lancer le programme ne suffit pas à se "connecter" à la wiimote, il faut également se servir des fonctions Wiimote1.RunWiimote ; et Wiimote1.StopWiimote ; Ça sera corrigé pour qu’il n’y ai plus ces lignes à ajouter.
Je me suis aidé de la source du logiciel WiinRemote (http://onakasuita.org/wii/index-e.html) pour l’envoi de donnée à la wiimote, et pour les jolis graphiques représentant les accéléromètres. Et surtout du site Wiili.Org pour leur super travail sur le décodage de la wiimote : http://www.wiili.org/Wiimote http://www.wiili.or g/index.php/Wiimote/Extension_Controllers/Nunchuk j'espere que ce composant sera util :P
Fichier Zip
Historique
- 22 novembre 2007 19:30:29 :
- Les informations sur le niveau de la batterie étaient fausses
les variables pour calibrer le accélérométres et le joystick du nunchuk étaient en "dur", je les ai passé en propriétés du composant
correction d'un bug lors de l'appel à la procedure StopWiimote sans avoir fait RunWiimote avant
Detection imédiate des valeurs envoyées par la wiimote dès le lancement du programme
- 03 décembre 2007 19:55:28 :
- Ajout de la gestion de l'Infrarouge, et j'ai refait un peu mieu le programme exemple fournit avec le composant
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
port infrarouge telecommande [ par Laurent10000 ]
BonjourJe cherche a recevoir des informations par un port infrarougePouvez vous m'aider ?Pourquoi faire me direz vous ?Je voudrais faire un logiciel d
|
Derniers Blogs
CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET IIS7 - COMPRESSION GZIPIIS7 - COMPRESSION GZIP par cyril
La compression GZIP permet d'améliorer les performances de navigation en compressant ce qu'envoie le serveur à un client. Pour comprendre comment cela fonctionne, regardons ce qu'il se passe au niveau HTTP lorsqu'un client tente d'accéder à une ress...
Cliquez pour lire la suite de l'article par cyril
Logiciels
Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning Academy System (17.1.3.0)ACADEMY SYSTEM (17.1.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|