PLC210 - опрос 2ТРМ1 по Modbus

Доброго дня!
Уже несколько дней бьюсь над простейшей задачей - опросить 2ТРМ1 (свежий, новый) с ПЛК210.
Пересмотрел все видео по теме, читал документацию - не работает. В ответ всегда тайм-аут. ТРМ рабочий, его опросил с компа через преобразователь без проблем. На ПЛК пробовал оба интерфейса. Светодиод RS на ТРМ мигает в момент запроса и всё.
Версия OCL 3.5.11.7.
Настройки на трм: rtu, 10, 9.6, 8n1.
Сделал отдельный чистый проект, там только код для опроса:

Код:

---

PROGRAM PLC_PRG
VAR
        iStateCOM: BOOL := 0;
        fbComControl: OCL.COM_Control; // ФБ настройки и открытия порта COM
        fbMBRead: OCL.MB_SerialRequest;
        arrAI1: ARRAY [0..1] OF WORD; 
        VAL: REAL;
        iError: INT := 0;
END_VAR

---

Код:

---

IF NOT iStateCOM THEN
        fbComControl
        (
                xEnable := TRUE,
                udiComPort := 5,
                udiBaudrate := 9600,
                udiByteSize := 8,
                eParity := OCL.COM_PARITY.NONE,
                eStopBit := OCL.COM_STOPBIT.ONE
        );
        IF fbComControl.xDone THEN
                iStateCOM := 1;
        END_IF
END_IF
IF iStateCom THEN
        fbMBRead
        (
                xExecute := fbComControl.xActive,
                tTimeout := T#200MS,
                usiRetry := 0,
                hCom := fbComControl.hCom,
                xIsAsciiMode := FALSE ,
                usiSlaveId := 10,
                eFuncCode := OCL.MB_FC.READ_HOLDING_REGISTERS,
                uiDataAddr := 4105,
                uiDataCount := 2,
                pData := ADR(arrAI1),
                szSize := SIZEOF(arrAI1)
        );
        IF fbMBRead.xDone OR fbMBRead.xError THEN
                iError := fbmbread.eError;
                VAL := OCL.WORD2_TO_REAL(arrAI1[0], arrAI1[1], FALSE);
                fbMBRead(xExecute := FALSE);
        END_IF
END_IF

---

Прошу помочь!

Код:

---

PROGRAM PLC_PRG
VAR
        iStateCOM: INT := 0;
        fbComControl: OCL.COM_Control; // ФБ настройки и открытия порта COM
        fbMBRead: OCL.MB_SerialRequest;
        arrAI1: ARRAY [0..1] OF WORD; 
        VAL: REAL;
        iError: INT := 0;
END_VAR

---

Код:

---

CASE iStateCOM OF
0:
        fbComControl
        (
                xEnable := TRUE,
                udiComPort := 5,
                udiBaudrate := 9600,
                udiByteSize := 8,
                eParity := OCL.COM_PARITY.NONE,
                eStopBit := OCL.COM_STOPBIT.ONE
        );
        IF fbComControl.xError THEN
                iStateCOM := 2;
                fbComControl(xEnable := FALSE);
        END_IF
        IF fbComControl.xDone THEN
                iStateCOM := 1;
        END_IF

1:
        fbMBRead
        (
                xExecute := fbComControl.xActive,
                tTimeout := T#200MS,
                usiRetry := 0,
                hCom := fbComControl.hCom,
                xIsAsciiMode := FALSE ,
                usiSlaveId := 10,
                eFuncCode := OCL.MB_FC.READ_HOLDING_REGISTERS,
                uiDataAddr := 4105,
                uiDataCount := 2,
                pData := ADR(arrAI1),
                szSize := SIZEOF(arrAI1)
        );
        IF fbMBRead.xDone OR fbMBRead.xError THEN
                iError := fbmbread.eError;
                VAL := OCL.WORD2_TO_REAL(arrAI1[1], arrAI1[0], FALSE);
                fbMBRead(xExecute := FALSE);
                iStateCOM := 2;
        END_IF
2:
                iStateCOM := 0;
END_CASE

---

Я из уважения попробовал этот вариант, но он ожидаемо также не работвет. Кроме того, в нём есть ошибка, из-за которой он выполняется один раз и потом никогда не выходит из iStateCom=0. В последнем присваивании его надо iStateCOM := 1, тогда запросы повторяются.

Цитата:

---

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

Я из уважения попробовал этот вариант, но он ожидаемо также не работвет. Кроме того, в нём есть ошибка, из-за которой он выполняется один раз и потом никогда не выходит из iStateCom=0. В последнем присваивании его надо iStateCOM := 1, тогда запросы повторяются.

---

Если не работает, то проблема либо в неправильном номере порта, либо в настройках RS485. Ещё тайм аут можно добавить до 500-1000 мс.

Еслиб дело было в неверном номере порта, ТРМ бы не зажигал диод обмена данными по RS.
таймаут итак 200, куда еще больше?

Цитата:

---

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

Еслиб дело было в неверном номере порта, ТРМ бы не зажигал диод обмена данными по RS.
таймаут итак 200, куда еще больше?

---

Код у вас рабочий, только поменял регистры в массиве наоборот. Вложение 80635
Так же как и рабочий код Николай Суриков, с исправлением iStateCOM := 1 в конце. Сборка из массива у него правильная.
Проверял на ПЛК слейве, на скорости 115200, а вот для скорости 9600 тайм аут может быль слишком маленький.

Попробуйте опрашивать регистр 2, вместо 4105.

Можно попробовать комп опросить с ПЛК
Можно попробовать стандартной конфигурацией опросить
Может резистор согласующий у ПЛК отключен
Может не удален интерфейс из дерева проекта

ScreamerXXI, если вопрос еще актуален - пожалуйста, подготовьте доступ по AnyDesk и напишите мне в телеграм (см. в подписи) или на support@owen.ru

Большое человеческое спасибо Евгению, с ним за 15 минут нашли в чем было дело - у меня время цикла задачи, в которой был размещен код опроса Модбас, было 500 мс, а для нормальной работы требуется сильно меньше (20 мс всё отлично работает).
Всем спасибо за участие, однако гадание на кофейной гуще вообще не помогло, а помог подход техподдержки (подключиться и проверить онлайн все параметры, влияющие на процесс).