Код:
PROGRAM PLC_PRG
VAR
stCom_Settings: ComSerice.SysCom.COM_Settings;
stCom_SettingsEx: ComSerice.SysCom.COM_SettingsEx;
fbComService: COM_SERVICE;
fbModbusSlave: MB_SLAVE;
bySlaveID: BYTE;
awSlaveBuffer: ARRAY [0..31] OF WORD;
xSlaveEnable: BOOL;
END_VAR
stCom_Settings.sPort := 2;
stCom_Settings.byStopBits := 1;
stCom_Settings.byParity := 0;
stCom_Settings.ulBaudrate := 115200;
stCom_SettingsEx.byByteSize := 8;
fbComService
(
Enable := TRUE,
Settings := stCom_Settings,
sets_ex := stCom_Setting****
Task := ComSerice.COM_TSK.OPEN_TSK,
Ready=> ,
handle=>
);
IF xSlaveEnable AND fbComService.Ready THEN
fbModbusSlave
(
ComHandle := fbComService.handle,
DevAddr := bySlaveID,
pBuffer := ADR(awSlaveBuffer),
BufSize := SIZEOF(awSlaveBuffer),
NewData=> ,
Error=>
);
END_IF