Re^3: Serial Port

That repeat callback is not tied to anything. The Tk event loop will call the handler every 100 ms. You will need to write code in the handler to deal with every message the arduino will send.

Comment on Re^3: Serial Port

Replies are listed 'Best First'.
Re^4: Serial Port by PilotinControl (Pilgrim) on Aug 13, 2015 at 18:35 UTC
RichardK a big thank you! It works! and the code is below: `sub handler { my $timer = $mw->repeat(100,\&sighandler ); sub sighandler { my $data = $port->lookfor; return unless $data; # do stuff print STDOUT "$time Message Received: (" . $data . ")\n"; if ($data =~ /OF/) { $signalblock100->configure(-image => $mw->Photo(-file => 'picture.jpg' +)); } $port->lookclear; } }` [download] Had to use a sub with in a sub...unless there is a different way to do it..the code works as follow: 1.) Button is Pushed = LEDs turn on for 8 seconds 2.) LEDs go out and the word OF is sent from the Arduino and is Polled by the Perl Script and the button that is shaded is now unshaded and the RX/TX buffers have been purged. Thanks again!	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Serial Port
by PilotinControl (Pilgrim) on Aug 13, 2015 at 18:35 UTC

RichardK a big thank you! It works! and the code is below:

sub handler {

my $timer = $mw->repeat(100,\&sighandler );

sub sighandler {

my $data = $port->lookfor;
return unless $data;
# do stuff
print STDOUT "$time Message Received: (" . $data . ")\n";

if ($data =~ /OF/) {
$signalblock100->configure(-image => $mw->Photo(-file => 'picture.jpg'
+));
}
$port->lookclear;
}

}
[download]

1.)

2.)

[reply]
[d/l]