Device::SerialPort <--> Win32::SerialPort (gelöst) (Allgemeines zu Perl)

[thread]20324[/thread]

Device::SerialPort <--> Win32::SerialPort [gelöst]

Tags: perl5 serial Ähnliche Threads

Leser: 8

Articles: hide open all | hide show old branches

+14 replies
foobar12345

2017-07-09 14:03
User since
2011-07-20
20 Artikel
BenutzerIn
hi @all,

ich hab folgendes kleine testscript, funktioniert unter linux 1a.

die daten werden von einem µc empfangen und sauber wieder ausgegeben ...

ist da eventuell schon etwas falsch dran ?
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

#!/usr/bin/env perl use strict; use warnings; use Device::SerialPort; $|=1; my $serDev = $ARGV[0] || '/dev/ttyUSB0'; my $port = Device::SerialPort->new($serDev); my $serSpeed = $ARGV[1] || 115200; my $serDB = $ARGV[2] || 8; my $serPA = $ARGV[3] || 'none'; my $serSB = $ARGV[4] || 1; unless ($port) { print "Serial port: $serDev not found, use\n\n"; print " $0 <device> <speed> <baud> <parity> <stopbits>\n\n"; print " $0 /dev/ttyACM0 115200 8 none 1\n\n"; exit; } $port->databits($serDB); $port->baudrate($serSpeed); $port->parity($serPA); $port->stopbits($serSB); $port->read_char_time(1); # don't wait for each character $port->read_const_time(500); # 0.5 sec per unfulfilled "read" $port->write("PAGE\n"); $port->lookclear;
weil wenn ich das unter windows versuche kommen überhaupt keine daten bei
meinem µc an ;(
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

#!/usr/bin/env perl use strict; use warnings; # use Device::SerialPort; use Win32::SerialPort; $|=1; # my $serDev = $ARGV[0] || '/dev/ttyUSB0'; my $serDev = $ARGV[0] || 'COM3'; # my $port = Device::SerialPort->new($serDev); my $port = new Win32::SerialPort($serDev); my $serSpeed = $ARGV[1] || 115200; my $serDB = $ARGV[2] || 8; my $serPA = $ARGV[3] || 'none'; my $serSB = $ARGV[4] || 1; unless ($port) { print "Serial port: $serDev not found, use\n\n"; print " $0 <device> <speed> <baud> <parity> <stopbits>\n\n"; print " $0 /dev/ttyACM0 115200 8 none 1\n\n"; exit; } $port->databits($serDB); $port->baudrate($serSpeed); $port->parity($serPA); $port->stopbits($serSB); $port->read_char_time(1); # don't wait for each character $port->read_const_time(500); # 0.5 sec per unfulfilled "read" $port->write("PAGE\n"); $port->lookclear;
hat eventuell jemand einen tip für mich ... ?
- rosti
  
  2017-07-09 15:40
  
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  
  Quote
  hat eventuell jemand einen tip für mich ... ?
  
  Ja. Führe eine Fehlerbehandlung ein. Das beginnt mit einer Prüfung, ob die Instanz überhaupt erstellt werden konnte. MfG
- +12 replies
- GwenDragon
  
  2017-07-09 16:06
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Vielleicht dieses … write_settings bei http://search.cpan.org/~bbirth/Win32-SerialPort-0....
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +11 replies
  - foobar12345
    
    2017-07-09 16:59
    User since
    2011-07-20
    20 Artikel
    BenutzerIn
    
    2017-07-09T14:06:01 GwenDragon
    Vielleicht dieses … write_settings bei http://search.cpan.org/~bbirth/Win32-SerialPort-0....
    
    danke ... funktioniert perfekt ...
    
    für die geschichte, wenn es nochmal jemand braucht hier im anhang
    funktionierend
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
    
    #!/usr/bin/env perl use strict; use warnings; use Win32::SerialPort; $|=1; my $serDev = $ARGV[0] || 'COM3'; my $serSpeed = $ARGV[1] || 115200; my $serDB = $ARGV[2] || 8; my $serPA = $ARGV[3] || 'none'; my $serSB = $ARGV[4] || 1; my $port = new Win32::SerialPort($serDev); $port->user_msg("ON"); $port->databits($serDB); $port->baudrate($serSpeed); $port->parity($serPA); $port->stopbits($serSB); $port->handshake("rts"); $port->buffers(4096, 4096); $port->write_settings || undef $port; unless ($port) { print "Serial port: $serDev not found, use\n\n"; print " $0 <device> <speed> <baud> <parity> <stopbits>\n\n"; print " $0 /dev/ttyACM0 115200 8 none 1\n\n"; exit; } $port->write("IRGEDNWAS\n"); $port->lookclear;
    - +10 replies
    - foobar12345
      
      2017-07-09 17:50
      
      User since
      2011-07-20
      20 Artikel
      BenutzerIn
      
      haa, leider nur fast ;(
      
      irgendwie bleiben die write's in einem buffer hänger,
      weil folgendes script sendet die beiden lines mit PAGE nicht wie
      erwartet mit ca. 3sec pause, sondern erst wenn es sich beendet
      wenn ich selber $port->close reinschreibe schickt er es natürlich
      sofort raus, nur ist halt der port zu für den 2ten write-aufruf
      
      sowas wie $port->flush() hab ich leider nicht gefunden
      
      kann mir jemand sagen welches magische schnippelchen ich jetzt in der manpage
      überlesen habe ???
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
      
      #!/usr/bin/env perl use strict; use warnings; use Win32::SerialPort; $|=1; my $serDev = $ARGV[0] || 'COM3'; my $serSpeed = $ARGV[1] || 115200; my $serDB = $ARGV[2] || 8; my $serPA = $ARGV[3] || 'none'; my $serSB = $ARGV[4] || 1; my $port = new Win32::SerialPort($serDev); $port->databits($serDB); $port->baudrate($serSpeed); $port->parity($serPA); $port->stopbits($serSB); $port->write_settings || undef $port; unless ($port) { print "Serial port: $serDev not found, use\n\n"; print " $0 <device> <speed> <baud> <parity> <stopbits>\n\n"; print " $0 /dev/ttyACM0 115200 8 none 1\n\n"; exit; } $port->write("PAGE\n"); $port->lookclear; sleep(3); $port->write("PAGE\n"); $port->lookclear; sleep(10);
      - +2 replies
      - foobar12345
        
        2017-07-09 18:02
        
        User since
        2011-07-20
        20 Artikel
        BenutzerIn
        
        wenn ich nach einem write die zurückkommenden werte mit read
        lesen will, bekomme ich ein
        
        'Wait for CTS'
        
        was sagt mir das ?
        
        GwenDragon
        
        2017-07-09 18:39
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Es wartet, dass Control To Send kommt.
        https://de.wikipedia.org/wiki/Datenflusssteuerung#...
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +7 replies
      - GwenDragon
        
        2017-07-09 18:42
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ich bin bei Serieller Schnittstelle seit ca. 20 Jahren draußen, weil ich keinerlei Steuerungshardware mehr produziere. Deswegen nur meine Tipps als mögliche Hilfe.
        
        Hast du schon mal die beispiel gesehen: http://cpansearch.perl.org/src/BBIRTH/Win32-Serial...
        Die könnten dir Hilfe zur Programmierung geben.
        Last edited: 2017-07-09 18:43:45 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +6 replies
        
        foobar12345
        
        2017-07-09 19:33
        
        User since
        2011-07-20
        20 Artikel
        BenutzerIn
        
        danke für eure hilfe ...
        
        wenn man unter windows lockclear() weg lässt, funktioniert es ...
        warum auch immer ;)
        
        +5 replies
        
        GwenDragon
        
        2017-07-09 19:40
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Das existiert auch gar nicht als Methode in Win32::SerialPort.
        
        Dachtest du Win32::SerialPort und Linuxs Device::SerialPort hätten die gleiche API!?
        Last edited: 2017-07-09 19:41:32 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        foobar12345
        
        2017-07-09 19:42
        
        User since
        2011-07-20
        20 Artikel
        BenutzerIn
        
        muss ja irgendwie ...
        so funktioniert es
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
        
        #!/usr/bin/env perl use strict; use warnings; use Win32::SerialPort; $|=1; my $serDev = $ARGV[0] || 'COM3'; my $serSpeed = $ARGV[1] || 115200; my $serDB = $ARGV[2] || 8; my $serPA = $ARGV[3] || 'none'; my $serSB = $ARGV[4] || 1; my $port = new Win32::SerialPort($serDev); $port->databits($serDB); $port->baudrate($serSpeed); $port->parity($serPA); $port->stopbits($serSB); $port->write_settings || undef $port; unless ($port) { print "Serial port: $serDev not found, use\n\n"; print " $0 <device> <speed> <baud> <parity> <stopbits>\n\n"; print " $0 /dev/ttyACM0 115200 8 none 1\n\n"; exit; } $port->write("PAGE\n"); sleep(3); $port->write("PAGE\n");
        
        +3 replies
        
        GwenDragon
        
        2017-07-09 19:46
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ich lese aber aus http://search.cpan.org/~bbirth/Win32-SerialPort-0.... eher dass Devuice::SerialPort nicht ganz kompatibel ist.
        
        Vielleicht ist auch nur die Doku unstimmig order fehlerhaft.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        foobar12345
        
        2017-07-09 21:10
        
        User since
        2011-07-20
        20 Artikel
        BenutzerIn
        
        kann gut sein ... aber wie oben funktioniert es ;)
        
        GwenDragon
        
        2017-07-10 09:51
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Wenn jetzt alles ok ist, dann setze de Thread doch bitte oben als Gelöst mit dem grünen Haken.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2017-07-09 14:03.