|
|
|
DERS ANLATIMI PORTLAR |
|
PORTLAR
ÖRNEK : |
|
KODU :
procedure TForm1.Button1Click(Sender:
TObject);
var
m:integer;
begin
if edit1.Text='' then
showmessage('YAZIM KUTUNUZ BOS!')
else
begin
If not SmallPort1.Opened then
begin
SmallPort1.Opened:= True;
//if smallport1.Opened then
showmessage('girdi');
end;
m:=(strtoint(edit1.text) mod 256);
smallport1.WriteByte($378,m);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
smallport1.writebyte($378,0);
CLOSE;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
n:integer;
begin
if not smallport1.Opened then
smallport1.opened:=true;
n:=smallport1.ReadByte($379);
edit2.text:=inttostr(n);
end;
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
smallport1.opened:=false;
end; |
|
|
|
|
|
|
|
|
