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 sebphilip le 16/09/2006 22:24:49

Bonjour, je suis completement debutant et je n y comprend rien pour installer le programme. Je ne vois pas de fichier.exe. Quelqu un peut il me donner la marche a suivre pas a pas. Merci et bonne journée

Commentaire de coxboy le 15/05/2007 10:44:25

Bonjour à toute la communautée,

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).

Commentaire de sattaz le 23/12/2007 10:16:13

Bonjour !

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 !

Commentaire de x31p24 le 10/01/2009 15:48:15

bonjour, j'ai télécharger le script mais je ne sais pas quoi en faire, j'ai installé microsoft visual basic express 2008. Je débute en VB, avez-vous des conseils ?

Commentaire de Yanniv le 01/08/2009 03:13:04

Salut sattaz,
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

Commentaire de neo474747 le 29/04/2010 10:28:20

bonjour

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

Commentaire de zapanyeti le 02/05/2011 19:15:30

Bonjour  
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

Commentaire de zapanyeti le 03/05/2011 11:06:51

Bonjour
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