Arduino/de

From Lazarus wiki
Revision as of 23:37, 8 March 2018 by Mathias (talk | contribs) (Created page with "==Kommunikation mit einem Arduino== Dieses kleine Beispiel demonstriert eine Kommunikation mit einem Arduino. <br> Der Arduino Sketch in C++ wurde in der Arduino-IDE erstellt....")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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.