ANA SAYFA          YARDIM      KAYNAK      HAZIRLAYANLAR                                                                                     <|  1  2  3  |>
 

KONULAR

 

  DERSLER

  HAZIR DÖK.

  UYGULAMA_PRO.

  PÜF NOKTALAR

  DÖNGÜ_KOM.

  COMPANET DOW.

  APİLER

  LİNKLER

  HACKER

  BAZI_KOMUTLAR

 

 

   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;

 

İSTEK, YAYINLANMASINI İSTEDİĞİNİZ PROG.  VE ŞİKAYETLERİNİZİ delphikursu@delphikursu.com MAİL ATINIZ