Не могу подружить 2 устройства через modbus.lib

**Атаман** · 03.03.2017, 10:33

На столе ПЛК100+расходомер взлет + ОВЕН мк110.8дн.4р

Тестовая программа:

Код:

(*Устанавливаем настройки COM-порта*)
IF port_opened=0 THEN
		Settings.Port:=com_num;               (*номер COM-порта*)
		Settings.dwBaudRate:= 115200;    (*скорость*)
		Settings.byParity:=0;
		Settings.dwTimeout:=0;
		Settings.byStopBits:=0;
		Settings.dwBufferSize:=0;
		Settings.dwScan:=0;
END_IF

COM_SERVICE1(Enable:=(port_opened=0) , Settings:=Settings , Task:=OPEN_TSK  );
(*Если COM-порт открыт, то переходим к приему и передачи данных *)
IF COM_SERVICE1.ready THEN
	port_opened:=2;
END_IF

IF port_opened=2 THEN (*Удачно проинициализировали*)

CASE master1 OF

0: 
get1_modbus(
	Enable:=Enable:= NOT get1_modbus.Complete,		(* разрешение работы блока *)
	Mode:=MB_RTU,		(*режим передачи*)
	DevAddr:=8 ,				(*адрес*)
	FirstAddr:=2 ,				(*номер регистра*)
	Quantity:=1,				(*количество регистров*)
	ComHandle:=Settings.Port , (*номер COM-порта*)
	TimeOut:=TimeOut , 		(*Таймаут T#50ms*)
	Buffer:=Buffer_out,			(* буфер данных *)
	Complete=>cmpl ,		(* скопировать признак завершения операции *)
	Exception=>err ,			(* скопировать регистр ошибок *)
	ByteCnt=>DataSize );		(*кол-во считанных байтов *)
(*если установлен признак завершения операции, то *)
IF cmpl THEN
	IF err=0 THEN (*Если нет ошибок, то получаем данные из буфера типа INT*)
		x:=BYTE_TO_WORD(BUFFER_out[1]) OR SHL(BYTE_TO_WORD(BUFFER_out[0]),8);
	ELSE
		errcount:=errcount +1;
	END_IF
	master1 := 3;
END_IF


2:  get1_modbus(
	Enable:= NOT get1_modbus.Complete ,			(* разрешение работы блока *)
	Mode:=MB_RTU,		(*режим передачи*)
	DevAddr:=48 ,				(*адрес*)
	FirstAddr:=50 ,				(*номер регистра*)
	Quantity:=1,				(*количество регистров*)
	ComHandle:=Settings.Port , (*номер COM-порта*)
	TimeOut:=TimeOut , 		(*Таймаут T#50ms*)
	Buffer:=Buffer_out,			(* буфер данных *)
	Complete=>cmpl ,		(* скопировать признак завершения операции *)
	Exception=>err ,			(* скопировать регистр ошибок *)
	ByteCnt=>DataSize );		(*кол-во считанных байтов *)
(*если установлен признак завершения операции, то *)
IF cmpl THEN
	IF err=0 THEN (*Если нет ошибок, то получаем данные из буфера типа INT*)
		x:=BYTE_TO_WORD(BUFFER_out[1]) OR SHL(BYTE_TO_WORD(BUFFER_out[0]),8);
	ELSE
		errcount:=errcount +1;
	END_IF
	master1 := 3;
END_IF


3:
 TimeOut2(IN :=TRUE,PT:=T#50ms);
 TimeOut2;
 IF TimeOut2.Q THEN
	g:=g+1;
	master1 := 0;
 	(*IF g/2 = TRUNC(g/2) THEN
		 master1 := 2; 
	END_IF*)
	TimeOut2.IN := FALSE;
	TimeOut;
END_IF

END_CASE

END_IF

В таком виде программа работает, опрашивается Взлет, ошибок 0. Убираю комментирование в 3м кейсе (подключаю второй модуль ОВЕН) и у Взлета каждая вторая ошибка 255. Что я делаю не так? Через конфигуратор оба работают нормально с редкими ошибками.

**capzap** · 03.03.2017, 10:40

поправить надо бибку модбасовскую, есть там проблемы с буфферным массивом

**Атаман** · 03.03.2017, 10:44

Как здесь написано? Не помогло.

**capzap** · 03.03.2017, 10:57

а этим http://www.owen.ru/forum/showthread....l=1#post143448

**Атаман** · 03.03.2017, 11:27

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

а этим http://www.owen.ru/forum/showthread....l=1#post143448

Поменял MB_RD_HOLD_REGS из моей программы на READ_MULTIPLE_REGISTERS из примера. ПЛК сразу ушел в перезагрузку.

**capzap** · 03.03.2017, 11:33

всмысле, при компиляции не на что не ругалась, обе бибки добавлены?

**Атаман** · 03.03.2017, 11:45

Код:

(*Устанавливаем настройки COM-порта*)
IF port_opened=0 THEN
		Settings.Port:=com_num;               (*номер COM-порта*)
		Settings.dwBaudRate:= 115200;    (*скорость*)
		Settings.byParity:=0;
		Settings.dwTimeout:=0;
		Settings.byStopBits:=0;
		Settings.dwBufferSize:=0;
		Settings.dwScan:=0;
END_IF

COM_SERVICE1(Enable:=(port_opened=0) , Settings:=Settings , Task:=OPEN_TSK  );
(*Если COM-порт открыт, то переходим к приему и передачи данных *)
IF COM_SERVICE1.ready THEN
	port_opened:=2;
	Buffer_out := ADR(Buffer1);
END_IF

IF port_opened=2 THEN (*Удачно проинициализировали*)

CASE master1 OF

0: (* функция 03 инт  - ФБ считывает значение параметра  типа int из прибора с адресом162 в регистр с номером 48 по протоколу Modbus-RTU*)

get1_modbus(
	Enable:= NOT get1_modbus.Complite,			(* разрешение работы блока *)
	UnitID:=8 ,				(*адрес*)
	REF:=2 ,				(*номер регистра*)
	Count:=1,				(*количество регистров*)
	Handle:=Settings.Port , (*номер COM-порта*)
	Delay:=TimeOut , 		(*Таймаут T#50ms*)
	PNTFF:=Buffer_out,			(* буфер данных *)
	Complite=>cmpl ,		(* скопировать признак завершения операции *)
	ErrCode=>err ,			(* скопировать регистр ошибок *)
	 );		(*кол-во считанных байтов *)
(*если установлен признак завершения операции, то *)
IF cmpl THEN
	IF err=0 THEN (*Если нет ошибок, то получаем данные из буфера типа INT*)
		n:=n+1;
		(*x:=BYTE_TO_WORD(BUFFER_out[1]) OR SHL(BYTE_TO_WORD(BUFFER_out[0]),8);*)
	ELSE
		errcount:=errcount +1;
	END_IF
	master1 := 3;
END_IF


2:  get1_modbus(
	Enable:= NOT get1_modbus.Complite,  (*разрешение работы блока *)
	UnitID:=48 ,				(*адрес*)
	REF:=50 ,				(*номер регистра*)
	Count:=1,				(*количество регистров*)
	Handle:=Settings.Port , (*номер COM-порта*)
	DELAY:=TimeOut , 		(*Таймаут T#50ms*)
	PNTFF:=Buffer_out,			(* буфер данных *)
	Complite=>cmpl ,		(* скопировать признак завершения операции *)
	ErrCode=>err ,			(* скопировать регистр ошибок *)
	 );		(*кол-во считанных байтов *)
(*если установлен признак завершения операции, то *)
IF cmpl THEN
	IF err=0 THEN (*Если нет ошибок, то получаем данные из буфера типа INT*)
		n:=n+1;
	 (*	x:=BYTE_TO_WORD(BUFFER_out[1]) OR SHL(BYTE_TO_WORD(BUFFER_out[0]),8);*)
	ELSE
		errcount:=errcount +1;
	END_IF
	master1 := 3;
END_IF


3:
 TimeOut2(IN :=TRUE,PT:=T#100ms);
 TimeOut2;
 IF TimeOut2.Q THEN
	g:=g+1;
	master1 := 0;
 	(*IF g/2 = TRUNC(g/2) THEN
		 master1 := 2; 
	END_IF *)
	TimeOut2.IN := FALSE;
	TimeOut;
END_IF

END_CASE

END_IF

Буфер инициализировал, ошибка 60 теперь какая то постоянно. Modbus RTU в бибке? Переключателя не увидел.

**Атаман** · 03.03.2017, 12:01

Ставлю точки останова на строки после IF err=0 THEN ... и вручную переключаю между запросами кнопкой f5 - всё работает, 0 ошибок. Что за ерунда?

**capzap** · 03.03.2017, 12:15

TimeOut2(IN :=TRUE,PT:=T#100ms);
TimeOut2;
IF TimeOut2.Q THEN
g:=g+1;
master1 := 0;
(*IF g/2 = TRUNC(g/2) THEN
master1 := 2;
END_IF *)
TimeOut2.IN := FALSE;
TimeOut;
END_IF

я бы переписал на такое

Код:

TimeOut2(IN :=TRUE,PT:=T#100ms);
IF TimeOut2.Q THEN
	g:=g+1;
	master1 := 0;
	TimeOut2(IN := FALSE);
END_IF

а то лишний код добавляет и лишние ошибки, типа отсутствие двойки на конце переменной
Если с точками останова всё работает, значит мал таймаут в опросе

**Атаман** · 03.03.2017, 12:24

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

Если с точками останова всё работает, значит мал период опроса

Чот вообще не пойму, что происходит.

После IF complete добавил вызов get1_modbus c Enable := FAlse; Ошибок таймаута теперь нет,но значение регистра (переменная x) во взлете неправильное, 2051, хотя на самом деле 2

Тема: Не могу подружить 2 устройства через modbus.lib

Опции темы

Отображение

Не могу подружить 2 устройства через modbus.lib

Похожие темы

Не могу подружить ПЛК150+ИП320+ТРМ2хх на одном RS-485

Как узнать базовый ModBus адрес устройства для ModBus ASCII?

Как подружить ПЛК 110 + Модем ПМ01 через UNM.lib

соединение устройства с OPC сервером через модем

Не могу подружить ДТС и НПТ-2

Ваши права