Tutorial Komunikasi Serial Delphi

Serial | RS232 | Tutorial Delphi | Teknik komunikasi data dalam Delphi bisa melalui serial dengan menambahkan komponen TComport. Komponen Comport yang digunakan adalah komponen eksternal yang perlu diinstal dulu. Setelah terinsral, maka sudah siap untuk mencoba komunikasi serial ini.heeee. Aplikasi yang dibuat terdiri dari komponen Timer, Comport, Button, dan Memo. Data yang diterima adalah dari mikrokontroler yang telah diprogram sebagai pengirim data.
Langsung saja ke langkah-langkahnya :

1.    Membuat aplikasi baru, dan menambahkan komponen Timer, Comport, Button, dan Memo.

2.    Mendefinisikan variabel global
                    var
                          Form1: TForm1;
                          y : integer;
3.    Membuat Prosedur Button1OnClick yg ber-caption �setting� :
                    procedure TForm1.Button1Click(Sender: TObject);
                    begin
                        comport1.ShowSetupDialog;
                    end;

4.    Membuat Prosedur Button2OnClick yg ber-caption �start� :
                    procedure TForm1.Button2Click(Sender: TObject);
                    begin
                        y := 0;
                        comport1.Open;
                        timer1.Interval:=500;
                        timer1.Enabled:=true;
                        memo1.Clear;
                    end;

5.    Membuat Prosedur Button3OnClick yg ber-caption �stop� :
                    procedure TForm1.Button3Click(Sender: TObject);
                    begin
                        comport1.Close;
                        timer1.Enabled:=false;
                    end;

6.    Membuat Prosedure Timer1OnTimer :
                    procedure TForm1.Timer1Timer(Sender: TObject);
                    var
                            str : string;
                            count : byte;
                    begin
                           y := y+1;
                            comport1.ReadStr(str,count);
                            memo1.Lines.Add(inttostr(y)+'. '+str)
                    end;

7.    Running aplikasi saat mikrokontroler sudah ON dan kabel komunikasi sudah terhubung, hasilnya begini :

Yaaa�itu hanya sedikit sharing pengalaman, heeeee�Cuma sederhana saja,,,maap yaa�

Salam damai, senajan kenthir nanging kebak pikir
Semoga bermanfaat�.

Share this post