COMMANDE SERVO MOTEUR PAR PORT PARALELLE ET INTERNET VB6
soldier8514
Messages postés
295
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
24 janvier 2014
-
3 févr. 2005 à 04:23
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 11 janv. 2012 à 18:54
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 11 janv. 2012 à 18:54
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/29258-commande-servo-moteur-par-port-paralelle-et-internet-vb6
https://codes-sources.commentcamarche.net/source/29258-commande-servo-moteur-par-port-paralelle-et-internet-vb6
11 janv. 2012 à 18:54
1ms = 0° 1.5ms=45° et enfin 2ms = 90°
voila. cordialement.
3 mai 2011 à 11:06
Merci pour ces précisions
Effectivement le servo risquerait de trembler.
Cependant, je me demande comment vous faite pour transformer l'angle en fréquence, Car dans le programme vous réaliser plusieurs fois un gros calcul.(pourriez vous me l'expliquez ici ou en message privé si vous préférer)
Et Je souhaiterais aussi savoir comment vous faites pour modifier la valeur de fréquence, car les scrolls bar sortent un angle et vous envoyer une fréquence au servo. ??
Merci
2 mai 2011 à 19:53
Oulala un nouveau commentaire sur ma petite source préféré à l'époque, ça fait plaisir :)
Oui vous avez raison, il faut constament garder un signal sur un servo moteur pour qu'il reste en position avec son couple ... mais ce petit programme utilise le port parallèle qui à de telles fréquences ne s'en sort pas trop bien (c'est pas très stable).
J'utilisai ce soft pour positionner une webcam, donc pas besoin de 'pulser' le servo moteur une fois la position prise.
Aussi, étant donné que le signal du port parallèle n'est pas stable dans ces fréquences, si vous laissiez le signal de sortie actif, le servo tremblerait ...
C'est la qu'intervient la fonction 'microseconde' (je j'ai pris sur le forum il me semble) pour ouvrir et fermer une sortie du port parallèle en fonction de la fréquence choisi (l'angle converti en fréquence).
Sans avoir relus le code, il me semble que cette fonction utilise le tick processeur pour obtenir un calcul très précis, ce que le timer de VB6 ne permettait pas ...
Voilà, j'éspère que celà répond à vos questions.
Je ne mettrai pas de code compilé sur le web car cette source est obsolète mais montre quand même ce qu'il est capable de faire sans électronique.
Maintenant pour dela webcam IP, on en trouve à pas cher du tout un peu partout ...
@++
2 mai 2011 à 19:15
Etant novice en VB et passioné par la robotique. J'ai trouver cet programme très bien fait.
j'ai essayer de comprendre comment vous avez réaliser votre programme.
Cependant je ne comprend pas plusieurs chose. Pourriez vous m'expliquer ?
1 à quoi sert la fonction waitmicroseconde et comment savoir son temps d'attente?
2 j'aurais aimé savoir comment vous faites pour permettre au servos de garder le couple alors que vous n'envoyer la commande sortie qu'à chaque modification d'une valeur via les scrolls barre et les boutons (timer1 qui appelle sortie() ), alors qu'il faut garder le signal code pulsé constamment
17 janv. 2011 à 11:32
Dommage pour les liens, ca avait l'air fort intéressant.
29 avril 2010 à 10:28
j ai télécharger le fichier zip mais je vois d exe comment l installer ?
pouvez vous m expliquer car débute
merci d avance
14 févr. 2010 à 01:01
1 août 2009 à 03:13
juste pour te dire merci beaucoup pour ce programme qui me sera bien utile (pour de la robotique) , peut etre aurai-je besoin de le modifier pour certaine actions, comme assigner des racourcis ou memoriser une suite de mouvement... j'aurai peut etre besoin d'aide, pour l'instant je ne peux rien tenter etant donner que je ne disposerai de mon ordi fixe que dans quelque temps(donc pas de port //...
Je te remerci encore @+
yanniv
10 janv. 2009 à 20:06
10 janv. 2009 à 15:48
16 nov. 2008 à 12:02
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.
23 déc. 2007 à 10:16
Tout d'abord pour répondre à la question de la posisiton en buté du servo-moteur : effectivement en ayant fait des tests sur différentes cartes mère, il s'avère que sur certaines le servo-moteur réagit bien avec le programme et avec d'autres j'ai les même sympthomes que vous décrivez, ce la n'a rien à voir avec la durée de positionement ... le programme envoie la fréquence pour la rotation du servo moteur pendant 2 secondes, ceci afin d'éviter les tremblement du servo moteur une fois positioné ...
Désolé mais je n'ai pas encore trouvé de solution à ce problème (pas de temps), j'ai essayé qq règlages différents au niveau du port // mais ça ne donne rien pour l'instant.
Danette, à ta question je te conseil de te focaliser sur le plugin VLC qui est gratuit et libre d'utilisation dans tes applications privée. Avec le plugin tu pourras faire du vrai streaming vidéo et audio sur le net.
Regardes sur les différents forum au sujet de VLC dans un code VB, il y a pas mal d'exemples... moi je l'ai intégré dans des applis pour faire du streaming video et c'est vraiment stable et effficace. Il fait même la compression live de ta source pour diffuser sur le web en toute fluidité, biensur tout cela se paramètrera dans ton code.
Voici le lien dun de mes sources qui utilise VLC pour faire ce dont tu as besoin :
http://www.vbfrance.com/codes/DREAMBOX-MEDIA-STREAMER-SERVER_38857.aspx
@++ et bonnes fêtes de fin d'année !
21 déc. 2007 à 05:13
Merci de ta future réponse..
15 mai 2007 à 10:44
Pour répondre à SpaceOne, j'ai testé ce programme au boulot (Win XP pro). Après branchement du servo sur le port // (DB25 male broche 2) et lancement du logiciel, le servo se mettait systématiquement en butée et chauffait dès que je faisais un changement d'angle. j'ai décidé de le démonter pour le laisser libre. Je me suis apercut que pour un clic, le moteur tournait pendant environ 2 secondes puis s'arrêtait. Déduction, le programme fonctionne mais il faut adapter le temps de rotation au plus court pour obtenir un débattement plus précis en fonction du modèle de servo utilisé (dans mon cas un micro-servo).
28 mars 2007 à 17:51
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)
16 sept. 2006 à 22:24
29 mars 2006 à 13:17
- Le source d'une version très simplifiée du programme. Cela te permettra de facilement comprendre la façon de piloter le port //grâce à la DLL input32.dll qui est libre d'utilisation.
http://web.conception.free.fr/Servo_Version_Simple.rar
A toi de voir maintenant.
++
Sébastien.
28 mars 2006 à 15:06
svp je veut savoir comment commander sur VB.6 le port // sous XP.
8 févr. 2006 à 11:22
désolé pour vous mais la programmation Labview est tout autre que VB. Vous ne trouverez rien sur LabVie dans codes-sources.
Cela dit, l'acces aux interfaces avec Labview a beaucoup évolué; donc faites gaffe à ce que les gens vous racontent, ca dépend de la version que vous utilisez. Car depuis la version 5, d'une version à l'autre beaucoup de modules ont totalement disparus et ont été remplacés par des truc tout à fait différents.
Essayez de voir ca avec un expert LabView.
SI vous voulez persister avec LabView, je sais qu'il y a moyen d'executer avec Labview du code Matlab ou C++ (attention il faut le compilateur associé) et peut-être que la, nos amis spécialistes V cpp de codes-sources pourraient vous aider.
26 janv. 2006 à 15:00
merci d'avance c'est tres urgent
27 déc. 2005 à 18:58
Alors voilà ce que je vous propose :
- Le pack d'installation de la version la plus avancée
http://web.conception.free.fr/Servo-Moteurs_Commander_2.1_Install_Pack.rar
- Le source d'une version très simplifiée pour que les débutants puissent plus facilement comprendre le fonctionnement de la rotation d'un servo-moteur
http://web.conception.free.fr/Servo_Version_Simple.rar
@ bientôt,
Sébastien.
26 déc. 2005 à 13:20
12 oct. 2005 à 12:26
vraiment c'est très génial...
a+
2 sept. 2005 à 21:08
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.
17 août 2005 à 19:26
comment se fait il ?
merci en tout cas.
1 août 2005 à 10:49
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.
++
21 juil. 2005 à 15:47
Je suis tres interessé par le fonctionnement du port //
Via VB je dois lancé d'autres appli necessitant la presence d'une clé electronique (ca sert de licence en fait) sur le //
Je voulais savoir comment faire pour interrogé le port et recupérer la "valeur" de la clé afin d'eviter de lancé l'appli sans la clé, sous peine de la voir planté.
J'espere etre assé clair dans ma demande.
Merci de ton aide.
Julien
9 juin 2005 à 20:06
7 juin 2005 à 11:20
J'ai compilé le source et je te l'ai placé ici :
http://membres.lycos.fr/sattaz/ServoCommander/Servo-Moteurs%20Commander%202%20Install%20Pack.rar
Avec ça tu n'auras pas besoin de VB. Tout ce que tu as à faire c'est dé-zipper le contenu et installer le soft comme tout autre application.
Pour la connection des servos moteurs au PC, si tu ne comprends pas ce qui est expliqué dans la partie 'à propos', je te conseille d'aller voir sur ce site :
http://users.swing.be/philippe.jadin/servo.htm
++
5 juin 2005 à 21:07
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.
@+
8 mai 2005 à 20:45
le but de ma webcam c'est de filmer mes cochons d'inde,
je préfère placer les angles de ma caméra fixes et commander le déplacement horizontal et vertical la caméra le long de la cage.
C'est pour ca que je voudrais employer des moteur à CC et non du positionnement. Donc je souhaite commander un bit à 1 pendant 1 ou 2 secondes sans avoir à envoyer sans arret la commande sur le port parallèle.
@+
4 mai 2005 à 22:46
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)
++
3 mai 2005 à 22:08
je le recherchais pour faire la meme chose : controler une webcam depuis le net.
Bon, je cherche pas mon plus à faire compliqué:
2 moteurs CC de quelques volts et pis 2 relais.
Les bits doivent rester dans l'état tant que je n'y retouche pas.
la DLL gère ça comment?
3 févr. 2005 à 12:56
- 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 :)
++
3 févr. 2005 à 04:29
3 févr. 2005 à 04:23
- 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 ;)