Arduino — Работа с Serial port(Часть 1)

Я очень часто, а если быть точнее, постоянно работаю с микроконтроллерами, пишу код для atmeg или для быстроты разработки, пишу для arduino. Так же я начал учить perl, учусь использовать его в нужных мне целях. В данной "заметке" я попытаюсь рассказать как с помощью простой программки на perl можно управлять выходами на плате arduino.

И так начнем. У нас есть Arduino Duemilanove которая подключается через usb к ноутбуку, для того чтобы отправить ей какие-нибудь данные можно воспользоваться библиотекой SerialPort:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

use Device::SerialPort; use Switch; use strict; use warnings; my $port = Device::SerialPort->new("/dev/ttyUSB0"); # 9600, 81N on the USB ftdi driver $port->baudrate(9600); $port->databits(8); $port->parity("none"); $port->stopbits(1); $port->write_settings(); my $i=1; while($i){ print "Enter 1 or 0: "; chomp (my $in = <>); switch($in){ case 1 {$port->write("1");} case 0 {$port->write("0");} case "q" {$i=0;} else {print "wrong \n";} } } $port->close; exit(0);

А для того, чтобы все заработало на "железе" нам нужно залить на ардуино программу, которая будет считывать значения с серийного порта:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

int ledPin = 13; int x ; int i = 0; void setup(){ Serial.begin(9600); pinMode(ledPin, OUTPUT); } void led_blink(){ if (i == 1){ digitalWrite(ledPin, HIGH); delay(100); digitalWrite(ledPin, LOW); delay(100); } delay(100); } void loop(){ if (Serial.available() > 0){ x = Serial.read(); if (char(x) != '0'){ i = 1; } else{ i = 0; digitalWrite(ledPin, LOW); } } led_blink(); }

Данная программа при получении 1 будет мигать светодиодом на 13 порту.
Вроде все просто.
В следующей "заметке" постараюсь описать процесс чтения данных с серийного порта из perl. Будем получать координаты серво-машинки.

1
2
3
4
5

Установленные пакеты
Name        : perl
Arch        : i686
Epoch       : 4
Version     : 5.12.3

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use Device::SerialPort;

my $port = Device::SerialPort->new('/dev/ttyUSB0');

# 9600, 81N on the USB ftdi driver
$port->baudrate(9600);
$port->databits(8);
$port->parity('none');
$port->stopbits(1);
$port->write_settings();

POLL:
for ($| = 1;;) {
    print 'Enter 1 or 0: ';
    chomp (my $inn = <>);
    given ($inn) {
        $port->write($_)  when [qw/0 1/];
        last POLL         when 'q';
        say 'wrong';
    }
}

1
2
3
4
5
6
7
8
9

use v5.10.0;
$inn = 1;
POLL: {
    given ($inn) {
        print 1  when [qw/0 1/];
        last POLL         when 'q';
        say 'wrong';
    }
}