Probleme mit Win32::SerialPort (Fragen zu Perl-Modulen)

[thread]16119[/thread]

Probleme mit Win32::SerialPort

Leser: 25

Articles: hide open all | hide show old branches

+25 replies
kami

2011-03-28 18:12

User since
2010-03-17
92 Artikel
BenutzerIn

Hi,

ich habe mir ein Skript geschrieben, das Daten automatisch per Win32::SerialPort an die Serielle Schnittstelle COM4 übermittelt. Am anderen Ende des PCs sitzt ein Mikrocontroller der diese Daten auf einem LCD anzeigt. Das Skript habe ich einmal für UNIX mit Device::SerialPort geschrieben und nur das Modul für Windows ausgetauscht. Unter UNIX läuft alles super. Unter Windows habe ich das Problem, dass der COM-Port zwar gefunden wird, aber das LCD nicht richtig mit dem PC kommunizieren kann. Erst wenn ich ein Tool wie Terminal.exe von DerHAMMER starte, wird die Serielle schnittstelle richtig initialisiert. Woran kann das liegen?

Was kann ich tun?

Gruß kami

modedit Editiert von GwenDragon: CPAN-Tags eingefügt
Last edited: 2011-03-29 17:40:24 +0200 (CEST)
- +24 replies
- GwenDragon
  
  2011-03-28 18:30
  
  User since
  2005-01-17
  14875 Artikel
  Admin1
  
  Crosspost: http://www.mikrocontroller.net/topic/213604
  
  Quote
  Unter Windows habe ich das Problem, dass der COM-Port zwar gefunden wird, aber das LCD nicht richtig mit dem PC kommunizieren kann.
  Was bedeutet das genau? Gibt es irgendwelche Fehlermeldungen?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +23 replies
  - kami
    
    2011-03-28 18:41
    
    User since
    2010-03-17
    92 Artikel
    BenutzerIn
    
    Nach Crosspost ist ja relativ :)
    
    Also ich kriege von dem Gerät eine richtige Rückmeldung, das heißt wenn der Controller einen Textstring an den PC sendet, dann sehe ich Ihn. Aber wenn ich an den Controller per SerialPort einen String schicke dann kommt nix richtig an. Erst wenn ich das Skript am PC beende, kommt ein Bruchteil der Nachricht an und der COntroller zeigt diese an.
    
    Gruß kami
    - bianca
      
      2011-03-28 18:49
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2011-03-28T16:41:46 kami
      Erst wenn ich das Skript am PC beende, kommt ein Bruchteil der Nachricht an und der COntroller zeigt diese an
      
      Liest sich ein ganz klein wenig nach der Frage des korrekten Zeilenumbruchs. Du schreibst ja, dass unter Unix alles super läuft. Dann gib doch unter Win mal ein \r statt eines \n oder andersrum nur zum Test einfach mal so, meine ich.
      10 print "Hallo"
      20 goto 10
    - +21 replies
    - GwenDragon
      
      2011-03-28 18:58
      
      User since
      2005-01-17
      14875 Artikel
      Admin1
      
      Eigentlich sollte es mit dem Modul eine nichtblockierende Ein-/Ausgabe beim COM-Port haben.
      Verwendest du XON/XOFF oder hartes RTS/CTS?
      
      Ich kann leider nichts für dich testen, da auf WIn7 das Modul nicht installiert. :(
      
      Die Tests beim Installieren mit cpan haben geklappt?
      
      Und niemand kennt das Protokollhandling deines µC.
      Last edited: 2011-03-28 19:00:54 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +20 replies
      - kami
        
        2011-03-28 19:24
        
        User since
        2010-03-17
        92 Artikel
        BenutzerIn
        
        Hi,
        
        meine Initialisierung sieht so aus:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8
        
        my $port = Win32::SerialPort->new( "COM4" ); $port->baudrate(57600); $port->databits(8); $port->stopbits(1); $port->parity("none"); $port->read_const_time(1000); #$port->stty_clear("0"); $port->pulse_dtr_on(300);
        
        ich verwende zu unterteilen der NAchricht an die Schnittstelle keine Leerzeile oder so sondern unterteile die einzelnen NAchrichten mit ;
        
        Gruß kami
        Last edited: 2011-03-28 19:28:44 +0200 (CEST)
        
        +6 replies
        
        kami
        
        2011-03-29 16:01
        
        User since
        2010-03-17
        92 Artikel
        BenutzerIn
        
        Hi,
        
        keiner mehr einen Tipp?
        
        Muss ich den Puffer vielleicht erhöhen?
        
        Gruß kami
        
        +4 replies
        
        bianca
        
        2011-03-29 16:17
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-03-29T14:01:33 kami
        keiner mehr einen Tipp?
        
        War meine Zeilenende Vermutung kompletter Unfug?
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        GwenDragon
        
        2011-03-29 16:51
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Dem Empfänger ist wurscht welches Zeichen kommt, der Transfer bei RS232 läuft Zeichenweise, nicht Zeilenweise, und Handshake geschieht entweder über Hardwaresteuerleitungen wie RTS/CTS oder per Spezialzeichen XON/XOFF (DC1/DC3, ^Q/^S).
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        bianca
        
        2011-03-29 17:18
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ok, verstehe. Dachte nur, weil ich beim Drüberfliegen der Beispiele in der Doku auch \n u.ä. gesehen hatte.
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2011-03-29 17:43
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Wenn die Schnittstelle als TTY angesprochen wird, kann ein Newline als Trenner für den Datenstrom/-block Verwendung finden, muss aber nicht.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        GwenDragon
        
        2011-03-29 17:06
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Auch mal die Bugs des Moduls angesehen? Vielleicht ist da was dabei, was du verwendest.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +5 replies
        
        GwenDragon
        
        2011-03-29 16:46
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Kannst du nicht mal das Ganze mit einem Nullmodemkabel an deinem Rechner testen?
        Der Rechner senden dann nämlich an sich selbst die RS232-Daten, du kannst dann Senden und Empfangen und weißt wenigstens, ob deine PC-Schnittstelle mit deiner Initialisierung korrekt läuft.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        kami
        
        2011-03-29 22:29
        
        User since
        2010-03-17
        92 Artikel
        BenutzerIn
        
        Hi,
        
        Nullmodemkabel geht leider nicht, weil die Gegenseite nur einen USB-Port hat.
        
        Wie ist den meine Initialisierung muss ich da vielleicht was anpassen? Weil irgendwie klappt das ja super alles unter Unix udn MAC?
        
        Gruß kami
        
        bianca
        
        2011-03-30 07:14
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-03-29T20:29:40 kami
        Weil irgendwie klappt das ja super alles unter Unix udn MAC?
        
        Das macht mich auch so stutzig.
        Gibt es am Treiber für die serielle Schnittstellen bzw. in der Systemsteuerung allgemein Einstellungsmöglichkeiten für den Port? Quasi soetwas wie eine Kompatibilitätseinstellung oder so?
        Und ist der Port garantiert nicht defekt?
        Sind Unix und Mac andere Kisten oder die selbe wie Windows?
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2011-03-30 08:46
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Du hast am PC gar keine RS232-Schnittstelle mit DB9-Stecker?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        GwenDragon
        
        2011-03-30 12:33
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Die zugrunde liegenden Schnittstellen zum Betriebssystem für COMx sind bei Linux und Mac anders als bei Windows.
        
        Hast du einen aktuellen Treiber für COMx (Windows Systemsteuerung - Computerverwaltung - Gerätemanager - Kommunikationsanschluss - COM4 wählen - rechte Maustaste - Treibersoftware aktualisieren)?
        
        //EDIT: Ist in fen Hardwareeinstellungen von COM4 auch FIFO-Bufferung an und der Buffer groß genug?
        Last edited: 2011-03-30 13:03:52 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +8 replies
        
        GwenDragon
        
        2011-03-30 12:49
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Was liefert diese Schnippsel bei dir:
        
        Code (perl): (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 34
        
        #!perl use strict; use warnings; use Win32::SerialPort; my $port = Win32::SerialPort->new( "COM4" ); $port->user_msg(1); # misc. warnings $port->error_msg(1); # hardware and data errors $port->baudrate(19200); $port->databits(8); $port->stopbits(1); $port->parity("none"); $port->read_const_time(1000); #$port->stty_clear("0"); $port->pulse_dtr_on(300); $port->write_settings; my $baud = $port->baudrate; my $parity = $port->parity; my $data = $port->databits; my $stop = $port->stopbits; my $hshake = $port->handshake; print "B = $baud, D = $data, S = $stop, P = $parity, H = $hshake\n"; undef $port; __END__ liefert bei mir: B = 19200, D = 8, S = 1, P = none, H = rts
        
        Du kannst das auch dann mit deinen Werten testen.
        
        ===
        
        Beispiele zu Win32::SerialPort:
        Win32::SerialPort
        http://www.foo.be/docs/tpj/issues/vol4_1/tpj0401-0...
        
        ===
        
        //EDIT:
        Hast du schon mal mit $port->buffers die Puffer vergrößert?
        Was passiert bei geringeren Baudraten?
        
        Ansonsten ist so schwer zu helfen, da niemand deine Routinen zum Lesen und Schreiben an den µC kennt.
        Last edited: 2011-03-30 13:13:19 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +7 replies
        
        kami
        
        2011-03-31 08:43
        
        User since
        2010-03-17
        92 Artikel
        BenutzerIn
        
        Hi,
        
        so ich bin einen Step weitergekommen.
        
        Also wenn ich den PC neustarte, den µC an den Rechner anschliesse (COM4) und dann das Skript starte, sagt er jedes Mal:
        
        getglcd2.pl
        Das System kann die angegebene Datei nicht finden.
        can't open device: \\.\COM4
        at getglcd2.pl line 42
        
        Ich beende dann das Skript und gehe in die Systemsteuerung auf das Gerät COM4 und unter ADVANCED stelle ich die Baudrate auf 57600 und die Flowcontrol auf Hardware. Starte ich dann das Skript. Klappt alles wunderbar.
        
        Was muss ich nun tun um das alles automatisch über das Skript machen zu lassen?
        
        Gruß kami
        
        +4 replies
        
        bianca
        
        2011-03-31 09:07
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-03-31T06:43:07 kami
        Was muss ich nun tun um das alles automatisch über das Skript machen zu lassen?
        
        Eine Möglichkeit wäre zu forschen, welche Registry Einträge das jeweils sind und diese mittels Win32::Registry per Skript zu setzen.
        
        Edit: Hab hier eine Spur gefunden: http://social.msdn.microsoft.com/Forums/en-US/wind...
        
        Editiert von bianca: Link ergänzt
        Last edited: 2011-03-31 09:13:19 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
        
        kami
        
        2011-03-31 22:00
        
        User since
        2010-03-17
        92 Artikel
        BenutzerIn
        
        Hi,
        
        vielen Dank das sieht echt gut aus. Das werde ich morgen auch mal probieren.
        
        Gruß kami
        
        +2 replies
        
        wollik
        
        2011-06-30 20:09
        
        User since
        2005-02-04
        21 Artikel
        BenutzerIn
        
        Hallo Bianca,
        es scheint so als ob Deine COM4 Parameter nicht richtig gesetzt sind. Es gibt in Windows dazu mehre Möglichkeiten diese Parameter Default mäßeg auf die benötigten Werte zu setzen.
        
        Da Du es zum Drehen bekommst, wenn Du alles per Hand richtig eingestellt hast, benutze Perl zum Auslesen aller Parameter und schreibe diese einmalig in ein File (z.B. Com4.cfg). Dein Script muß dann diese File zum setzen der COM4 Parameter verwenden und Alles sollte dann auch richtig wieder hergestellt worden sein.
        Die Befehle für Dein script mit dem Serial Object $port wären:
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        # #my $cfg_file = 'c:\COM4.cfg'; # Name der Konfigurationsfile für COM4: # $port->save($cfg_file); # Speichern der lauffähigen COM4 Parameter # $port->restart($cfg_file); # Einlesen und Setzen der Parameter #
        
        Viele Grüße
        WolliK;)
        
        Last edited: 2011-06-30 20:12:00 +0200 (CEST)
        
        bianca
        
        2011-06-30 20:20
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-06-30T18:09:14 wollik
        Hallo Bianca,
        es scheint so als ob Deine COM4 Parameter nicht richtig gesetzt sind.
        
        Ich bin nicht Fragestellerin :)
        Aber trotzdem Danke im Namen von kami, vielleicht hilft es ihm. Hat sich ja leider länger nicht zurück gemeldet.
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        GwenDragon
        
        2011-03-31 09:31
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        1) Warum beantwortest du nicht bitte mal meine Fragen?
        Soll ich davon ausgehen, dass keine Antwort bedeutet, es geht alles?
        
        2) Ist beim Start deines PC im BIOS und im Windows überhaupt in den Hardwareeinstellzungen des Gerätemanagers COM4 als aktiv für die serielle Schnittstelle zugewiesen?
        Wenn nein, warum schaust du nicht erst in den Gerätemanager und leist nach, welche COM-Nummer die Serielle wirklich hat?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        kami
        
        2011-03-31 21:59
        
        User since
        2010-03-17
        92 Artikel
        BenutzerIn
        
        Hi,
        
        tut mir leid, das ich deine Fragen nicht richtig beantwortet habe. Ich vermute aber zur Zeit, das es ein Problem mit dem Treiber für FTDI ist. Irgendwie läuft der nicht ganz stabil auf meinem System. Ich werde morgen nochmal genau deine Punkte testen und dir deine Fragen beantworten. Zur Zeit geht wenn ich entsprechend dem Gerätemanager die Einstellung auf 57600 und hardware vorgenommen habe. Das ist komisch ich bin mir auch nicht sicher woran das liegt. Ich kann auch zur Zeit den Controller nicht mit Arduino an dem PC flashen. Irgendwas sperrt mich da.
        
        Wie stelle ich das den im Bios oder in Windows ein? Nach dem Neustart habe ich aber im Gerätemanager automatisch COM4.
        
        Gruß kami

View all threads created 2011-03-28 18:12.