PORT PARALLÈLE : PILOTEZ JUSQU'A 8 SERVOMOTEURS.

Commentaire de rylryl le 25/08/2005 00:04:31

Bonjour DJ Ox,
J'ai oublié d'enlever "Variants" et autre...(inutile pour ce code).
Le ZIP est mis a jour.
Désolé pour le pb!

A+
ryl...

Commentaire de jlen100 le 02/03/2006 17:10:10

excusez moi pour le double post

Commentaire de bryant823 le 12/10/2006 11:42:33

Salut rylryl.

Je tiens deja à te felliciter pour ton code. Et j'ai un petit problème, je sais pas si tu pourras m'aidé où pas. A la sortir de mon port parallele, sur la pin qui sert aux données du servo, j'ai des problèmes de parasites. Mon servo gresille... J'ai utilisé un oscilloscope pour voir la forme des signaux... J'ai triggé sur le flanc montant du signal. Et j'ai vu au flanc descendant des variations de temps de presque 1 ms...et j'arrive pas à les supprimer. Si tu connais où tu vois le problème sa serai aimable de m'aidé.

Merci beaucoup

Commentaire de rylryl le 19/10/2006 18:32:46

Bonjour,

Bryant823 => Merci, Les PC un peu lent ou les PC surchargés(CPU) auront quelques probs...
Il est peut être mieux d'arreter d'envoyer le signal sur le port parallèle quand les servos doivent être au repos...
Le pb vient de l'exclusivitée de la boucle de tempo (il faut bien qu'a moment donné windows gére ses processus...

SWDWD => Désolé je ne sais pas !

ryl...

Commentaire de smdwd le 20/10/2006 23:26:46

Bonsoir Rylryl,

J'ai donc simplifié votre programme, il se compile bien, mais mon servo tourne de 30° à chaque
appuis sur le bouton envoyer (quelque sois la position du curseur), et ne tourne que dans un seul sens !
Je vous joint le code, si vous pouvez m'aider....   Merci !

============================================================================

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    ButtonEnvoyer: TButton;
    position1: TScrollBar;
    procedure ButtonEnvoyerClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

procedure Out32(PortAddress:word;Value:byte);stdcall;export;
external 'inpout32.DLL';

var
  Form1: TForm1;
  Valeur,LPTx:integer;

implementation

{$R *.DFM}

// Attendre N microSeconde
procedure DelayUS(MicroS: int64);
var  Limite,Time_memo,Frq_Base,Time_now : Int64;
begin
  if QueryPerformanceFrequency(Frq_Base) then
  begin
    QueryPerformanceCounter(Time_memo); // Repère temps
    Limite := Time_Memo + round(MicroS * Frq_Base / 1000000); // calcul fait une seule fois
    repeat
      QueryPerformanceCounter(Time_now);    // Comparer le Repère temps au temps actuel
    until Time_now >= Limite;      // Si pause pas suffisante recommencer
  end;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
LPTx:=888;      //LPT1 par defaut
end;


procedure TForm1.ButtonEnvoyerClick(Sender: TObject);
begin
out32(LPTx,1); // Servo sur Voie 1
DelayUS(position1.position);     // Durée de l'impulsion pour cette voie
out32(LPTx,$00); // Forcer niveau bas
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
out32(LPTx,0); // Le Registre DATA est mis à zero
end;

end.