Allumage LED via comportRésolu

Question

Salut,
Je cherche &#224; allumer 3 LED via le port s&#233;rie, ceci pour signaler des &#233;v&#233;nements.
Qui peut m'aider?
Merci.
A+
Phil.

fredylapoc47 · Accepted Answer

implementation                 //  important    fichier     rscom.dll      dans ton folder  
{$R *.DFM}                     //         de:Yann   site://www.delphipage.net/
  (zip 39k)
// inport externe in rscom.dll
function OPENCOM(OpenString:PChar):Integer; stdcall; external 'RSCOM.DLL';
procedure CLOSECOM(); stdcall; external 'RSCOM.DLL';
procedure TXD(d:WORD); stdcall; external 'RSCOM.DLL';
procedure DTR(d:WORD); stdcall; external 'RSCOM.DLL';
procedure RTS(d:WORD); stdcall; external 'RSCOM.DLL';
 
procedure TForm1.FormCreate(Sender: TObject);
begin
OpenCom('COM1: baud=9600 parity=N data=8 stop=0');     // open le port
..... 
....
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 CloseCOM;   // close le port serie
.....
end;

procedure TForm1.BtnClick(Sender: TObject);   //  bouton  allume
begin
  TXD(1);  // line pin 3 on          TXD( 0 ) =off
  DTR(1);  //         pin 4
  RTS(1);  //          pin 7          
  ....                         
                        voici quelques lines importantes      et  merci a  Yann.
Fred

cs_zmc · Answer

Salut, 



http://delphipage.free.fr/portserie.html



a+

PhilLu · Answer

Malheureusement cela fonctionne mais je n'arrive qu'&#224; allumer TD et donc pas 3 LED,
(j'utilise un testeur de com-port)
as-tu une id&#233;e
a
Merci,
Phil.

Allumage LED via comport

3 réponses

Votre réponse

Discussions similaires