Tanım: Özel Ekranda Com Port Desteği

Bulunduğuprogram: 1-AtikSE

Modül İşlemTanımı: Bilgisayarda bağlıolan terazi vb. com port üzerinden haberleşen cihazlar için Özel Ekrandabağlantı kurma ve gelen verileri okumaya olanak sağlar.

Örneğin faturadatartılı ürünlere terazi desteği için kullanılabilir.

ADIM-1

Ekran Tipi Özel Tasarım olan özel ekran oluşturulur.

Tool Palette üzerinden ihtiyacımız olan nesnelerdoğrultusunda özel ekran tasarımı sağlanır.

Resim-1

ADIM-2

Var

//Tipi TVaComm olan Portdeğişkeni tanımlanır.

PORT:TVaComm;

//Create butonu clickolayında bağlantı oluşturulur ve Terazinin tanımlanması gereken değerleritanımlanır.

//Bağlı olan terazinin budeğerleri Aygıt Yönetici > Bağlantı Noktaları menü yolundan öğrenilebilir.                                                                                                            

procedure CREATEClick(Sender: TObject);

begin

//PORT değişkeni için comport bağlantısı oluşturulur.

PORT:=TVaComm.Create(nil);

//Terazinin Baudrate yanitanımlanan seri portun bir saniyede maksimum taşıyabileceği bit değeridir.

PORT.Baudrate:=BR9600;

//Terazinin bağlı olduğu portnumarasıdır.                              

 PORT.PortNum:=3;                                              

//Bağlantı aktif edilir.

PORT.Open;

end;

//Read butonu click olayındateraziden değer okunması sağlanır.          

procedure READClick(Sender: TObject);

begin       

               //PORT değişkeni üzerinden okunan değer Terazieditine yazdırılır.                          

 TERAZI_DEGER.Text:=PORT.ReadText();               

end;                                    

//Destroy butonu clickolayında teraziyle olan bağlantı kesilir ve PORT değişkeni free komutuyla tekrarbağlantı kurmaya hazır hale getirilir.               

procedure DESTROYClick(Sender: TObject);

begin

PORT.Close;

PORT.Free;                

end;