Estoy probando la comunicación RS485 con las APRO.
Revisé un poco el APRO_referenceguide, y probé el ejemplo que viene incluido: Excom0.
En la página 86 del documento se puede leer lo siguiente:
property RS485Mode : Boolean
Default: False
Determines whether the RTS line should be raised or lowered automatically when transmitting data.
Set this property to True when using an RS-485 board or converter that uses the RTS line to enable the transmit line. In this mode, RTS will be raised whenever the program is transmitting data and lowered at all other times.
.
.
.
Because RS-485 mode requires control over the RTS line, the RTS property is set to False and CTS/RTS hardware flow control is disabled whenever RS485Mode is set to True.
Guiándome de esto, así configuré el ApdComPort, como se ve en la captura de abajo:
Este es el código en delphi del Excom0, solo modifiqué el mensaje que envia.
unit Excom0;
interface
uses
WinTypes, WinProcs, SysUtils, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, AdPort, OoMisc;
type
TForm1 = class(TForm)
Test: TButton;
ApdComPort1: TApdComPort;
procedure TestClick(Sender: TObject);
procedure ApdComPort1TriggerAvail(CP: TObject; Count: Word);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.TestClick(Sender: TObject);
{TestClick button click - Send output}
begin
ApdComPort1.OutPut := '&&&&&&&';
end;
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
{Event OnTriggerAvail - Example how OnTriggerAvail works}
var
I : Word;
C : Char;
S : String;
begin
S := '';
for I := 1 to Count do begin
C := ApdComPort1.GetChar;
case C of
#0..#31 : {Don't display} ;
else S := S + C;
end;
end;
ShowMessage('Got an OnTriggerAvail event for: ' + S);
end;
end.
Esta es la simulación en proteus:
Lo que veo, es que al mandar el mensaje, no me activa la el pin RTS por lo que no se transmite. El pic al recibir datos, va desplegando los caracteres recibidos en el LCD. Este circuito ya está probado con un programa en visual basic. Me falta revisar a fondo, pero ya voy comenzando con las pruebas
. ... Maestro Redpic, espero me heche una
.
Saludos y a seguirle dando.
Ganbatte kudasai.