16

Tenho que fazer uma linguagem se comunicar com o arduino e vice-versa.
Possuo o programa em C e tenho que modificá-lo para esse projeto, a linguagem que terei de usar é Perl.

Segue o código que tenho:

use 5.014;
use strict;
use warnings;

use Win32::SerialPort;


my $port = new Win32::SerialPort("lib/Win32/SerialPort.pm");
$port->user_msg(ON); 
$port->databits(8);
$port->baudrate(19200);
$port->parity("none");
$port->stopbits(1);
$port->dtr_active(0);

while (1) {
   print "Enter a number... ";
   my $char = ;
   chomp($char);

   # Send the character to the Arduino
   if ($char =~ /^\d+$/) {
      print "Sending $char ...\n";
      $port->write("$char");
   }

}

Está dando o seguinte erro na porta serial:

Erro

16
  • Quais são as suas duvidas e quais dificuldades esta enfrentando? Vc poderia ser mais especifica?
    – gato
    Commented 23/08/2016 às 20:47
  • como fazer o cod para pelos sensores no arduino mandarem informaçoes pra LP e a PL mandar novamente para o arduino, troca de informaçoes entre eles Commented 24/08/2016 às 2:34
  • de uma olhada aqui e veja se ajuda vc.
    – gato
    Commented 24/08/2016 às 2:59
  • 1
    Acho que agora a sua pergunta está legal e votei para reabrir. Há mais um voto de reabertura também. São necessários 5 votos para a reabertura (faltam 3). Commented 24/08/2016 às 19:08
  • 2
    @stderr Consegue postar a sua solução aqui como resposta? (e dar um rollback na pergunta?) Pretty please!
    – Daniel
    Commented 16/05/2017 às 0:45

1 Resposta 1

1

Segue o código corrigido e funcionando:

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 = Win32::SerialPort->new("COM3");
$port->databits(8);
$port->baudrate(9600);
$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")); 

  }
}

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .