Menampilkan data ke PC melalui serial port menggunakan Borland Delphi

GROSIR KAOS POLOS & KAOS MURAH

untuk pemrosesan data dengan tingkat yang lebih rumit, sering kali menggunakan PC atau personal komputer untuk menampilkan data sehingga data yang diambil bisa dibuat grafik atau mungkin disimpan dalam database sebagai record untuk monitoring system misalkan monitoring system suhu berbasis web dan sebagainya. salah satu bahasa pemrograman yang bisa digunakan adalah borland delphi. dalam project ini saya menggunakan borland delphi 6.0 sebagai pemrogramannya.

komponen serial yang saya gunakan adalah TMSComm yang diimpor dari Visual Basic melalui activeX. Port serial yang digunakan adalah Com 1 dengan baudrate 9600 tapi ini nantinya bisa dirubah sesuai dengan kebutuhan. project ini akan membaca data dari masukan adc mikrokontroler ATMega8535 kemudian akan ditampilkan dalam bentuk display angka dan grafik tegangan terhadap waktu. berikut adalah screenshoot programnya :


Gambar 1. screenshoot program borland delphi

Pada postingan yang berjudul “Komunikasi serial AVR” bisa langsung dihubungkan dengan aplikasi ini. Komponen serial port di delphi juga cukup banyak. Biasanya yang paling sering digunakan adalah komponen MSComm dan CPort. tetapi itu terserah kita sebagi programmernya. Aplikasi ini bisa bukan hanya untuk monitoring data, tetapi pada dasarnya bisa dikembangkan juga untuk sistem kontrol.
ini adalah sourcecode lengkap dari project ini :

001	unit Unit1;

002

003

interface

004

005

uses

006	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

007	Dialogs, StdCtrls, OleCtrls, MSCommLib_TLB, TeEngine, Series, ExtCtrls,

008	TeeProcs, Chart;

009

010

type

011	TForm1 = class(TForm)

012	MSComm1: TMSComm;

013	Button1: TButton;

014	Button2: TButton;

015	Button3: TButton;

016	Label1: TLabel;

017	Label2: TLabel;

018	Chart1: TChart;

019	Series1: TLineSeries;

020	procedure FormCreate(Sender: TObject);

021	procedure Button1Click(Sender: TObject);

022	procedure Button2Click(Sender: TObject);

023	procedure Button3Click(Sender: TObject);

024

private

025	{ Private declarations }

026

public

027	{ Public declarations }

028

end;

029

030

var

031	Form1: TForm1;

032	mulai: boolean;

033	x, data: real;

034

035	implementation

036

037	{$R *.dfm}

038

039	//procedure untuk membuat delay dalam milisecond

040	procedure delay(interval:integer);

041	var awal:longint;

042

begin

043	awal:=gettickcount;

044

repeat

045	application.ProcessMessages

046	until (gettickcount-awal) >= longint(interval);

047

end;

048

049	procedure TForm1.FormCreate(Sender: TObject);

050

begin

051	if mscomm1.PortOpen then

052	mscomm1.PortOpen := false;

053	//silakan ganti sesuai port yg digunakan

054	mscomm1.CommPort := 1;

055	//silakan ganti baudrate sesuai dgn baudrate mikrokontroler

056	mscomm1.Settings := '9600,n,8,1';

057	mscomm1.InputLen := 4;

058	mscomm1.PortOpen := true;

059

060

end;

061

062	procedure TForm1.Button1Click(Sender: TObject);

063

begin

064	mulai := true;

065

x := 0;

066	delay(500);

067	while mulai = true do  // looping selama mulai bernilai true

068

begin

069	//Rutin Utama

070

x := x+1;

071	data := mscomm1.Input;

072	label1.Caption := floattostr(data);

073	series1.AddXY(x,data);

074

075	if x = 100 then

076

begin

077	series1.Clear;

078

x := 0;

079

end;

080

081	delay(200);

082

083

end;

084

end;

085

086	procedure TForm1.Button2Click(Sender: TObject);

087

begin

088	mulai := false;

089

end;

090

091	procedure TForm1.Button3Click(Sender: TObject);

092

begin

093	if mscomm1.PortOpen = true then

094

begin

095	mscomm1.PortOpen := false;

096

end;

097

close;

098

end;

099

100

end.

Link untuk download Full Sourcecode :

|| Facebook Bagi2 Software Dan Ipad Gratis Loh! Download Disini

• Tweet
• Share

Baca artikel lainnya :