Paralel Port

[ulu coder]

Malzemeler;
1 adet smport
13 adet checkbox (5 tanesi readonly olacak, status için)
1 adet buton (portu açıp kapatmak için)
1 adet Label (smport açık mı kapalı mı)

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SmallPort1.Opened=True Then SmallPort1.CloseDriver else SmallPort1.OpenDriver;
end;


procedure TForm1.Timer4Timer(Sender: TObject);
var
  v,d:byte;

begin
  if SmallPort1.Opened=True Then Label1.Caption:='Açık';
  if SmallPort1.Opened=False Then Label1.Caption:='Kapalı';

  //VERİ
  v:=0;
  if CheckBox1.Checked=True Then v:=v+1;
  if CheckBox2.Checked=True Then v:=v+2;
  if CheckBox3.Checked=True Then v:=v+4;
  if CheckBox4.Checked=True Then v:=v+8;
  if CheckBox5.Checked=True Then v:=v+16;
  if CheckBox6.Checked=True Then v:=v+32;
  if CheckBox7.Checked=True Then v:=v+64;
  if CheckBox8.Checked=True Then v:=v+128;
  SmallPort1.Port[$378]:=v;
  //VERİ SONU

  //DURUM
  d:=SmallPort1.Port[$379];
  if d>=128 Then CheckBox13.Checked:=True else CheckBox13.Checked:=False; d:=d mod 128;
  if d>=64  Then CheckBox12.Checked:=True else CheckBox12.Checked:=false; d:=d mod 64;
  if d>=32  Then CheckBox11.Checked:=True else CheckBox11.Checked:=False; d:=d mod 32;
  if d>=16  Then CheckBox10.Checked:=True else CheckBox10.Checked:=False; d:=d mod 16;
  if d>=8   Then CheckBox9.Checked:= True else CheckBox9.Checked:=false;
  //DURUM SONU

end;