Kendali Arduino Menggunakan Interface Delphi 7

Kendali Arduino Menggunakan Interface Delphi 7

          Pada kesempatan kali ini saya akan menjelaskan mengenai sebuah alat yang menggunakan software Delphi 7 sebagai interface komputer untuk mengendalikan Arduino secara serial atau UART. alat ini adalah basic teknik serial mikrokontroller dan bisa dikembangkan ke arah yang lebih bermanfaat dan menarik lainnya bisa itu kendali lampu rumah atau penggerak buka pintu via delphi 7. untuk lebih jelasnya berikut adalah program dan daftar komponennya.

a. Arduino Uno

b. Program Arduino IDE

int led = 13;
char str;

void setup()
{
 
pinMode(led,OUTPUT); 
Serial.begin(9600);

}

void loop()
{
 
if(Serial.available()>0)
{

str = Serial.read();

if(str == '1')
{
digitalWrite(led,HIGH);
}

if(str == '2')
{
digitalWrite(led,LOW);
}

}
delay(15);

}





c. Program Interface Delphi 7

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ComPort1: TComPort;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
ComPort1.ShowSetupDialog;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ComPort1.WriteStr('1');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ComPort1.WriteStr('2');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
comport1.Connected := True;
end;

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

end.





d. VIDEO HASILNYA