Scribd
Upload
50 views3 pages

Arduino Delphi Mysql Notepad

This document contains code for a Delphi application that connects to an Arduino board via serial communication. It reads sensor data sent from the Arduino into string variables, parses the data, and inserts it into a MySQL database via a query. The data includes weight, height, BMI, and health assessment category. The user interface has buttons and labels to control the connection and display the readings.

Uploaded by

Tito Adi Nugroho
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
50 views3 pages

Arduino Delphi Mysql Notepad

This document contains code for a Delphi application that connects to an Arduino board via serial communication. It reads sensor data sent from the Arduino into string variables, parses the data, and inserts it into a MySQL database via a query. The data includes weight, height, BMI, and health assessment category. The user interface has buttons and labels to control the connection and display the readings.

Uploaded by

Tito Adi Nugroho
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd

unit ARDUINO_DELPHI_MySQL;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset, ZConnection,
Grids, DBGrids, StdCtrls, CPort, ExtCtrls, DBCtrls,StrUtils,
ZAbstractConnection;
type
TForm1 = class(TForm)
E_Berat: TEdit;
E_tinggi: TEdit;
E_BMI: TEdit;
E_Keterangan: TEdit;
Berat: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
DBGrid1: TDBGrid;
ZQuery1: TZQuery;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
ZConnection1: TZConnection;
Edit1: TEdit;
ComPort1: TComPort;
ListBox1: TListBox;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure ComPort1RxChar(Sender: TObject ; Count : Integer);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
D_Tinggi: String;
D_Berat: String;
D_BMI: String;
implementation
{$R *.dfm}
procedure TForm1.ComPort1RxChar(Sender: TObject ; Count : Integer);
var A, B, C, D, DataA, DataB, DataC, DataD :string;
sx :TStringList;
begin
[Link];

repeat
begin
[Link](A,1);
DataA := DataA+A;
End;
Until A='A';
sx:=[Link];
[Link]:='A';
[Link]:=DataA;
[Link] :=sx;
E_Berat.Text := [Link][0];
[Link]['Berat'] := [Link][0];
[Link];
repeat
begin
[Link](B,1);
DataB := DataB+B;
End;
Until B='B';
sx:=[Link];
[Link]:='B';
[Link]:=DataB;
[Link] :=sx;
E_Tinggi.Text := [Link][0];
[Link]['Tinggi'] := [Link][0];
[Link];
repeat
begin
[Link](C,1);
DataC := DataC+C;
End;
Until C='C';
sx:=[Link];
[Link]:='C';
[Link]:=DataC;
[Link] :=sx;
E_BMI.Text := [Link][0];
[Link]['BMI'] := [Link][0];
[Link];
repeat
begin
[Link](D,1);
DataD := DataD+D;
End;
Until D='D';
sx:=[Link];
[Link]:='D';
[Link]:=DataD;
[Link] :=sx;
if [Link][0] = '0' then
E_Keterangan.Text := 'Kurang Ideal'
else if [Link][0]= '1' then
E_Keterangan.Text := 'Ideal'
else if [Link][0]= '2' then
E_Keterangan.Text := 'Kelebihan berat Badan'

else if [Link][0] = '3' then


E_Keterangan.Text := 'Obesitas';
//E_Tinggi.Text := [Link][0];
[Link]['Ket'] := E_Keterangan.Text;
[Link];
[Link];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
[Link];
[Link];
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
[Link]:=True;
[Link]:='Connected';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
[Link]:=False;
[Link] :='Disconnected';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
[Link];
end;
end.

You might also like