Платформа ардуино позволяет подключить к себе практически всё, на просторах интернета можно найти много информации об этом, поэтому мы не будем тратить на это время, а ограничимся 2 компонентами: 1) Реле, 2) ультразвуковой датчик расстояния. На фотографии присутствует ещё сетевой шилд, в нашем случае он не нужен (просто лень было снимать)).
Перед подключением ардуины необходимо установить драйвер CH341SER.EXE (Приложен к статье) либо другой, а для её прошивки нужна ещё среда разработки http://arduino.ru/Arduino_environment.
Итак, ардуина прошита следующим кодом:
const int Trig = 22; // Пин для подачи 5 вольт на уз датчик расстояния
const int Echo = 23; // Пин для приёма информации о расстоянии
char s[3]; // Для хранения команды полученной из 1С
int i=0; // Для счётчика
unsigned int time_us=0; // Для хранения длительности импулься в мк сек. полученного с уз датчика
unsigned int distance_sm=0; // Для хранения расстояния до объекта
void setup()
{
Serial.begin(9600); //установка порта на скорость 9600 бит/сек
pinMode(7, OUTPUT); // Пин 7 используем для управления реле (5 вольт - реле включено, 0 - выключено)
pinMode(Trig, OUTPUT);
pinMode(Echo, INPUT);
}
void loop()
{
s[0] = '0'; // При каждой итерации обнуляем переменные
i=0;
while (Serial.available() > 0) // Пока в буфере серийного порта есть данные - читаем
{
s[i]=Serial.read(); // Записываем их в S, в нашем случае команда занимает 1 символ, 2-й перенос строки, 3 - на всякий случай))
i++;
if (i>=3) break;
}
if (s[0] == '1') {delay(5); // Если получена команда 1 то управляем реле
if (digitalRead(7) == 1) {digitalWrite(7, LOW);Serial.print('1'); } // Проверяем состояние, если включено выключаем и отправляем ответ 1
else {digitalWrite(7, HIGH);Serial.print('2');}} // Если выключено - включаем и отправляем ответ 2
else if (s[0] == '2') {delay(5); // Если получена команда 2 измеряем расстояние
digitalWrite(Trig, HIGH); // Подаем сигнал на выход микроконтроллера
delayMicroseconds(10); // Удерживаем 10 микросекунд
digitalWrite(Trig, LOW); // Затем убираем
time_us=pulseIn(Echo, HIGH); // Замеряем длину импульса
distance_sm=time_us/58; // Пересчитываем в сантиметры
Serial.print(distance_sm); // Выводим на порт
}
}
Теперь 1С. Для отправки данных достаточно использовать метод "ЗаписьТекста", пишем напрямую в ком порт:
Команда = 1; // 1- для реле, 2- для датчика расстояния
модемЗ = Новый ЗаписьТекста("\\.\Com5",КодировкаТекста.ANSI);
модемЗ.ЗаписатьСтроку(Команда + Символы.ПС);
модемЗ.Закрыть();
Ответ получаем с помощью "ЧтениеТекста", делаем всё аналогично:
МодемЧ= Новый ЧтениеТекста();
МодемЧ.Открыть("\\.\Com5",КодировкаТекста.ANSI);
// важный момент, если вместо ответа выполучаете "", Неопределено - это значит ком порт не успевает
// после открытия записать получанные данные в буфер, поэтому делаем в этом месте небольшую задержку
// 15 миллисекунд хватит. Раскомментировать следующие 3 строчки в случае проблемы
// т = ТекущаяУниверсальнаяДатаВМиллисекундах() + 15; // Задержка 15 миллисекунд
// Пока т > ТекущаяУниверсальнаяДатаВМиллисекундах() Цикл // Все супер-пупер проффи с чрезвычайно прямыми руками
// КонецЦИкла; // идут лесом!!! и нечего срать в комментариях коль по делу сказать нечего
Ответ= МодемЧ.ПрочитатьСтроку(); // Читаем буфер ком порта
модемЧ.Закрыть();
Ну вроде бы и всё, но есть НО, очень большое НО. Ком порт должен быть проинициализирован!
Про то, как это сделать, есть много статей, однако все они довольно сложные, поэтому ниже будет предложен более
простой вариант (Все супер-пупер проффи с чрезвычайно прямыми руками идут лесом!!!).
При первом обращении к ком порту необходимо установить некоторые параметры в регистрах контроллера. В типовых
конфигурациях 1С есть встроенные драйвера для тестирования фискального оборудования, они находятся в общих макетах в виде двоичных данных. Один из них - ДрайверАТОЛФискальныеРегистраторы, его мы и будем использовать (файл приложен к статье, также его можно взять из типовой конфигурации). С помощью этой компоненты мы протестируем наш контроллер, результат, естественно, будет отрицательным, ведь у нас ардуино, а не АТОЛ, но во время теста драйвер установит все нужные параметры.
Итак, драйвер залит в макет в виде двоичных данных:
НомерКомПорта = 5;
ПодключитьВнешнююКомпоненту(ПоместитьВоВременноеХранилище(ПолучитьМакет("ДрайверАТОЛФискальныеРегистраторы")), "АтолУниверсальный");
ОбъектДрайвера = Новый ("AddIn.АтолУниверсальный.ATOL_KKM_1C82");
ОбъектДрайвера.УстановитьПараметр("BaudRate", 7); // цифра 7 означает скорость 9600
ОбъектДрайвера.УстановитьПараметр("PortNumber", 1000 + НомерКомПорта);
ОбъектДрайвера.ТестУстройства(,);
Ну вот и всё.
ПС Часть материала позаимствована с просторов интернета
