Terima data Serial melalui usb port dengan delphi 7 + comport (delphi vs arduino)

Terkadang kita membutuhkan arduino untuk interface ke PC / laptop semisal untuk monitoring data suhu, data kelembaban, jarak , berat atau data sensor lainnya. untuk itu kita perlu mendapatkan data data dari sensor yang di baca oleh arduino, nah untuk dapat diterima oleh komputer maka umumnya data data tersebut dikirim ke PC / laptop melalui komunikasi serial 

Untuk percobaan Kirim data Serial melalui usb port pada arduino Uno kali ini kita hanya akan mempraktikkan arduino untuk kirim data ke pc berupa text " ini text dari arduino " dengan tundaan per 5 detik

oke tak perlu panjang lebar preface/pembukanya : 

berikut ini adalah source code / sketch  Kirim data Serial melalui usb port pada arduino Uno :

void setup() {
Serial.begin(9600); // memulai komunikasi serial dengan baud rate 9600
}

void loop() {
Serial.println("ini text dari arduino");// kirim ini text dari arduino ke PC
delay(5000);// tunda 5 detik
}

silakan upload sketch / source code Kirim data Serial melalui usb port pada arduino Uno tersebut ke board arduino, 

setelah proses upload selesai langkah selanjtunya adalah membuka serial monitor dengan menekan menu tools-serial monitor atau dengan menekan tombol ctrl+shift+M secara bersamaan dan hasil nya adalah sebagai berikut :

selanjtunya adalah code delphi untuk menerima data serial yang tampil pada comport terserbut:

berikut ini source code delphi 7 Terima data Serial melalui usb port dengan delphi 7 + comport (delphi vs arduino)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CPort, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    ComPort1: TComPort;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ComPort1RxChar(Sender: TObject; Count: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
comport1.ShowSetupDialog;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
comport1.Connected:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
comport1.Connected:=false;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var datamasuk:string;
begin
comport1.ReadStr(datamasuk,count);
Memo1.Text:=Memo1.Text+datamasuk;
end;

end.

dan hasil uji coba Terima data Serial melalui usb port dengan delphi 7 + comport (delphi vs arduino)

terima data serial dengan delphi

untuk download source code Terima data Serial melalui usb port dengan delphi 7 + comport (delphi vs arduino) KLIK DISINI