Tutorial Terima Data Serial � Plot Chart Delphi

 

Serial | Chart | Tutorial Delphi | Beberapa bidang aplikasi instrumentasi ada yang memerlukan pemanfaatan komunikasi serial antara hardware dan software. Sebagai contoh untuk monitoring pengukuran ataupun pengendalian sistem. Dalam aplikasinya, data yang diterima komputer terkadang perlu di plot dalam Chart. Sistem yang demikian adalah penggabungan dari teknik komunikasi data serial dan plot data di chart Delphi yang telah diposting dulu.

Posting kali ini sharing tentang contoh sederhana sistem tersebut. Ceritanya adalah mikrokontroler menerima input tegangan di jalur ADC, kemudian data integer hasil konversi dikirim serial RS232 ke komputer. Data tersebut diolah dalam Delphi 7 yang kemudian disajikan dalam Chart Delphi 7. Komponen yang digunakan adalah Comport, Timer, Chart, Button, Edit, dan Label. Langsung saja ya, ki pelajari bareng langkah-langkangnya.

1.    Membuat Form dengan komponen Comport, Timer, Chart, Button, Edit, dan Label menjadi seperti ini.

 

2.    Mendefinisikan variabel global.
                    var
                          Form1: TForm1;
                          x : integer;

3.    Membuat prosedure Button1OnClick.
                    procedure TForm1.Button1Click(Sender: TObject);
                    begin
                            x := 0;
                            series1.Clear;
                           timer1.Interval := 500;
                            timer1.Enabled := true;
                            comport1.Open;
                    end;

4.    Membuat prosedure Button2OnClick.
                    procedure TForm1.Button2Click(Sender: TObject);
                    begin
                            comport1.ShowSetupDialog;
                    end;

5.    Membuat prosedure Button3OnClick.
                    procedure TForm1.Button3Click(Sender: TObject);
                    begin
                            timer1.Enabled := false;
                            comport1.Close;
                    end;

6.    Membuat prosedure Timer1OnTimer.
                    procedure TForm1.Timer1Timer(Sender: TObject);
                    var
                            str : string;
                            count : byte;
                            tegangan : real;
                    begin
                            comport1.ReadStr(str,count);
                            tegangan := strtofloat(str) * 5 / 1000;
                            x := x+1;
   
                            edit1.Text := floattostr (tegangan);

                          with chart1 do
                                  with series1 do
                                        addxy(x,tegangan);
                    end; 

7.    Running aplikasi, kemudian klik tombol �start�, berikut ini hasilnya.
 

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

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

Share this post