MENGIRIM DAN MEMBACA DATA DARI ARDUINO DENGAN DELPHI 7

 PROGRAM  KIRIM DATA ARDUINO 

    long randNumber;

    double x;

    void setup() {

      Serial.begin(9600);

      x = 0;

    }

    void loop() {

      randNumber = random(1,5); // generate random number between 1 & 5

      Serial.println(randNumber);

      delay(1000);

    }

 PROGRAM BACA DATA DELPHI 7

unit Unit3;

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;

    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.

TAMPILAN APLIKASI DELPHI 7