Gestion moteur pas a pas...

Bjrs,
je suis lycéen et je ne programme plu depuis pluqieures années... :s
pour la fin de l'année, je doit trouver un moyen de piloter un moteur pas a pas via un pc... fleche de droite moteur tourne a droite <=> flèche de gauche moteur tourne a gauche...
cependant je n'ait plus les connaissances requises pour faire ce petit programme...
qqu'un pourrait il m'aider ??? svp
la... je recontre un vrai probleme... :s
j'aimerai bien que l'on puisse le diriger via un port usb ou, la solution la plus simple, via un port parallele...
est ce que qq'un aurait t'il des informations a ce sujet?
merci d'avance et @++

Salut darkneo68,

Pour passer par le port usb, je ne te suis d'aucune utilité, en revanche pour le port parallèle, c'est du tout cuit (expression années 80's...)
Il faut d'abord avoir la dll qui permet l'accés aux registres (http://sitelec.free.fr/download/inpout32.zip).
Ensuite, il faut savoir que les port parallèles sont organisés de la manière suivante:
LPT1:
Adresse 378h -> Données (D7...D0)
Adresse 379h -> Etat du port (Busy\, Ack, PE, Select, Error\,x,x,x)
Adresse 37Ah -> Contrôle (x,x,Bit Ctrl, IRQ Enabled, Select In, Init\, Auto Feed, Strobe\)

LPT2: LPT3:
Adresse 278h -> Données Adresse 3BCh -> Données
Adresse 279h -> Etat du port Adresse 3BDh -> Etat du port
Adresse 27Ah -> Contrôle Adresse 3BEh -> Contrôle

(si tu veux plus de détails: http://www.beyondlogic.org/spp/parallel.htm)

Voilà, donc ensuite, en supposant que tu veuilles utiliser le port LPT1, ton programme ressemblera à quelque chose comme ça:

Public Declare Function Inp Lib "InpOut32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer

Public Declare Sub Out Lib "InpOut32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)


Public const LPT1_d as integer = &h378

Dim ValeurAEnvoyer as byte 'Variable contenant le code de rotation droite/gauche

ValeurAEnvoyer=....
call out(LPT1_d,ValeurAEnvoyer)

Voilà j'espère que j'aurais pu t'être utile, tchô
AnteManoclis

Lut,
je suis desolé mais j'ai rien compris ... :s
pourait tu m'expliquer a quoi correspondent les differentes commandes???
merci et @+

Wép, alors c'est parti...

Public Declare Function Inp Lib "InpOut32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
-> Déclare la fonction externe de lecture d'un registre (inutilisée dans notre cas)

Public Declare Sub Out Lib "InpOut32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
-> Déclare la fonciton d'écriture dans un registre (dans notre cas, ceux du port parallèle)

Public const LPT1_d as integer = &h378
-> Déclare la variable qui va contenir l'adresse du registre de données du port parallèle

Dim ValeurAEnvoyer as byte
-> Déclare la variable (8bits) à envoyer sur le port parallèle

ValeurAEnvoyer=....
-> Tu mets la valeur que u souhaites dans ta variable

call out(LPT1_d,ValeurAEnvoyer)
-> Envoi ta variable sur le port parallèle.

Un peu plus clair
tchô
AnteManoclis

ok,
la ca me parait un peu plus clair...
je verrai ca avecun pot demain
et je mettrai mes apreciations sur le forum...
encore merci et @+ ;)

Bonjour,
J'ai conçu une carte 8 relais pilotée par l'USB.
Elle est décrite dans un livre consacré à l'USB : "L'USB pour tous" aux editions Dunod/ETSF.
Le sommaire est sur mes pages perso : http://home.nordnet.fr/~vlemieux/
Il y a aussi une photo de la carte
Cordialement.
V.Le Mieux

Bonjour
je cherche à utiliser l'inpout32.dll , mais à chaque fois que je lance le prog , windows 2000 me génère une erreur et ferme mon application ( quelque soit le source utilisé ). Merci de m'indiquer une solution à mon problème.

Salut seb,

J'ai Windows98, donc, peut-être cela ne va pas t'aider, mais peut-être est-ce dans la déclaration qu'il y'a un problème, au cas où, j'te copie mes déclarations, en espèrant qua ça puisse t'aider.

Public Declare Function Inp Lib "InpOut32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer

Public Declare Sub Out Lib "InpOut32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Tchô
AnteManoclis

salut

je suis a la rechercher du meme programme ,
as tu trouver ?

merci

seb merci à tous.
je viens de trouver les réponses à mes questions (mais également testé ...). L'inpout32.dll n'est valable que sous win 95 et win 98.
Pour winNT ; win2000 et winXP , il faut utiliser une dll différente qui est .................. la DLPortIO.dll (dlportio.dll).

les déclarations sont les suivantes:

Public Declare Function Inp Lib "dlportio.dll" Alias "DlPortReadPortUchar" (ByVal Port As Long) As Byte

Public Declare Sub Out Lib "dlportio.dll" Alias "DlPortWritePortUchar" (ByVal Port As Long, ByVal Value As Byte)

testé sur mes machines avec chenillard et moteur , tout est ok, bon courage à tous. Seb