Подключение устройств с нестандартными протоколами

[Фан]

Вопрос для разработчиков. В нашем проекте рассматривается вопрос использование устройств ML-OEM на базе сетевой технологии 1-Wire от Dallas Semiconductor Corp. (http://www.elin.ru/1-Wire). В частности компоненты: ML38H (на базе однопроводного компонента DS2438),
ML20S(на базе однопроводного компонента DS18S20) и ветвителя шины данных ML09 (на базе однопроводного компонента DS2409). Можно ли для контроллера ПЛК100 разработать программу для работы с данными устройствами?

[Филоненко Владислав]

несомненно. Существуют преобразователи 232->1-Wire. Дальше пишется программа для обмена с устройствами. У нас в библиотеке UNM.lib даже реализована функция для подсчета контрольной суммы.

[Crazy]

внутренняя перемычка нарисована между 9 и 11 в ПЛК154, может быть между 8 и 11?

[Kirill]

внутренняя перемычка нарисована между 9 и 11 в ПЛК154, может быть между 8 и 11?

Откуда рисунок?
Вы правы, должна быть 8 и 11.

[Crazy]

Откуда рисунок?
Вы правы, должна быть 8 и 11.

Странный вопрос. Инструкция к прибору.
Вероятно результат copy/paste.

[Kirill]

Странный вопрос. Инструкция к прибору.
Вероятно результат copy/paste.

Посмотрел в свежей версии руководства. Там все корректно. В любом случае, спасибо.

[Gans]

Привет всем! может кто проконсультирует как работать с ком портом. У меня считывание данных пришедших в компорт работает, а вот отправка данных из компорта пока не получилось. Использую RS232 (9-и пиновый). За основу взят кусок программы «sms_send_example.zip» выложенной на сайте, имена и типы переменных теже :-). Значение bCurentWork ввожу руками из кодесис.

CASE bCurentWork OF
0: ; (*Тута отсиживаемся после непосильной работы с компортом*)
(*1- Открытие компорта*)
(*2-Отправка сообщения snd_str*)
(*3-Считываем сообщение*)

1: IF NOT port_opened THEN (*Открываем порт*)
com_handle:=SysComOpen(com_num);
IF com_handle<>16#FFFFFFFF THEN
port_init:=TRUE;
ELSE
SysComClose(com_num);
com_handle:=SysComOpen(com_num);
port_init:=TRUE;
END_IF (*Настраиваем скорость*)
com_set.Port:=com_num;
com_set.dwBaudRate:=9600;
com_set.byParity:=0;
com_set.dwTimeout:=0;
com_set.byStopBits:=1; (* *)
com_set.dwBufferSize:=0;
com_set.dwScan:=0;
res:=SysComSetSettings(com_num,ADR(com_set)); (*Успешно открыли*)
IF NOT res THEN
port_opened:=TRUE;
END_IF
END_IF
bCurentWork:=0;

2: (*Вот тут что-то не так*)
SysComWrite(com_num, ADR(snd_str), LEN(snd_str), 0);
bCurentWork:=0;

3: sz:=SysComRead(com_num,ADR(rcvBUF),1024,0);
IF sz<>0 THEN (*Если данные есть то получаем строку*)
FOR iter:=0 TO sz-1 DO
a_char:=ADR(rcvBuf[iter]);
rcvStr:=CONCAT(rcvStr,LEFT(a_char^,1) );
END_FOR
END_IF
(* bCurentWork:=0; это потом обнулим данные*)
END_CASE;

[Филоненко Владислав]

1. Между открытием порта и настройкой нужна пауза 1-2 мс.
2. Аналогично после настройки.
3. А LEN(snd_str) точно !=0 ?

[Gans]

1. Между открытием порта и настройкой нужна пауза 1-2 мс.
2. Аналогично после настройки.
3. А LEN(snd_str) точно !=0 ?

1) вот вставил паузу между открытием порта и настройкой а результат тот же :-(ручками перевожу в кусок программы для отправки тескта с паузой после настройки более 2 с)

1: TON1(IN:=port_init , PT:=t#3s );
IF NOT port_opened THEN
com_handle:=SysComOpen(com_num);
IF com_handle<>16#FFFFFFFF THEN
port_init:=TRUE;
ELSE
SysComClose(com_num);
com_handle:=SysComOpen(com_num);
port_init:=TRUE;
END_IF
IF TON1.Q THEN
com_set.Port:=com_num;
com_set.dwBaudRate:=9600;
com_set.byParity:=0;
com_set.dwTimeout:=0;
com_set.byStopBits:=0; (* *)
com_set.dwBufferSize:=0;
com_set.dwScan:=0;
res:=SysComSetSettings(com_num,ADR(com_set));
IF NOT res THEN
port_opened:=TRUE;
bCurentWork:=0;
END_IF
END_IF
END_IF

2) А LEN(snd_str) точно !=0? - это про длину строки не равную 0?
я ручками пишу в переменную snd_str текст 2-10 символов латиницей.

[Филоненко Владислав]

Попробуйте SysComSetSettingsEx