Ads 468x60px

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….

11 komentar:

ferdy mengatakan...

terima kasih mas, sangat bagus postingannya,,

WongSableng Lab mengatakan...

sama-sama mas...semoga bermanfaat...tolong sekalian dikoreksi kalo ada yang salah.

Unknown mengatakan...

permisi mas,, saya coba ya..
aplikasi program ini

fuad mengatakan...

kalau untuk multi sensor gmana ya mas source codenya???

Unknown mengatakan...

mas apakah cocok low aplikasi ini dibuat monitoring detak jantung,,,,jadi setiap detakn jantung sesuai dengan grafik delphix..kemudian dalam permenitnya dihasilkan jumlah detakannya,,,

Unknown mengatakan...

mas, untuk menampilkan data dari sensor ultrasonik , apa tinggal mengganti fungsi tegangan itu dengan diganti fungsi dri sensor ultrasonik ??

Unknown mengatakan...

thanks gan

Anonim mengatakan...

Hallo..
saya mau tanya kalau menerima lebih dari dua data yang ditampilakn.
caranya bagaimana ya mas?
mohon infonya

terima kasih

ilhamiyonu@blogspot.com mengatakan...

Program Arduino uno nya mana admin..?

ilhamiyonu@blogspot.com mengatakan...

Lo KOk Nggak Jadi Ini program ...

"Project project2.exe raised exception class EComPort with message 'port not open'. process stopped. use step or run to continue"

itu tuh saya coba min tapi nggak jadi

Anonim mengatakan...

Permisi mas, klo mau yang direkam misal data perubahan jarak tiap waktu gmn yah programnya? saya sudah bisa terima data hanya saja lg nyari cara gmna cara nambahin data waktunya, dan mengurutkan data yang masuk berdasarkan urutan waktu terbaru. berikut program saya:

procedure TForm1.Port1Sensor1RxChar(Sender: TObject; Count: Integer);
var datamasuk1:string;
waktu
begin
Port1Sensor1.ReadStr(datamasuk1,count);
Memo1.Text:=Memo1.Text+datamasuk1+#13#10;
Ed4Sensor1.Text:=datamasuk1;
end;

terima kasih sebelumnya mas...

Posting Komentar