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

[ScreamerXXI]

Доброго дня!
Уже несколько дней бьюсь над простейшей задачей - опросить 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

[ScreamerXXI]

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

[kondor3000]

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

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

[ScreamerXXI]

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

[kondor3000]

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

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

[Николай Суриков]

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

[Sergey361]

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

[Евгений Кислов]

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

[ScreamerXXI]

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