Commande servo moteur par port paralelle et internet vb6

Soyez le premier à donner votre avis sur cette source.

Vue 30 447 fois - Téléchargée 3 541 fois

Description

Ce code permet de commander la rotation de 8 servo-moteurs depuis l'application mais aussi depuis une page internet !
La connection des servo-moteurs se fait directement sur le port paralelle sans avoir besoin d'aucun circuit electronique. (la connexion est expliquée dans la partie 'à propos' du soft.
Pour piloter les servos depuis internet, il vous faudra faire un petit script php qui envoi les données d'angles dans un fichier.txt . Dans la partie 'paramètres' sur soft il faudra indiquer le chemin internet de ces fichiers
Ces valeurs peuvent être écrite les une après les autres dans le fichier (pratique si le serveur ftp ne permet pas le delete dans un fichier (FREE) sous la forme suivante : 90-452030-1080 , ceci signifiant dans l'ordre angle de 90 degre , -45 degre , 20 degre etc ... le soft prend toujours la dernière valeur et gère le signe - .

J'ai fais ce code pour diriger ma webcam depuis mon site internet et ça fonctionne vraiment bien.

Certaines parties du code ont été prise ici et je remercie les gens qui les ont programmées.
Merci aussi au site http://www.logix4u.net qui donne librement la librairie input32.dll

Si vous améliorez ce code je serais heureux d'en être averti car je ne suis pas expert en VB6 et j'aime bien apprendre à simplifier mes sources.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
salut, la transformation de l'angle via la fréquence et intrinsèque au servomoteur !
1ms = 0° 1.5ms=45° et enfin 2ms = 90°
voila. cordialement.
Messages postés
3
Date d'inscription
mardi 19 avril 2011
Statut
Membre
Dernière intervention
17 mai 2011

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
Messages postés
32
Date d'inscription
mardi 7 janvier 2003
Statut
Membre
Dernière intervention
24 novembre 2011

Bonjour,

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

@++
Messages postés
3
Date d'inscription
mardi 19 avril 2011
Statut
Membre
Dernière intervention
17 mai 2011

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
Messages postés
35
Date d'inscription
mercredi 7 mai 2003
Statut
Membre
Dernière intervention
24 septembre 2012

Il serait fort nécessaire de remettre à jour les liens car quasiment plus rien n'est accessible, ou alors de supprimer cette source de 6 ans!!!
Dommage pour les liens, ca avait l'air fort intéressant.
Afficher les 36 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.