//===========================================================================================================================
//DEKLARACE
VAR_GLOBAL
  CommandDataExchange1 : TEpsnetCommand;
END_VAR

PROGRAM Reg_Kom_Epsnet
  VAR
    EpsnetEth : fbEpsnetEth;
    Data      : ARRAY [0..2] OF USINT;
    ErrCnt    : UDINT;
    OkCnt     : UDINT;
    CmdNo     : UINT;
  END_VAR
  VAR_TEMP
  END_VAR
//===========================================================================================================================
//PROGRAM
Data[0].1 := BI.S_Zatez_1St.VAL;
Data[0].2 := BI.S_Zatez_2St.VAL;
Data[0].3 := BI.S_Zatez_3St.VAL;
Data[0].4 := BI.S_Zatez_4St.VAL;
EpsnetEthCmd(IpAdr := STRING_TO_IPADR('255.255.255.255'),
             Read := false,
             Zone := TEpsnetZone#epszR,
             Index := 45000,
             SizeOfD := 3,
             Cmd := CommandDataExchange1, Data := void(Data));

EpsnetEth(Req := System_S.R_EDGE_1SEC,  //kazdou vterinu
          chanCode := ETH1_uni0, CmdNo := CmdNo,
          MaxCmd := 1, Timeout := T#700ms,
          Commands := CommandDataExchange1);
IF EpsnetEth.Error THEN
  ErrCnt := ErrCnt + 1;
END_IF;

IF EpsnetEth.Done THEN
  OkCnt := OkCnt + 1;
END_IF;
END_PROGRAM