Вопрос по библиотеке Modbus.lib

Вид для печати

Показывать 40 сообщений этой темы на одной странице

20.09.2016, 08:27
a_gricaj

Цитата:

Сообщение от capzap

судя по этой теме, этого не видно. В исходниках не возможно не заметить, как используется буфер и переменная enable

Вы хотите сказать, что у меня может включиться дискретный выход который я не включаю????
20.09.2016, 08:55
energvk

Цитата:

Сообщение от capzap

судя по этой теме, этого не видно. В исходниках не возможно не заметить, как используется буфер и переменная enable

Я видел не в этой теме, а ранее, в той, на которую вы мне ссылку указали))
20.09.2016, 09:27
Спорягин Кирилл

Цитата:

Сообщение от a_gricaj

Вы хотите сказать, что у меня может включиться дискретный выход который я не включаю????

Будьте внимательны! Если Вы будете не правильно пользоваться библиотекой, то такое возможно.
Рекомендую прочесть вот этот пост.
20.09.2016, 10:25
a_gricaj

Цитата:

Сообщение от Спорягин Кирилл

Будьте внимательны! Если Вы будете не правильно пользоваться библиотекой, то такое возможно.
Рекомендую прочесть вот этот пост.

Перед каждым вызовом я пишу значение в буфер:

Код:

29:IF OldDOByteAdr67=DOByteAdr67 THEN master1:=30; ELSE Buffer[0]:=0; Buffer[1]:=DOByteAdr67; ModbusAdrDO67( Enable:= enabl, Mode:= MB_RTU, DevAddr:= 67, FirstAddr:= 50, Quantity:= 1, ComHandle:= Settings.Port, TimeOut:= TimeOut, Buffer:= Buffer, Complete=> cmpl, Exception=> ErrorDO67, RegCnt=> DataSize); IF cmpl THEN OldDOByteAdr67:=DOByteAdr67; master1:=30; END_IF END_IF 30: ......

или я неправильно делаю???
20.09.2016, 10:28
Спорягин Кирилл

Цитата:

Сообщение от a_gricaj

Перед каждым вызовом я пишу значение в буфер:

Подход не правильный. Правильно так:
1. Сформировали буфер на шаге Х. Перешли на шаг Х+1.
2. На шаге Х+1 вызвали нужный ФБ из библиотеки Modbus.lib.
20.09.2016, 10:33
a_gricaj

Цитата:

Сообщение от Спорягин Кирилл

Подход не правильный. Правильно так:
1. Сформировали буфер на шаге Х. Перешли на шаг Х+1.
2. На шаге Х+1 вызвали нужный ФБ из библиотеки Modbus.lib.

Код:

28: Buffer[0]:=0; Buffer[1]:=DOByteAdr67; master1:=29; 29:IF OldDOByteAdr67=DOByteAdr67 THEN master1:=30; ELSE ModbusAdrDO67( Enable:= enabl, Mode:= MB_RTU, DevAddr:= 67, FirstAddr:= 50, Quantity:= 1, ComHandle:= Settings.Port, TimeOut:= TimeOut, Buffer:= Buffer, Complete=> cmpl, Exception=> ErrorDO67, RegCnt=> DataSize); IF cmpl THEN OldDOByteAdr67:=DOByteAdr67; master1:=30; END_IF END_IF 30: ......

правильно???
20.09.2016, 10:43
Спорягин Кирилл

Цитата:

Сообщение от a_gricaj

правильно???

С точки зрения того, что теперь буфер не изменяется в процессе вызова ФБ modbus правильно.

Но обращаю Ваше внимание, что есть потенциальная ошибка.
Если DOByteAdr67 <> OldDOByteAdr67 мы вызвали блок. Блок послал запрос в линию. Теперь предположим, что пока блок ждет ответ у Вас DOByteAdr67 стало равно OldDOByteAdr67. То Ваш код перейдет на шаг 30 не дождавшись ответа. Что явно не хорошо.
20.09.2016, 11:01
a_gricaj

Цитата:

Сообщение от Спорягин Кирилл

С точки зрения того, что теперь буфер не изменяется в процессе вызова ФБ modbus правильно.

Но обращаю Ваше внимание, что есть потенциальная ошибка.
Если DOByteAdr67 <> OldDOByteAdr67 мы вызвали блок. Блок послал запрос в линию. Теперь предположим, что пока блок ждет ответ у Вас DOByteAdr67 стало равно OldDOByteAdr67. То Ваш код перейдет на шаг 30 не дождавшись ответа. Что явно не хорошо.

Значит наверное так?

Код:

28: IF OldDOByteAdr67=DOByteAdr67 THEN master1:=31; ELSE Buffer[0]:=0; Buffer[1]:=DOByteAdr67; master1:=29; END_IF 29: ModbusAdrDO67( Enable:= enabl, Mode:= MB_RTU, DevAddr:= 67, FirstAddr:= 50, Quantity:= 1, ComHandle:= Settings.Port, TimeOut:= TimeOut, Buffer:= Buffer, Complete=> cmpl, Exception=> ErrorDO67, RegCnt=> DataSize); IF cmpl THEN OldDOByteAdr67:=DOByteAdr67; master1:=31; END_IF 31: ......
20.09.2016, 11:10
Спорягин Кирилл

Уже лучше.
Но что Ваш код будет делать если модуль не ответил или ответил ошибкой, т.е. если ErrorDO67 <> 0?
20.09.2016, 11:20
a_gricaj

Цитата:

Сообщение от Спорягин Кирилл

Уже лучше.
Но что Ваш код будет делать если модуль не ответил или ответил ошибкой, т.е. если ErrorDO67 <> 0?

Если хотя бы один модуль будет иметь Exception <> 0 тогда сформируется общая ошибка по сети (с задержкой 1 - 2 сек) - и отключение всех исполнительных механизмов на всех модулях, а на самом модуле сетевой там аут 2 секунды.
Если ошибка уйдет тогда ее буду сбрасывать со скады...
Или тут я тоже намудрил???
20.09.2016, 11:30
Спорягин Кирилл

Я обычно пытаюсь еще раз достучаться до модуля. И только в случае повторной неудачи считаю, что модуль отказал.
Для того, чтобы отослать повторный запрос достаточно ведь просто остаться на этом же шаге, но взвести еще раз Enable.
Чтобы это происходило автоматически я на вход Enable подаю not Read (применительно к Вашему коду будет Enable := not ModbusAdrDO67.Read).

И учтите, что в случае ошибки Вы скорее всего не записал в модуль DOByteAdr67, но тем не менее пишите OldDOByteAdr67 := DOByteAdr67.

Но в целом так как Вы предлагаете тоже можно.
20.09.2016, 12:46
Спорягин Кирилл

Важное замечание к самому себе. Остаться нужно не на том же шаге, а на той же паре шагов! Т.е. заново сформировать буфер (еще раз отсылаю к этому посту)!
Все остальное без изменений.
21.09.2016, 07:54
a_gricaj

Цитата:

Сообщение от Спорягин Кирилл

Важное замечание к самому себе. Остаться нужно не на том же шаге, а на той же паре шагов! Т.е. заново сформировать буфер (еще раз отсылаю к этому посту)!
Все остальное без изменений.

СПС за консультацию
22.09.2016, 10:54
energvk

Цитата:

Сообщение от Гарчев Евгений

ф.б. на запись отрабатывает не за один цикл, поэтому буфер на отправку необходимо формировать однократно перед вызовом этого ф.б. После вызова ф.б. необходимо сразу же снять флаг запуска в следующем действии (ModbusAdrDO11(enable:=false); ) и потом уже ждать завершения его работы.

Цитата:

Сообщение от energvk

А вот это интересное замечание. Я не знал про такой нюанс.

А к чтению из модуля это замечание относится?
22.09.2016, 18:33
Гарчев Евгений

Смысл в том, что буфер надо сформировать только один раз и не перезаписывать его в каждом цикле, пока функциональный блок не отработал.
А снимать флаг, судя по исходникам библиотеки, не обязательно сразу после вызова ф.б., это касается и ф.б. чтения и ф.б. записи.
22.09.2016, 18:38
Гарчев Евгений

Если вернуться к коду автора темы, то необязательно ему буфер формировать в отдельном шаге, раз он использует промежуточную переменную. Можно обойтись такой конструкцией в одном шаге:
if enabl then
Buffer[0]:=0;
Buffer[1]:=DOByteAdr67;
end_if
ModbusAdrDO67(
Enable:= enabl,
Mode:= MB_RTU,
DevAddr:= 67,
FirstAddr:= 50,
Quantity:= 1,
ComHandle:= Settings.Port,
TimeOut:= TimeOut,
Buffer:= Buffer,
Complete=> cmpl,
Exception=> ErrorDO67,
RegCnt=> DataSize);
enabl:=FALSE;
22.09.2016, 18:47
energvk

Всё, теперь понятно. Вот в прошлый раз неправильно понял оказывается. Спасибо за пояснение.
22.09.2016, 18:50
Гарчев Евгений

скорее, это я некорректно написал в прошлый раз, но главное, что разобрались в итоге ...
07.08.2018, 14:14
Andrew_Stranger

Может кто подскажет что не так. Пытаюсь опрашивать ТРМ212 с плк150, данные считываю, запись никак не проходит.

2:

IF COM_SERVICE1.ready=FALSE THEN

com_num:=0;

Settings.Port:=com_num;
Settings.dwBaudRate:=115200;
Settings.byParity:=0;
Settings.dwTimeout:=20;
Settings.byStopBits:=2;
Settings.dwBufferSize:=0;
Settings.dwScan:=0;

COM_SERVICE1(Enable:=TRUE , Settings:=Settings , Task:=OPEN_TSK );
com_ready:=FALSE;
ELSE
COM_SERVICE1.Enable:=FALSE;
com_ready:=TRUE;
END_IF

IF com_ready THEN

CASE master1 OF

0:
get1_modbus(
Enable:=TRUE ,
Mode:=MB_RTU ,
DevAddr:=5 ,
FirstAddr:=4104 ,
Quantity:=10,
ComHandle:=com_settings.Port ,
TimeOut:=t#200ms ,
Buffer:=Buffer ,
Complete=>cmpl ,
Exception=>err ,
ByteCnt=>DataSize );

IF err=0 THEN
x:=BYTE_TO_WORD(BUFFER[1]) OR SHL(BYTE_TO_WORD(BUFFER[0]),8);

ptr_PV:=ADR(PV);
ptr_PV^:=buffer[5];
ptr_PV:=ptr_PV+1;
ptr_PV^:=buffer[4];
ptr_PV:=ptr_PV+1;
ptr_PV^:=buffer[3];
ptr_PV:=ptr_PV+1;
ptr_PV^:=buffer[2];

ptr_SP:=ADR(SP);
ptr_SP^:=buffer[17];
ptr_SP:=ptr_SP+1;
ptr_SP^:=buffer[16];
ptr_SP:=ptr_SP+1;
ptr_SP^:=buffer[15];
ptr_SP:=ptr_SP+1;
ptr_SP^:=buffer[14];

END_IF
IF cmpl THEN
master1:=2;
END_IF

2:
get1_modbus(
Enable:=FALSE ,
Mode:=MB_RTU ,
DevAddr:=5 ,
FirstAddr:=4104 ,
Quantity:=10,
ComHandle:=com_settings.Port ,
TimeOut:=t#200ms ,
Buffer:=Buffer ,
Complete=>cmpl ,
Exception=>err ,
ByteCnt=>DataSize );

master1:=3;

3: SPbuffer[0]:=10;
master1:=4;

4:
Wr_Modbus
(
Enable:=TRUE ,
Mode:=MB_RTU ,
DevAddr:=5 ,
FirstAddr:=4 ,
Quantity:= 1,
ComHandle:=com_settings.Port ,
TimeOut:=t#200ms ,
Complete=>cmpl ,
Exception=>err,
Buffer:=SPbuffer,
);

IF cmpl THEN
master1:=5;
END_IF

5:

Wr_Modbus
(
Enable:=FALSE ,
Mode:=MB_RTU ,
DevAddr:=5 ,
FirstAddr:=4 ,
Quantity:= 1,
ComHandle:=com_settings.Port ,
TimeOut:=t#200ms ,
Complete=>cmpl ,
Exception=>err,
Buffer:=SPbuffer,
);

master1:=0;
END_CASE;

END_IF
07.08.2018, 14:37
Трофимов Артем

ТРМ212 настроен на работу по статической уставке или работает по графику уставки?
07.08.2018, 14:44
Andrew_Stranger

ТРМ Настроен на работу по статической уставке. Если работаю через конфигуратор то запись проходит.
07.08.2018, 14:47
Трофимов Артем

какой код ошибки возвращает запись?
07.08.2018, 14:55
Andrew_Stranger

код ошибки 3
07.08.2018, 14:57
Трофимов Артем

03 — Значение, содержащееся в поле данных запроса, является недопустимой величиной. стандартный код ошибки протокола. покажите какие данные пишите и как формируете буфер на запись ,что то я его не увидел в коде
07.08.2018, 15:31
Andrew_Stranger

Цитата:

Сообщение от Трофимов Артем

03 — Значение, содержащееся в поле данных запроса, является недопустимой величиной. стандартный код ошибки протокола. покажите какие данные пишите и как формируете буфер на запись ,что то я его не увидел в коде

Код:

3: SPbuffer[0]:=10; master1:=4; 4: Wr_Modbus ( Enable:=TRUE , (* разрешение работы блока *) Mode:=MB_RTU , (*режим передачи*) DevAddr:=5 , (*адрес*) FirstAddr:=4 , Quantity:= 1, ComHandle:=com_settings.Port , (*номер COM-порта*) TimeOut:=t#200ms , (*Таймаут T#50ms*) Complete=>cmpl , (* скопировать признак завершения операции *) Exception=>err, (* скопировать регистр ошибок *) Buffer:=SPbuffer, ); IF cmpl THEN master1:=5; END_IF
07.08.2018, 15:38
Трофимов Артем

SPbuffer - массива байт или слов?
а SPbuffer[1] чему равен?
чему равны нижняя и верхняя границы уставки в приборе?
P.s. можете приложить лог обмена при записи?
приложите объявление блока Wr_Modbus
07.08.2018, 16:01
Andrew_Stranger

Прикладываю

3:

PROGRAM PLC_PRG
VAR
get1_modbus: MB_RD_HOLD_REGS; (*функция 03 - чтение параметра типа INT*)
Wr_Modbus:MB_WR_REGS;
Settings:COMSETTINGS;
com_num: PORTS:=0;
Buffer, SPbuffer: ARRAY[0..255] OF BYTE; (* байтовый буфер данных *)
cmpl: BOOL;
port_opened: BYTE := 0;
Init: BOOL;

(* признак инициализации пользовательской программы *)

com_settings:COMSETTINGS; (* настройки последовательного порта *)
com_number: PORTS; (*0 - RS-485, 1 - RS-232*)
COM_SERVICE1: COM_SERVICE;
com_ready: BOOL;

enabl: BOOL; (*состояние работы блока*)
err: INT; (*номер ошибки*)
TimeOut: TIME:=T#200ms; (*таймаут*)
Exception: BYTE;
DataSize: WORD;
master1: BYTE;
t: DWORD;
A: WORD := 0;
x:WORD; (*считанное значение*)
x1: WORD; (*переменная для записи по сети*)
x2: WORD; (*переменная для записи по сети*)
x3: WORD; (*переменная для записи по сети*)
PV: REAL; (*считанное значение*)
SP:REAL;
ptr_PV:POINTER TO BYTE;
ptr_SP:POINTER TO BYTE;
P:POINTER TO BYTE;
SP1_old,SP1:WORD;
SPb:WORD;
RTM1w:R_TRIG;
END_VAR
07.08.2018, 16:03
Трофимов Артем

хорошо, запишите принудительно в SPbuffer[1] := 0;
смещения десятичной точки как настроено в ТРМ?
07.08.2018, 16:07
Andrew_Stranger

Границы +10...70, смещение на 1 разряд.
P.S. Все заработало, видимо в границах диапазона была проблема.
Спасибо большое.
08.08.2018, 11:11
Andrew_Stranger

Еще вопрос. При опросе уставки и измеренного значения ТРМ212 приходят периодически неправильные показания. Ранее на форуме писали что надо корректировать библиотеку, но это не дало результатов.
08.08.2018, 11:27
Трофимов Артем

могу рекоммендовать фаильтровать данные на входе. RS допускает потерю, коллизию 0.3% пакетов.
кстати, если Вы не поставите условие записи уставки в коде, что приложили и будете его вызывать циклично, Вы в скором времени потрёте память прибора
08.08.2018, 13:00
Andrew_Stranger

Спасибо. условие записи сделал. Ошибки при чтении идут постоянно дело наверно не в коллизиях.
08.08.2018, 13:19
Трофимов Артем

изначально пропустил настройку порта
Settings.dwTimeout:=20; - сделайте равный нулю, так пойдёт лучше. на практике с таймаутом возникают ошибки, нужна тонкая настройка, с нулём будет лучше.
также советую в вашем коде, между запросами сделать шаги паузы на 10 мс, например

step_pause(IN := TRUE , pt:= t#10ms);
IF step_pause.Q THEN
state := следующий шаг;
step_pause(IN :=FALSE);
END_IF

для RTU это поможет исключить необходимые тайминги времени между фреймами.
Вы только с ТРМ-ами настраиваете обмен?
08.08.2018, 16:23
Andrew_Stranger

Таймаут убрал,но не помогло. Проблема была в том что надо читать из буфера по флагу Complete. Помимо ТРМ три модуля ввода аналоговых и один дискретный вывода.
08.08.2018, 19:42
Трофимов Артем

Цитата:

Сообщение от Валенок

Откровенная дичь

Complete поднимается после выдержки нужной паузы. Дополнительная - онанизм.
Если же конкретный девайс не может в силу возможностей вычленить пакеты и ему нужно что дополнительное, то нужно говорить не

, а нужно пояснить именно этот девайс хиловат и ему это нужно.

кто гарантирует что драйвер девайса работает идеально, т.е. с задержками не заметными программисту плк?
на своём опыте встречал и энергоанализаторы и считыватели магнитных карт ( aka RFID ) которые.. хммм, зачем то физически удерживали шину 485ого чуть ли не до 30 мс после таймаута фрейма(согласно протоколу). упс, такая реализация, говорили они. а выявить это только на осцилографе можно было.
я лишь стараюсь донести мысль о том, что такое может иметь место. и осознание необходимости "ручной" задержки, иногда идёт во благо всей системе

по второму пункту - лучше использовать с ними ASCII, имхо.
13.08.2018, 11:18
Andrew_Stranger

Почему при попытке чтения регистров с помощью MB_RD_HOLD_REGS при опросе более 46 регистров начинают идти ошибки?

Показывать 40 сообщений этой темы на одной странице

Текущее время: 18:11. Часовой пояс GMT +3.