Create a "Standard project" and select CODESYS Control Win V3 as the device.
Define the target system by means of the Network scan.

As of SP16:

Open the Library Manager and add the following libraries:
Net Base Services
SysTypes2 interfaces
SysTimeRtc
Util

Image Added

Create a global variable list named gvlSetting and define the following variables:

Section

Column

width	7

Declaration

Column

width	93

Code Block

theme	Confluence

VAR_GLOBAL CONSTANT
	gc_wMaxTelegram	: INT := 15;
	gc_uiPort		: UINT := 50001;
END_VAR
VAR_GLOBAL
	gc_stIpAddr		: String(19) := '192.168.99.109';
END_VAR

Adapt the IP address and the port to your system.

Create a new POU named TcpServer and adapt it as follows:

Section

Column

width	7

Declaration

Column

width	93

Code Block

theme	Confluence

VAR CONSTANT
	c_wMaxTelegram	: INT := 15;
END_VAR
VAR
	ipAddress		: NBS.IPv4Address;
	fbTcpConnection	: NBS.TCP_Connection;
	fbTcpServer		: NBS.TCP_Server;
	fbTcpRead		: NBS.TCP_Read;
	fbTcpWrite		: NBS.TCP_Write;
	
	
	abyRx			: ARRAY [0..gvlSetting.gc_wMaxTelegram] OF BYTE;
	abyTx			: ARRAY [0..gvlSetting.gc_wMaxTelegram] OF BYTE;
	
	iIndex			: INT;
	xRead			: BOOL := TRUE;
	xWrite			: BOOL := TRUE;
	xAckTelegram	: BOOL;
	xBlockAck		: BOOL;
	udiRead			: DINT;
END_VAR

Section

Column

width	7

Implementation

Column

width	93

Code Block

theme	Confluence

IF fbTcpRead.xReady THEN
	IF (fbTcpRead.udiCount = (gvlSetting.gc_wMaxTelegram + 1)) THEN	
		IF ((abyRx[0] = 87) AND  (abyRx[1] = 68) AND (abyRx[2] = 58) AND (abyRx[3] = 32)) THEN // 'WD: ' = Watchdog-Telegram
			FOR iIndex := 0 TO c_wMaxTelegram DO
				abyTx[iIndex] := 0;	 
			END_FOR
			// 'ACK: ' = Acknowledge-Telegram
			abyTx[0] := 65;
			abyTx[1] := 67;
			abyTx[2] := 75;
			abyTx[3] := 58;
			abyTx[4] := 32;
			// Receive-Counter
			abyTx[5] := abyRx[4];
			abyTx[6] := abyRx[5];
			abyTx[7] := abyRx[6];
			abyTx[8] := abyRx[7]; 
			xWrite := TRUE;
		END_IF
		xWrite := TRUE;
	END_IF
ELSIF fbTcpRead.xError THEN
	xRead := FALSE;
END_IF


fbTcpWrite(xExecute := xWrite AND NOT xBlockAck, itfConnection := fbTcpConnection, udiSize := SIZEOF(abyTx), pData := ADR(abyTx),  udiTimeOut := 0);
IF fbTcpWrite.xDone OR fbTcpWrite.xError THEN
	xWrite := FALSE;
END_IF

Create a new POU named TcpClient and adapt it as follows:

Section

Column

width	7

Declaration

Column

width	93

Code Block

theme	Confluence

VAR CONSTANT
	c_tInterval		: TIME := T#1S;
	c_udiInterval	: UDINT := 3 * TIME_TO_UDINT(c_tInterval)/1000;
END_VAR
VAR
	ipAddress		: NBS.IPv4Address;
	fbTcpClient		: NBS.TCP_Client;
	fbTcpRead		: NBS.TCP_Read;
	fbTcpWrite		: NBS.TCP_Write;
	
	abyTx			: ARRAY [0..gvlSetting.gc_wMaxTelegram] OF BYTE;
	abyRx			: ARRAY [0..gvlSetting.gc_wMaxTelegram] OF BYTE;
	
	fbBlink			: BLINK := (TIMELOW := c_tInterval, TIMEHIGH := c_tInterval);		
	xBlink			: BOOL; // Memory of the last state of PLC_PRG.fbBlink
	
	udiVal			: UDINT;
	pudiVal			: POINTER TO BYTE;
	iIndex			: INT;
	xConnect		: BOOL;
	
	xRead			: BOOL;
	xMissingAck		: BOOL;
	udiResult 		: UDINT;
	udiLastAck		: UDINT;
	udiNow			: UDINT;
	udiRead			: UDINT;
	eRErrorID 		: NBS.ERROR;
	eWErrorID 		: NBS.ERROR;
END_VAR

Section

Column

width	7

Implementation

Column

width	93

Code Block

theme	Confluence

IF NOT fbTcpClient.xActive THEN
	ipAddress.SetInitialValue(ipAddress := gvlSetting.gc_stIpAddr);
END_IF
fbTcpClient(xEnable := xConnect, itfIPAddress := ipAddress, uiPort := gvlSetting.gc_uiPort, udiTimeOut := 0);

fbBlink(ENABLE := TRUE);
IF (fbBlink.OUT AND (xBlink <> fbBlink.OUT) ) THEN
	udiVal := udiVal + 1;
	FOR iIndex := 0 TO gvlSetting.gc_wMaxTelegram DO
		abyTx[iIndex] := 0;
	END_FOR
	// 'WD: ' = Watchdog-Telegram
	abyTx[0] := 87;
	abyTx[1] := 68;
	abyTx[2] := 58;
	abyTx[3] := 32;
	// Counter
	pudiVal := ADR(udiVal);
	abyTx[4] := pudiVal^;
	pudiVal := pudiVal + 1;
	abyTx[5] := pudiVal^;
	pudiVal := pudiVal + 1;
	abyTx[6] := pudiVal^;
	pudiVal := pudiVal + 1;
	abyTx[7] := pudiVal^;
	fbTcpWrite(xExecute := xConnect,itfConnection := fbTcpClient.itfConnection, udiTimeOut := 0, udiSize := SIZEOF(abyTx), pData := ADR(abyTx));
ELSE
	fbTcpWrite(xExecute := FALSE);
END_IF

xBlink := fbBlink.OUT;

fbTcpRead(xEnable := xRead AND xConnect, itfConnection := fbTcpClient.itfConnection, udiSize := SIZEOF(abyRx), pData := ADR(abyRx), udiCount => udiRead);

IF fbTcpRead.xReady THEN
	IF (fbTcpRead.udiCount = (gvlSetting.gc_wMaxTelegram + 1)) THEN
		IF ((abyRx[0] = 65) AND  (abyRx[1] = 67) AND (abyRx[2] = 75) AND (abyRx[3] = 58) AND (abyRx[4] = 32)) THEN // 'WD: ' = Watchdog-Telegram
			udiLastAck := SysTimeRtc.SysTimeRtcGet(udiResult);
		END_IF
	END_IF
ELSIF fbTcpRead.xError THEN
	fbTcpRead(xEnable := FALSE);
END_IF


IF NOT fbTcpClient.xActive AND NOT fbTcpClient.xBusy AND NOT fbTcpClient.xDone THEN
	xConnect := TRUE;
ELSIF fbTcpClient.xDone THEN
	xConnect := FALSE;
END_IF

udiNow := SysTimeRtc.SysTimeRtcGet(udiResult);

IF (udiNow > (udiLastAck + c_udiInterval)) THEN  
	xMissingAck := TRUE;
ELSE
	xMissingAck := FALSE;
END_IF

Adapt the POU PLC_PRG as follows:
Section
Column
width 7
Implementation
Column
width 93
Code Block
theme Confluence
TcpServer(); TcpClient();
Load the project to the controller and start it. Set The variable TcpClient.xRead to TRUE.

Image Added

Up to SP16:

Open the Library Manager and add the following libraries:
CAA Net Base Services
SysTypes2 interfaces
SysTimeRtc
Util

Create a global variable named gvlSetting.

Adapt gvlSetting as follows:

Section

Column

width	7

Declaration

Column

width	93

Code Block

theme	Confluence

{attribute 'qualified_only'}
VAR_GLOBAL CONSTANT
    gc_uiPort        : UINT := 50001;
    gc_stIpAddr      : NBS.IP_ADDR := (sAddr := '192.168.99.74');
    
    gc_wMaxTelegram  : INT := 15; // Length o the telegram
END_VAR

Adapt the IP address and the port to your system.

...

Page tree

Versions Compared

Old Version 4

New Version Current

Key

As of SP16:

Up to SP16:

Page tree

Page History

Versions Compared

Old Version 4

New Version Current

Key

As of SP16:

Up to SP16: