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

Bulunduğu program: 1-AtikSE

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

Örneğin faturada tartı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 nesneler doğrultusunda özel ekran tasarımı sağlanır.

Resim-1

ADIM-2

Var

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

PORT:TVaComm;

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

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

procedure CREATEClick(Sender: TObject);

begin

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

PORT:=TVaComm.Create(nil);

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

PORT.Baudrate:=BR9600;

//Terazinin bağlı olduğu port numarasıdır.                              

 PORT.PortNum:=3;                                              

//Bağlantı aktif edilir.

PORT.Open;

end;

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

procedure READClick(Sender: TObject);

begin       

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

 TERAZI_DEGER.Text:=PORT.ReadText();               

end;                                    

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

procedure DESTROYClick(Sender: TObject);

begin

PORT.Close;

PORT.Free;                

end;