Fórum Opa ! essa eu quero ver se alguem sabe ! #157759

Tenho esse frm o que le faz ?
Ele ativa 2 lads ligados a minha porta paralalela, um verde e um vermelho

unit frmparalela;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;

Const
Base = $378; //Endereço base da porta LPT;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TPorta = class(TForm)
Procedure Envia(PortaLpt:word; Valor:byte); //Envia byte p/ a P.Paralela.
end;

var Form1: TForm1;
var Lpt: TPorta;

valor: byte;

implementation
{$R *.DFM}

//-----------------------------------------------------------
Procedure TPorta.Envia(PortaLpt:word; Valor:byte);
begin

valor :=00000000;

{ São 8 digitos se o 8º termina em 0 esta desligado
se termina em 1 ativa led verde e 2 o vermelho }

asm
mov dx,PortaLpt
mov al,Valor
out dx,al
end;
end;

//-----------------------------------------------------------

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Lpt.Envia(controle,0); // aqui se ei tiro esse comando não funciona
end;


A perunta é... como eu troco o valor da variavel dentro da procedure ... de forma que possa alternar os lads de acordo com o desejado ?


Grato Eduardo Dias :shock: