(*t_voz:=WORD_TO_INT(RS_TMP2);*)
t:=t+1;
IF (t MOD 1000)=0 THEN
A := A + 1;
IF A > 9999 THEN
A := 0;
END_IF
END_IF
(*Устанавливаем настройки COM-порта*)
IF port_opened=0 THEN
Settings.Port:=com_num; (*номер COM-порта*)
Settings.dwBaudRate:=38400; (*скорость*)
Settings.byParity:=0;
Settings.dwTimeout:=0;
Settings.byStopBits:=1;
Settings.dwBufferSize:=0;
Settings.dwScan:=0;
END_IF
COM_SERVICE11(Enable:=(port_opened=0) , Settings:=Settings , Task:=OPEN_TSK );
(*Если COM-порт открыт, то переходим к приему и передачи данных *)
IF COM_SERVICE11.ready THEN
port_opened:=2;
END_IF
IF port_opened=2 THEN (*Удачно проинициализировали*)
(* функция 03 инт - ФБ считывает значение параметра типа int из прибора с адресом 2 в регистр с номером 8 по протоколу Modbus-ASCII*)
enabl:=1;
get1_modbus(
Enable:=enabl , (* разрешение работы блока *)
Mode:=MB_RTU , (*режим передачи*)
DevAddr:=2 , (*адрес*)
FirstAddr:=10400 , (*номер регистра*)
Quantity:=10, (*количество регистров*)
ComHandle:=Settings.Port , (*номер COM-порта*)
TimeOut:=TimeOut , (*Таймаут T#50ms*)
Buffer:=Buffer , (* буфер данных *)
Complete=>cmpl , (* скопировать признак завершения операции *)
Exception=>err , (* скопировать регистр ошибок *)
ByteCnt=>DataSize ); (*кол-во считанных байтов *)
(*если установлен признак завершения операции, то *)
IF cmpl THEN
IF err=0 THEN (*Если нет ошибок, то получаем данные из буфера типа INT*)
x:=BYTE_TO_WORD(BUFFER[1]) OR SHL(BYTE_TO_WORD(BUFFER[0]),8);
cnt:=0;
WHILE cnt<5 DO
V1_POINT[cnt] := BYTE_TO_WORD(BUFFER[2*cnt+1]) OR SHL(BYTE_TO_WORD(BUFFER[2*cnt]),8);
cnt:=cnt+1;
END_WHILE
cnt:=0;
WHILE cnt<5 DO
V2_POINT[cnt] := BYTE_TO_WORD(BUFFER[2*cnt+11]) OR SHL(BYTE_TO_WORD(BUFFER[2*cnt+10]),8);
cnt:=cnt+1;
END_WHILE
END_IF
END_IF
END_IF
enabl:=0;
COM_SERVICE11.Delay ;
GET_POINT:= cmpl;
RETURN;
