COMMANDE SERVO MOTEUR PAR PORT PARALELLE ET INTERNET VB6

Commentaire de soldier8514 le 03/02/2005 04:23:20

bon j' my colle prem's

- déjà t'as un mauvais point vu que tu laisse un exe dans le  zip _ je te dis ça pour t'eviter de te faire incendier .

+ code sympath et lisible  

- pas de commentaires
+ tu utilises un code libre pour acceder au port _ dll dont le source est dispo ici : http://www.logix4u.net  ( fallait le préciser , c toujours bien d'utiliser ce genre de code plutot k1 code propriétaire  )

pour ta fonction d'attente tu pourrais peut etre utilser
la fonction xWait  au lieu de WaitMicroSeconde:

Private Sub xWait(ByVal MilsecToWait As Long)
'fonction d'attente , ki permet d'attendre dans le soft sans le geler comme le fait
' 'Sleep'
On Error Resume Next
        Dim lngEndingTime As Long
    
        lngEndingTime = GetTickCount() + (MilsecToWait)
        
        Do While GetTickCount() < lngEndingTime
            DoEvents
        Loop
        
End Sub


Dans ton module  cette déclaration te sert à rien :
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer

(tu t'en sers jamais dans aucun formulaire et aucun module )



et je trouve très bizarre que tu utilse Option Explicit dans un formulaire ou dans dans un module et pas dans les autres , d'habitude quand on sen sert c'est pour tous les forms et tous les modules  .

Le soft est sympath et utile ;)

Commentaire de sattaz le 03/02/2005 12:56:39

Merci pour tes commentaires soldier8514.

- Je vais corriger d'après tes dires.
-Aussi je pratique VB de temps en temps mais je ne débute pas et je sais que quand j'ai débuté je n'étais pas capable d'interprèter ce type de code c'est pourquoi je l'ai placé en initié. (c'est pas du tout pour me la 'péter' comme tu dis ...
- Si vraiment c'est un code de débutant alors je le déplacerai vers cette section.
- Désolé pour le .exe (pas fait attention ... oups ...)
- Oui j'utilise un dll libre et j'ai pas cité le site auteur ... je vais le rajouter ...
- j'éspère que j'ai pas fait d'autre boulette :)

++

Commentaire de sattaz le 04/05/2005 22:46:41

Salut Egalon,

Non en fait ce programme permet de piloter des servos moteurs de modélisme, c'est à dire positionner un servo moteur au degré près ! je pense que c'est ce dont tu as besoin. Moi pour diriger ma webcam j'ai mis 2 servos moteurs, un qui la dirige en rotation horizontale et un autre qui permet de la baculer de haut en bas (rotation verticale).
Donc pour dire, ce soft n'ouvre pas un bit durant une certaine donné comme tu peux le penser mais envoi un signal allant de 0.5 à 2.5 millisecondes au port // pour positionner le servo moteur en fonction de l'angle choisi, bref c'est un peu plus compliqué que ce que tu pensais mais ça fonctionne nikel !
Si tu as des problèmes pour la connectique des servo moteur au PC je veux bien t'aider mais y'a rien de plus simple (voir la section 'à propos de' du soft, tout est expliqué.)
Aussi tu trouveras des servos moteurs chez n'importe quel revendeur de modélisme (prends les moins chers = 15 Euros grand max)

++

Commentaire de 0liwood le 05/06/2005 21:07:19

Bonjour,

J'ai decouvert cette page par hazard et je souhaiterais utiliser
cette application.
Je ne trouve pas la section 'à propos de' du soft pour comprendre la façon de connecter
les servos et aussi pour utiliser l'application.
Est ce qu'il me faut le logiciel Visual Basic ?

Merci pour votre aide.
@+

Commentaire de 0liwood le 09/06/2005 20:06:55

Merci Sattaz je vais essayer ça.

Commentaire de sattaz le 01/08/2005 10:49:09

Salut Julien,

Pour ton problème de clef physique ce ne sera certainement pas simple car ce n'est surement un simple code qui doit être dans cette fameuse clef mais un algo genre 'le soft envoi un code à la clef sur le port // puis la clef donne une réponse' ...
Même si tu sniff le port // il te faut trouver l'algo pour réaliser un soft de décryptage ... laisse tomber ...
Et puis c'est pas le sujet ici.
Si tu veux des infos sur le port parallele tu trouveras facilement réponse sur VBFRANCE, utilises le moteur de recherche, c'est comme ça que je trouve toutes mes infos.

++

Commentaire de sattaz le 02/09/2005 21:08:07

Bonjour Fred888,

As-tu essayé de regler la rotation max du servo moteur dans la partie 'paramètre' du programme ? (mettre 30 pour un max de rotation)
Si ce n'est pas ça je ne capte pas car le fait de modifier la valeur de rotation max des servos change tout simplement l'échelle des fréquences envoyé au port //. (pas de beaucoup mais par rapport à ce qui est donné par les données techniques des fabriquants de servos)
Dernière solution, essayes d'autres servos-moteurs !

J'éspère que tu arriveras à résoudre ton problème !

++

Seb.

Commentaire de lericardbonnard le 26/12/2005 13:20:38

Salut sattaz, j'ai voulu télécharger ton fichier rar, maiil y a une erreur sur l'archivage," Fin de l'archive non attendue".

Commentaire de 2filles le 26/01/2006 15:00:51

nous devons realiser un projet consituant a faire bouger une d'aile d'avion avec un servo de commande. Nous aimerions savoir comment executer cette action a l'aide d'un programme Labview
merci d'avance c'est tres urgent

Commentaire de bota le 28/03/2006 15:06:35

salut.
svp je veut savoir comment commander sur VB.6 le port // sous XP.

Commentaire de jojoachim le 10/04/2006 15:12:12

salut a tous je voudré consuir un robot commdé avéc ce sitém
par 2 ordila relié avec la wifi un pour le piloté avec le clavié et lotre pour le qui ésécut les ordre

édé moi si vous plait pour me jouindre jojoachim@hotmail.fr

Commentaire de SpaceOne le 28/03/2007 17:51:20

Bonjour.

J'essaye d'utiliser cette source depuis environ une semaine mais je me retrouve toujours confronté au meme probleme.

Quelque soit la position du servo, il part se mettre en buté et à chaque nouvelle commande il force en buté. Et ceci quelque soit le mouvement demandé.

Aurais je raté quelque chose? Une cofiguration particuliere du port //?

Merci par avance de vos conseils.
(Os win xp familial)

Commentaire de Danette le 21/12/2007 05:13:05

Hello sattaz, Just a question: Utilise tu VB pour capturer l'image de ta webcam ? Je cherche le moyen de diffuser ma webcam sur mon propre site et je bute sur ça. J'ai fait le tour de VbFrance mais rien trouvé de concluant. A part la méthode FTP et une page html qui se raffraichis toutes les 5 secondes je cherche un moyen de diffuser en live (streaming video) et surtout de visualiser en live sur le client web (javascript? activx ?)..
Merci de ta future réponse..

Commentaire de papakias le 16/11/2008 12:02:58

Bonjour Sattaz!
Felicitations pour ton travail. C'est le travail que t'as fait pour commender jusqu'a 8 servos par le port //.
En fait, j'ai un probleme avec ca.
J'en suis sur que ca marche chez vous.
Quant je connecte le cable de signal de mon servo dans le 2eme, 3eme, 4eme ... pin de mon port // rien ne se passe.
Seulement mon servo fait une rotation a 100% vers un cote.
J'ai tout essaye. Rieen! Mon servo se fait des rotations des que je touche a la petite cable et je la fais sortir et reconnecte.
Bref, je ne pense pas que c'est le probleme du port, et j'ai bien configure les parametres a ce qu'il soit le premier port //!
Je te remercies.