VAR
bPort: BYTE; // номер порта
dwHandle: DWORD; // дескриптор порта
isOpen: BOOL; // флаг открытия порта
isClosed: BOOL := TRUE; // флаг закрытия порта
isInit: BOOL; // флаг первоначального задания настроек
settings: SysLibCom.COMSETTINGS; // элемент структуры с настройками порта
xStatusSettings: BOOL; (* флаг проверки на успешную запись
настроек порта *)
dwBufWrite: DWORD := 16#41; (* буфер с данными, запись символа
ASCII "А" *)
dwBufRead: DWORD; // буфер для считанных данных
dwAmountOfBytes: DINT; (* количество байт переданных в результате
операции чтения/записи *)
ton1: TON; // таймер с задержкой по включению
xStartTMR: BOOL := FALSE; // команда запуска таймера
END_VAR
(*Открываем порт RS485-1*)
IF isOpen = FALSE THEN
bPort := SysLibCom.PORTS.COM1;
dwHandle := SysLibCom.SysComOpen(bPort);
isClosed := FALSE;
isOpen := TRUE;
END_IF
(*Задаем настройки порта, если они еще не были заданы*)
IF isInit = FALSE THEN
settings.Port := bPort;
settings.dwBaudRate := 9600;
settings.byStopBits := 0;
settings.byParity := 0;
settings.dwTimeout := 0;
settings.dwBufferSize := 0;
settings.dwScan := 0;
xStatusSettings := SysLibCom.SysComSetSettings(dwHandle,ADR(settings));
IF xStatusSettings = TRUE THEN
isInit := TRUE;
END_IF
END_IF
(*Записываем данные из буфера в порт*)
IF dwHandle <> 16#FFFFFFFF AND isClosed = FALSE THEN
dwAmountOfBytes := SysLibCom.SysComWrite(dwHandle,ADR(dwBufWrite),
SIZEOF(dwBufWrite),1000);
(*Считываем данные из порта*)
ton1(In := xStartTMR, pt := T#30ms);
xStartTMR := TRUE;
IF ton1.Q THEN
dwAmountOfBytes := SysLibCom.SysComRead(dwHandle,ADR(dwBufRead),
SIZEOF(dwBufRead),1000);
END_IF
END_IF
(*Закрываем порт*)
IF isClosed = FALSE THEN
isClosed := SysLibCom.SysComClose(dwHandle);
isClosed := TRUE;
END_IF
END_PROGRAM |
(* Пример выдает в интерфейс RS-485-1 каждую секунду строку "ALTAIDE"
Настройка порта 9600, 8бит, нет четности, один стоп бит *)
VAR
port_opened: BOOL := FALSE;
com_handle: DWORD;
com_num: SysLibCom.PORTS:=1; (*В примере используется COM1(UART1) -
RS485-1 ПЛК110-ALTA, для использования других портов/приборов необходимо
поменять номер*)
com_set: SysLibCom.COMSETTINGS;
com_setEx: SysLibCom.COMSETTINGSEX;
res: BOOL;
tOn1: TON;
start_tmr: BOOL:= FALSE;
tr1: R_TRIG;
snd_str: STRING:='ALTAIDE$N';
port_init: BOOL;
rcvbuf: DWORD;
sz: DINT;
END_VAR
(*Открывает порт*)
IF NOT port_opened THEN
com_handle:= SysLibCom.SysComOpen(com_num);
IF com_handle<>16#FFFFFFFF THEN
port_init:=TRUE;
ELSE
SysLibCom.SysComClose(com_num);
com_handle:=SysLibCom.SysComOpen(com_num);
port_init:=TRUE;
END_IF
(*
(*Настраиваем скорость*)
com_set.Port:=com_num;
com_set.dwBaudRate:=115200;
com_set.byParity:=0;
com_set.dwTimeout:=0;
com_set.byStopBits:=0;
com_set.dwBufferSize:=0;
com_set.dwScan:=0;
res:=SysComSetSettings(com_num,ADR(com_set));
(*Успешно открыли*)
IF NOT res THEN
port_opened:=TRUE;
END_IF
*)
com_setEx.Size:=ULINT_TO_INT(SIZEOF(com_setEx));
com_setEx.Port:=com_num;
com_setEx.dwBaudRate:=9600;
com_setEx.byStopBits:=0;
|
(*
byStopBits:BYTE; Кол-во стоповых бит 0 = один, 1 = полтора , 2 = два
*)
com_setEx.byParity:=0;
(*
byParity:BYTE; Режим проверки четности 0 = нет, 1 = нечет, 2 = чет
*)
com_setEx.dwTimeout:=0;(*
DWORD; Не используется должно быть =0
*)
com_setEx.dwBufferSize:=0;(*
DWORD; Не используется должно быть =0
*)
com_setEx.dwScan:=0;(*
DWORD; Не используется должно быть =0
*)
com_setEx.cByteSize:=8;(*
BYTE; Длина символа в битах 7-8 бит
*)
(*
fOutxCtsFlow : BOOL; Определяет состояние вывода CTS, в ПЛК ОВЕН не распаян
fDtrControl : BYTE; Определяет состояние вывода DTR, в ПЛК ОВЕН не распаян
fDsrSensitivity : BOOL; Определяет чувствительность к состоянию вывода DTR,
в ПЛК ОВЕН не распаян
fRtsControl : BYTE; Определяет состояние вывода RTS, в ПЛК ОВЕН не распаян
fOutxDsrFlow : BOOL; Определяет состояние вывода DSR, в ПЛК ОВЕН не распаян
см. COMSETTINGSEX в документации на SysLibCom
*)
res:=SysLibCom.SysComSetSettingsEx(com_handle, ADR(com_setEx));
(*Успешно открыли порт*)
IF res THEN
port_opened:=TRUE;
END_IF
END_IF
IF NOT port_opened THEN
RETURN;
END_IF
ton1(In:=start_tmr,pt:=T#1s);
start_tmr:=TRUE;
tr1(clk:=ton1.Q);
IF tr1.Q THEN
SysLibCom.SysComWrite(com_handle, ADR(snd_str), LEN(snd_str),0);//com_handle
start_tmr:=FALSE;
END_IF
sz:=SysLibCom.SysComRead(com_handle, ADR(rcvBUF),1024,0);
END_PROGRAM |