Arduino/de
From Lazarus wiki
Jump to navigationJump to search
Kommunikation mit einem Arduino
Dieses kleine Beispiel demonstriert eine Kommunikation mit einem Arduino.
Der Arduino Sketch in C++ wurde in der Arduino-IDE erstellt.
Arduino Sketch
Dieser Sketch wandelt alle eingegangenen Buchstaben in Gross-Buchstaben um, ausgenommen Umlaute.
void setup() {
Serial.begin(9600);
}
void loop() {
while (Serial.available() > 0)
{
char ch = Serial.read();
if ((ch >= 97) and (ch <= 122)) {
ch -= 32; // In Grossbuchstaben umwandeln.
}
Serial.print(ch);
}
}
FPC Programm
Dieses Mini-Programm sendet Zeichen an den COM-Port, an welchen der Arduino angeschossen ist. Der Arduino wandelt dabei die Zeichen in Grossbuchstaben um.
program Project1;
uses
Serial, Crt;
var
serHandle: TSerialHandle;
ch: char;
begin
serHandle := SerOpen('/dev/ttyUSB0'); // Bei Windows 'COMx'
SerSetParams(serHandle, 9600, 8, NoneParity, 1, []);
repeat
ch := ReadKey;
if ch >= #32 then begin
SerWrite(serHandle, ch, 1);
ch := #0;
Delay(10);
SerRead(serHandle, ch, 1);
Write(ch);
end;
until ch = #27;
SerClose(serHandle);
end.