Code-Schnippsel Arduino

RS232 init:
[code]
  void setup ()
  {
   Serial.begin (9600);
  }
[/code]

RS232 einlesen:
[code]
  /* Sollwinkel via serieller Schnittstelle Empfangen
     Sollwinkel muss 3-Stellig + LF uebertragen werden
  */
  void Empfangen(){
      int count = 0;       // eingehende Byte zaehlen
      beschleunigung=true; // => 1x bei neuem Winkel Motor in der Regelschleife hochfahren
      schleichgang=false;
      boolean ok = true;
      while(ok){
         if (Serial.available () > 0){
            incomingByte = Serial.read ();
            data_in[count] = incomingByte;
            count++;
            if (incomingByte == 10){ // dez 10 = Zeilenende
               ok=false;
            }
         }
      }
  }
[/code]

RS232 ausgeben:
[code]
/*Info an serielle Schnittstelle senden*/
void RS232OUT(){
  Serial.println("Winkel liegt an.             Done");
  delay(10);
}
[/code]

Code-Schnippsel Perl via Linux

RS232 init:
[code]
use Device::SerialPort;
# init globale Variablen
my $port = Device::SerialPort->new("/dev/ttyACM0");
my $PeilungSoll="";
my $VonArduino="";
[/code]

an Arudino senden:
[code]
sub senden{
 my $Var=shift @_;
 $port->write($Var); # via RS232 senden
 return(1);
}
[/code]

von Arduino empfangen:
[code]
sub empfangen{
 my $Input="";
 my $OK=0;
 until($OK){
   sleep(1);
   $Input = $port->lookfor(); # von RS232 lesen
  if ($Input) {
   $OK=1;
   $port->lookclear; # Buffer loeschen?
   }
 }
 return($Input);
}
[/code]