Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]7372[/thread]

Problem mit Serial Port Modul: dito



<< >> 1 Eintrag, 1 Seite
fritz
 2005-10-19 16:53
#59028 #59028
User since
2005-10-19
44 Artikel
BenutzerIn
[default_avatar]
Hi alle zusammen. Als relativer Newbie in Sachen objektorientierter Programmierung steh ich vor folgendem Problem:

Ich will mittels des Moduls Serial Port von Perl aus ueber eine RS232 Schnittstelle auf einen Microkontroller zugreifen.

ich habe das Modul bereits mit use Win32::SerialPort eingebunden und erzeuge mir mit
Code:
Code: (dl )
1
2
 $PortObj = new Win32::SerialPort($portname, $quiet) 
      || die "Can't open $portname: $^E\n";    # $quiet is optional


auch ein entsprechendes File SerialPort.pm

Danach folgt die Initialisierung mit

Code:
Quote
 $PortObj->is_databits(8);
 $PortObj->is_baudrate(9600);
 $PortObj->is_parity("none");
 $PortObj->is_stopbits(1);
 $PortObj->user_msg(ON);
 $PortObj->handshake("rts");
 $PortObj->buffers(4096, 4096);

 @required = qw( BAUD DATA STOP PARITY );
$a =  $PortObj->initialize(@required) || undef $PortObj;



Frage 1: Ist die Initialisierung nun bereits fertig?
Frage 2: Wie benutze ich init_done?
Frage 3: Wie kann ich nun z.B die Baudrate aendern oder einfach ein Zeichen zu meinem Microkontroller senden?

edit pq: code-tags hinzugefügt\n\n

<!--EDIT|pq|1129795062-->
<< >> 1 Eintrag, 1 Seite



View all threads created 2005-10-19 16:53.