Arduino + Perl + Windows

[HelloWorldArduino (Gast)]

Guten Tag,

ich habe ein Problem mit meiner Perl Ansteuerung für mein Arduino unter 
Windows 7 64-Bit. Ich hoffe es findet sich ein Perl-Kenner.


Arduino Code:
Bei Empfangen einer "1" oder "0" soll sich der H/L Zustand des PIN11 
ändern. Über den Serielen Monitor klappt alles.

#define ledPin 11
int incomingByte;      

void setup() {

  Serial.begin(9600);
  pinMode(ledPin, OUTPUT);
}

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

    incomingByte = Serial.read();
    
    if (incomingByte == '1')
    {
      digitalWrite(ledPin, HIGH);
      Serial.println("LED ist eingeschaltet!");
    } 

    if (incomingByte == '0')
    {
      digitalWrite(ledPin, LOW);
      Serial.println("LED ist ausgeschaltet!");
    }
  }
}

Perl Code (Ausschnitt):
Leider passiert beim Senden nichts. Die Tx/Rx LEDs auf der Platine 
blinken kurzzeitig, mehr aber nicht.
Beim Auslesen der Baudrate, databits etc. habe ich keine Probleme.

my $ob = Win32::SerialPort->new ('COM3') || die;
$ob->write("1");

Ich habe auch schon das Modul FIRMATA getestet gehabt, leider auch ohne 
Erfolg.

Ich hoffe mir kann einer von Euch helfen. Google konnte mir leider NICHT 
helfen.

Gruß.

[Jürgen S. (jurs)]

HelloWorldArduino schrieb:
> Ich hoffe mir kann einer von Euch helfen. Google konnte mir leider NICHT
> helfen.

Das Problem dürfte mit Deinem Perl an sich nichts zu tun haben, sondern 
eher mit dem automatischen Reset, den ein Arduino-Board immer dann 
ausführt, wenn Du vom PC aus eine serielle Verbindung zum Board 
aufbaust.

Du schreibst nicht, was für ein Board Du verwendest, daher gehe ich mal 
vom UNO aus. Nach einem automatischen Reset läuft zunächst einmal der 
Bootloader auf der Arduino, danach startet der Sketch.

Ich sehe da zwei Möglichkeiten:

1. Den Steuerbefehl verzögert nach Aufbau der seriellen Verbindung 
senden. Also von Deinem Programm aus: COM-Port öffnen, drei Sekunden 
(oder wie lange es braucht) warten, dann das serielle Kommando senden 
(wenn auf dem Board Reset und Bootloader abgefrühstückt sind).

2. Auf dem Arduino-Board den automatischen Reset 
abschalten/deaktivieren.

Zu 2. siehe:
http://playground.arduino.cc/Main/DisablingAutoResetOnSerialConnection

Vorsicht: Solange der automatische Reset deaktiviert ist, kannst Du über 
den Bootloader Programme nur noch mit "manuellem Reset" auf das Board 
hochladen. Oder mit einem ISP-Programmer.

[HelloWorldArduino (Gast)]

Hallo Jürgen,

danke für Deine Antwort. Leider funktioniert es dennoch nicht.
Wenn ich nun probiere vom Arduino eine while-Schleife auszulesen (Hello 
â 1s) bekomme ich folgenden Fehler:
"Second Read attempted before First is done [...]"

Ich habe zwischen allen Möglichen Abfragen diverse Pausen mit eingelegt. 
Leider ohne Erfolg.

while(1)
{
   $data = $port->lookfor();
   if ($data)
   {
      print "String length:    " . length($data) . "\n";
      print "String Received: (" . $data . ")\n";
   }
   sleep(2);
}

Kannst Du möglicherweise damit etwas Anfangen und mir auf die Sprünge 
helfen? Das gleiche geht auch an die Community. :)

Kann es sein das, dass Arduino mit Perl + Win7 - 64 Bit nicht kompatibel 
ist? Im Internet sind nur Codes unter Linux zu finden.

Danke + Gruß

[Bernd K. (prof7bit)]

Jürgen S. schrieb:
> Ich sehe da zwei Möglichkeiten:
>
> 1. Den Steuerbefehl verzögert nach Aufbau der seriellen Verbindung
> senden. Also von Deinem Programm aus: COM-Port öffnen, drei Sekunden
> (oder wie lange es braucht) warten, dann das serielle Kommando senden
> (wenn auf dem Board Reset und Bootloader abgefrühstückt sind).
>
> 2. Auf dem Arduino-Board den automatischen Reset
> abschalten/deaktivieren.

drei.

3. Unter Windows (leider nicht unter Linux mit dem derzeitigen Treiber 
dort) kann man das DTR Signal komplett deaktivieren, man kann den Port 
so öffnen daß der Arduino keinen Reset ausführt.

[Robert L. (lrlr)]

>Serial.begin(9600);
 8n1
usw.

irgendwo muss das auf PC Seite auch eingestellt werden, ...

davon steht im deinem Code ja nix..

[HelloWorldArduino (Gast)]

Robert L. schrieb:
>>Serial.begin(9600);
>  8n1
> usw.
>
> irgendwo muss das auf PC Seite auch eingestellt werden, ...
>
> davon steht im deinem Code ja nix..

Hallo Robert.

Ich wollte meinen Beitrag kurz fassen, daher hatte ich nur einen 
Ausschnitt der Funktion mit eingefügt gehabt. Weiter unten ist der 
komplette Code.

Leider kommme ich absolut nicht weiter. Ich bin am verzweifeln.

use strict;
use warnings;
use Win32::SerialPort;

my $ob = Win32::SerialPort->new ('COM3') || die;
$ob->debug(0);

my $baud = $ob->baudrate;
my $data = $ob->databits;
my $parity = $ob->parity;
my $stop = $ob->stopbits;
my $hshake = $ob->handshake;

print "Baudrate:        $baud\n"; # just debugging
print "Paritaet:        $parity\n";
print "Datenbits:       $data\n";
print "Stoppbits:       $stop\n";
print "Flusssteuerung:  $hshake\n";

$ob->baudrate(9600)   || die "fail setting baud";
$ob->parity($parity)   || die "fail setting parity";
$ob->databits($data)   || die "fail setting databits";
$ob->stopbits($stop)   || die "fail setting stopbits";
$ob->handshake($hshake)  || die "fail setting handshake";
$ob->write_settings   || die "no settings"; 
$ob->save("COM_3.cfg");

print "Writting ... "; <STDIN>;
$ob->write("1");

Danke + Gruß