Re^3: Serial Port


Perl: the Markov chain saw
	PerlMonks

Re^3: Serial Port

by RichardK (Parson)

on Aug 13, 2015 at 16:23 UTC ( [id://1138446]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Serial Port
in thread 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]

1.)

2.)

[reply]
[d/l]

In Section Seekers of Perl Wisdom