Tenho que fazer uma linguagem se comunicar com o arduino
e vice-versa. Possuo
Possuo o programa em C
e tenho que modificá-lo para esse projeto, a linguagem que terei de usar é Perl
.
Segue o código corrigido e funcionandoque tenho: ( =} vlw @stderr)
use 5.014;
use strict;
use warnings;
use lib 'C:\Dwimperl\cpan\build\Win32-SerialPort-0.22-tXycqQ\lib';
use Win32::SerialPort;
# porta serial
# perl+arduino
my $port = new Win32::SerialPort("lib/Win32/SerialPort.pm");
$port->new>user_msg("COM3"ON);
$port->databits(8);
$port->baudrate(960019200);
$port->parity("none");
$port->stopbits(1);
$port->dtr_active(0);
while (1) {
print "Enter a number... ";
my $char = <stdin>;;
chomp($char);
# Send the character to the Arduino
if ($char =~ /^\d+$/) {
print "Sending $char ...\n";
$port->write(chr("$char"));
}}
}
EstavaEstá dando o seguinte erro na porta serial: