для отправки udp пакета я должен написать примерно такой код ?

PROGRAM UDPProducer
VAR
diSendSocket : DINT;
iPort : INT:=4343;
stDestIPAddress : STRING := '10.0.6.0';
diRecvSocket: DINT;
bySend :WORD;
bSent: BOOL;
bActive: BOOL;
cycle: INT:=0;
MV1:WORD;
END_VAR

IF bActive THEN
IF diSendSocket = 0 THEN
diSendSocket := UdpOpenSendSocket(iPort);
END_IF


MV1.0:=1;
MV1.1:=0;
MV1.2:=1;
MV1.3:=0;
MV1.4:=0;
MV1.5:=0;
MV1.6:=1;
MV1.7:=1;
MV1.8:=0;
MV1.9:=1;
MV1.10:=1;
MV1.11:=0;
MV1.12:=0;
MV1.13:=1;
MV1.14:=0;
MV1.15:=1;
bySend:=MV1;

IF diSendSocket > 0 AND bSent THEN
bSent := FALSE;
UdpSendData(diSendSocket, iPort, stDestIPAddress, ADR(bySend), SIZEOF(bySend));
END_IF;