Delphi控制Arduino紅綠燈與LCD

最近開始學著使用Arduino來做一些簡單的控制,對於只學商完全不懂電子、電路的人真的是一大福音!很快就能上手~
當然最終還是希望能與電腦做搭配控制,寫了個簡單的程式控制紅、黃、綠燈,並在LCD液晶顯示器顯示目前亮的是Red/Yellow/Blue LED.
[c]
#include <Wire.h>
#include <LiquidCrystal_I2C.h>

LiquidCrystal_I2C lcd(0x27, 16, 2);
int redled =10;
int yellowled =7;
int blueled =4;
void setup()
{
Serial.begin(9600);
pinMode(redled, OUTPUT);
pinMode(yellowled, OUTPUT);
pinMode(blueled, OUTPUT);
lcd.begin();
lcd.clear();
lcd.backlight();
lcd.print("Lin Shou Shan");

}

void loop()
{
char s;
if (Serial.available()>0){
s=(char) Serial.read();
lcd.clear();
digitalWrite(redled, LOW);
digitalWrite(yellowled, LOW);
digitalWrite(blueled, LOW);
if(s==’R’){
digitalWrite(redled, HIGH);
lcd.print("Red LED");
}
if(s==’Y’){
digitalWrite(yellowled, HIGH);
lcd.print("Yellow LED");
}
if(s==’B’){
digitalWrite(blueled, HIGH);
lcd.print("Blue LED");
}
}
}
[/c]

[pascal]
procedure TForm1.Button1Click(Sender: TObject);
begin
Comm1.StopComm;
COMM1.CommName := ‘COM6’;
COMM1.StartComm;
end;

procedure TForm1.Button2Click(Sender: TObject);
var s:AnsiString;
begin
s:=”;
s:= TButton(Sender).Hint;
Comm1.WriteCommData(PAnsiChar(s),Length(s)); //送出指令給遠端
end;
[/pascal]

作者: 林壽山

林壽山 目前任職於軟體公司研究開發部門主管,主要採用.net core/.net 5/6 開發,收銀機pos系統開發,第三方支付設計(綠界、馬來西亞epay/happypay、台新one碼),金流設計,行動支付設計(悠遊卡/一卡通),支付寶,微信,街口支付,信用卡機(聯合信用卡),擅長PHP網頁設計(CodeIgniter、Laravel)框架、Delphi程式設計、資料庫設計、C# WinForm/WebForm程式設計、ASP.net MVC、LINE串接、API串接設計