Omron Sysmac NY512-1300, User Manual

Page: 278 / 460

9 Socket Service
9-20 NY-series Industrial Panel PC / Industrial Box PC Built-in EtherNet/IP Port User’s Manual (W563)
// Start sequence when Trigger changes to TRUE.
IF((Trigger=TRUE) AND(DoSendAndRcv=FALSE) AND (_EIP_EtnOnlineSta=TRUE))THEN
DoSendAndRcv :=TRUE;
Stage :=INT#1;
SktUDPCreate_instance(Execute:=FALSE); // Initialize instance.
SktUDPSend_instance( // Initialize instance.
Execute :=FALSE,
SendDat :=SendSocketDat[0]); // Dummy
SktUDPRcv_instance( // Initialize instance.
Execute :=FALSE,
RcvDat :=RcvSocketDat[0]); // Dummy
SktClose_instance(Execute:=FALSE); // Initialize instance.
END_IF;
IF (DoSendAndRcv=TRUE) THEN
CASE Stage OF
1 :
// Request creating socket.
SktUDPCreate_instance(
Execute :=TRUE,
SrcUdpPort:=UINT#6000, // Local UDP port number
Socket =>WkSocket); // Socket
IF (SktUDPCreate_instance.Done=TRUE) THEN
Stage :=INT#2; // Normal end
ELSIF (SktUDPCreate_instance.Error=TRUE) THEN
Stage :=INT#10; // Error end
END_IF;
2 : // Send request
WkSocket.DstAdr.PortNo :=UINT#6001;
WkSocket.DstAdr.IpAdr:='192.168.250.2';
SktUDPSend_instance(
Execute :=TRUE,
Socket :=WkSocket, // Socket
SendDat :=SendSocketDat[0], // Send data
Size :=UINT#2000); // Send data size
IF (SktUDPSend_instance.Done=TRUE) THEN
Stage :=INT#3; // Normal end
ELSIF (SktUDPSend_instance.Error=TRUE) THEN
Stage :=INT#20; // Error end
END_IF;