Modbus TCP Stack implemented

Modbus TCP/socket.can

@@ -1,59 +0,0 @@
-/*@!Encoding:1252*/
-
-includes
-{
-	#include "TcpCommon.cin"
-}
-
-variables
-{
-}
-
-// Get information of local network interface such like ip address
-
-on preStart
-{
-	setStartdelay(1000);
-}
-
-on start
-{
-	long fehler;
-
-	TcpConnectTo("192.168.1.3", 502);
-}
-
-on key 's'
-{
-	SendTcpData();
-}
-
-on key 'r'
-{
-	TcpRecv();
-}
-
-void SendTcpData()
-{
-	const word length = 12;
-	byte buffer[length];
-
-	// Modbus Application Header
-	buffer[00] = 0x0C;			// [2] Transaction ID
-	buffer[01] = 0x2D;
-	buffer[02] = 0x00;			// [2] Protocol ID = 0
-	buffer[03] = 0x00;
-	buffer[04] = (length-6)>>8;	// [2] Length; Number of bytes following
-	buffer[05] = (length-6)&0xFF;
-	buffer[06] = 0xFF;			// [1] Unit identifier; not relevant
-	// Payload
-	buffer[07] = 0x01;			// [1] Function Code; 1:Read DI; 2:Read DIO; 3:Read AIO; 4:Read AI; 5:Write 1 DO; 6:Write 1 AO; 7: Read Exeption, 15:Write n DO; 16:Write n AO;
-	buffer[08] = 0x00;			// [2] Start address
-	buffer[09] = 0x00;
-	buffer[10] = 0x01;			// [2] Number of items; 1:max 2000=0x7D0
-	buffer[11] = 0xFF;
-	
-	TcpSnd(buffer);
-}
-
-/**/

Modbus/ModbusTcpCommon.cin

@@ -0,0 +1,368 @@
+/*@!Encoding:1252*/
+includes
+{
+	#include "TcpCommon.cin"
+}
+
+variables
+{
+	struct ModbusApHeader {
+		word TxID;
+		word Protocol;
+		word Length;
+		byte UnitID;
+		byte FuncCode;
+	};
+	struct ModbusRead {
+		struct ModbusApHeader Header;
+		word Address;
+		word Count;
+	};
+	struct ModbusWriteSingle {
+		struct ModbusApHeader Header;
+		word Address;
+		word Value;
+	};
+	struct ModbusWriteMultiple {
+		struct ModbusApHeader Header;
+		word Address;
+		word Count;
+		byte ByteCount;
+	};
+}
+
+// TODO: Add request timeout timers
+
+void ModbusInit(char Remote_IP[], word Remote_Port)
+{
+	TcpConnectTo("192.168.1.3", 502);
+}
+
+void ModbusMakeHeader(struct ModbusApHeader mbap, byte length)
+{
+	mbap.TxID = 0x1234;			// [2] Transaction ID. Not needed here?
+	mbap.Protocol = 0x0000;		// [2] Protocol ID = 0 = Modbus
+	mbap.Length = length-6;		// [2] Length; Number of bytes following
+	mbap.UnitID = 0xFF;			// [1] Unit identifier; not relevant
+
+	// 2:Read DIO; 3:Read AIO; 4:Read AI; 5:Write 1 DO; 6:Write 1 AO; 7: Read Exeption, 15:Write n DO; 16:Write n AO;
+}
+
+
+
+void ModbusReadBits(word address, word count)
+{
+	const byte length = 12;
+	byte buffer[length];
+	struct ModbusRead mbr;
+	
+	ModbusMakeHeader(mbr.Header, length);
+	// Payload
+	mbr.Header.FuncCode = 0x01;	// [1] Function Code; 1: Read Coils (DI), 2: Read Discret Inputs (DIO), seems to be the same for WAGO 750-881
+	mbr.Address = address;			// [2] Start address
+	mbr.Count = count;				// [2] Number of items; 1:max 2000=0x7D0
+	
+	memcpy_h2n(buffer, mbr);
+	TcpSnd(buffer);
+	TcpRecv();
+}
+
+void OnModbusReceiveBits(byte response[], dword size)
+{
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%> OnModbusReceiveBits: Received %d bytes: %d...", response[0], response[1]);
+}
+
+
+void ModbusReadRegisters(word address, word count)	// 16 bit
+{
+	const byte length = 12;
+	byte buffer[length];
+	struct ModbusRead mbr;
+	
+	ModbusMakeHeader(mbr.Header, length);
+	// Payload
+	mbr.Header.FuncCode = 0x03;		// [1] Function Code; 3: Read Holding Registers (AI), 4: Read Input Registers (AIO), seems to be the same for WAGO 750-881
+	mbr.Address = address;			// [2] Start address
+	mbr.Count = count;				// [2] Number of items; 1:max 2000=0x7D0
+	
+	memcpy_h2n(buffer, mbr);
+	TcpSnd(buffer);
+	TcpRecv();
+}
+
+void OnModbusReceiveRegisters(byte response[], dword size)
+{
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%> OnModbusReceiveRegisters: Received %d bytes: %d...", response[0]/2, response[1]<<8+response[2]);
+}
+
+
+void ModbusWriteBit(word address, byte value)
+{
+	const byte length = 12;
+	byte buffer[length];
+	struct ModbusWriteSingle mbw;
+
+	if (value >= 1)
+		value = 0xFF;
+
+	ModbusMakeHeader(mbw.Header, length);
+	// Payload
+	mbw.Header.FuncCode = 0x05;		// [1] Function Code; 5: Write Single Coil (DO)
+	mbw.Address = address;			// [2] Output address
+	mbw.Value = value << 8;			// [2] Output value (0x0000: Off, 0xFF00: On)
+	
+	memcpy_h2n(buffer, mbw);
+	TcpSnd(buffer);
+	TcpRecv();
+}
+
+void OnModbusConfirmBit(byte response[], dword size)
+{
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%> OnModbusConfirmBit: Set bit 0x%X to %d", (response[0]<<8) + response[1], ((response[2]<<8) + response[3] > 0 ? 1 : 0));
+}
+
+
+void ModbusWriteRegister(word address, word value)
+{
+	const byte length = 12;
+	byte buffer[length];
+	struct ModbusWriteSingle mbw;
+
+	ModbusMakeHeader(mbw.Header, length);
+	// Payload
+	mbw.Header.FuncCode = 0x06;		// [1] Function Code; 5: Write Single Register (AO)
+	mbw.Address = address;			// [2] Output address
+	mbw.Value = value;				// [2] Output value
+	
+	memcpy_h2n(buffer, mbw);
+	TcpSnd(buffer);
+	TcpRecv();
+}
+
+void OnModbusConfirmRegister(byte response[], dword size)
+{
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%> OnModbusConfirmRegister: Set register 0x%X to %d", (response[0]<<8) + response[1], (response[2]<<8) + response[3]);
+}
+
+
+void ModbusWriteBits(word address, word count, byte values[])
+{
+	const byte length = 13 + 2;	//_ceil(count / 8.0)
+	byte buffer[length];
+	struct ModbusWriteMultiple mbw;
+	word i;
+
+	ModbusMakeHeader(mbw.Header, length);
+	// Payload
+	mbw.Header.FuncCode = 0x0F;		// [1] Function Code; 15: Write Multiple Bits (DOs)
+	mbw.Address = address;			// [2] Output address
+	mbw.Count = count;				// [2] Number of items; 1:max 1968=0x7B0
+	mbw.ByteCount = 2;				// [1] Number of bytes; = ceil(count/8)
+
+	memcpy_h2n(buffer, mbw);
+	
+	for (i = 0; i < length-13; i++)
+	{
+		buffer[i+13] = values[i];
+	}
+	TcpSnd(buffer);
+	TcpRecv();
+}
+
+void ModbusWriteBitsB(word address, word count, byte values[])
+{
+	byte buffer[2];	// length
+	word length;
+	dword ellCount;
+	dword i;
+	dword j;
+	char str1[20*3], str2[20*3];
+
+	ellCount = elCount(values);
+	length = (word)_ceil(ellCount / 8.0);
+	//writeLineEx(0, 3, "ellCount: %d; length: %d", ellCount, length);
+
+	if (ellCount % 8 != 0)
+		length--;
+
+	for (i = 0; i < length; i++)
+	{
+		buffer[i] = 0;
+		for (j = 0; j < 8; j++)
+		{
+			buffer[i] |= (values[i*8 + j] & 0x01) << j;
+			//writeLineEx(0, 3, "j: %d; indx: %d; value: %d; mask: %X", j, i*8 + j, values[i*8 + j], (0x01 << j));
+		}
+		//writeLineEx(0, 3, "%d: %X", i, buffer[i]);
+	}
+	for (j = 0; j < ellCount % 8; j++)	// wont be executed if there is no remainder
+	{
+		//writeLineEx(0, 3, "j: %d; indx: %d; value: %d; mask: %X", j, (length-1)*8 + j, values[(length-1)*8 + j], (0x01 << j));
+		buffer[length] |= (values[(length)*8 + j] & 0x01) << j;
+	}
+	//writeLineEx(0, 3, "%d: %X", length-1, buffer[length-1]);
+
+	bin_to_strhex(values, str1);
+	bin_to_strhex(buffer, str2);
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%> ModbusWriteBitsB: Encoded %s to %s", str1, str2);
+	ModbusWriteBits(address, count, buffer);
+}
+
+void OnModbusConfirmBits(byte response[], dword size)
+{
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%> OnModbusConfirmBits: Set %d bits beginning with 0x%X", (response[2]<<8) + response[3], (response[0]<<8) + response[1]);
+}
+
+
+void ModbusWriteRegisters(word address, word count, word values[])
+{
+	const byte length = 13 + 2;	//13 + 2*count
+	byte buffer[length];
+	struct ModbusWriteMultiple mbw;
+	word i;
+
+	ModbusMakeHeader(mbw.Header, length);
+	// Payload
+	mbw.Header.FuncCode = 0x10;		// [1] Function Code; 16: Write Multiple Registers (AOs)
+	mbw.Address = address;			// [2] Output address
+	mbw.Count = count;				// [2] Number of items; 1:max 123=0x7B
+	mbw.ByteCount = 2 * count;		// [1] Number of bytes; = 2 * count
+
+	memcpy_h2n(buffer, mbw);
+
+	for (i = 0; i < length-13; i += 2)
+	{
+		buffer[i+13] = values[i] >> 8;
+		buffer[i+14] = values[i] & 0xFF;
+	}
+	TcpSnd(buffer);
+	TcpRecv();
+}
+
+void OnModbusConfirmRegisters(byte response[], dword size)
+{
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%> OnModbusConfirmRegisters: Set %d registers beginning with 0x%X", (response[2]<<8) + response[3], (response[0]<<8) + response[1]);
+}
+
+
+
+
+
+
+void OnTcpReceive(dword socket, long result, dword address, dword port, byte buffer[], dword size)
+{
+	if (result == 0)
+	{
+		if (size == 0)
+		{
+			// Size of zero indicates that the socket was closed by the communication peer.
+			writeLineEx(0, 2, "<%BASE_FILE_NAME%> OnTcpReceive: Socket closed by peer");
+			g_%NODE_NAME%_Socket.Close();
+			g_%NODE_NAME%_TcpState = CLOSED;
+		}
+		else
+		{
+			// Sucessfully received some bytes over the TCP/IP connection.
+			OnModbusReceive(buffer, size);
+			TcpRecv();
+		}
+	}
+	else
+	{
+		gIpLastErr = g_%NODE_NAME%_Socket.GetLastSocketError();
+		g_%NODE_NAME%_Socket.GetLastSocketErrorAsString(gIpLastErrStr, elcount(gIpLastErrStr));
+		writeLineEx(0, 2, "<%BASE_FILE_NAME%> OnTcpReceive error (%d): %s", gIpLastErr, gIpLastErrStr);
+		g_%NODE_NAME%_Socket.Close();
+		g_%NODE_NAME%_TcpState = CLOSED;
+	}
+}
+
+void OnModbusReceive(byte buffer[], dword size)
+{
+	// Test transaction identifier?
+	// Test unit/device identifier?
+	char str[20*3];
+	byte x[2];
+	byte mbuffer[8192];
+	dword i;
+	struct ModbusApHeader mbap;
+	
+	memcpy_n2h(mbap, buffer);
+
+	if (size < 8)						// No complete Modbus Application Header
+	{
+		writeLineEx(0, 2, "<%BASE_FILE_NAME%> OnModbusReceive Error: Tcp packet is too short: Length = %d", size);
+		return;
+	}
+	if (size != 6 + mbap.Length)		// TCP packet not as large as specified in length field
+	{
+		writeLineEx(0, 2, "<%BASE_FILE_NAME%> OnModbusReceive Error: Size of Tcp packet is incorrect: Length = %d, has to be %d", size, 6 + mbap.Length);
+		return;
+	}
+	if (mbap.Protocol != 0)				// Protocol is not Modbus (0x0000)
+	{
+		writeLineEx(0, 2, "<%BASE_FILE_NAME%> OnModbusReceive Error: Tcp packet is no Modbus packet: Protocol = %d", mbap.Protocol);
+		return;
+	}
+	// MBAP Header is OK :) Go on
+
+
+	if (mbap.FuncCode > 0x80)			// Oh no, we got a exception!
+	{
+		switch(buffer[08])				// Let's have a look at the reason
+		{
+			case 0x01:		// Illegal function code: Implementation failure!
+				writeLineEx(0, 3, "<%BASE_FILE_NAME%> OnModbusReceive Exception: Illegal function code (0x01). The function code %d is unknown by the server.", buffer[7] & 0x0F);
+				return;
+			case 0x02:		// Illegal data address: Configuration failure!
+				writeLineEx(0, 3, "<%BASE_FILE_NAME%> OnModbusReceive Exception: Illegal data address (0x02). Please check your configuration!");
+				return;
+			case 0x03:		// Illegal data value: Depends.
+				writeLineEx(0, 3, "<%BASE_FILE_NAME%> OnModbusReceive Exception: Illegal data value (0x03).");
+				return;
+			case 0x04:		// Server failure: We can't do anything about that, can we?
+				writeLineEx(0, 3, "<%BASE_FILE_NAME%> OnModbusReceive Exception: Server failure (0x04). The server failed during execution.");
+				return;
+			case 0x05:		// Acknowledge: That's ok.
+				writeLineEx(0, 1, "<%BASE_FILE_NAME%> OnModbusReceive Exception: Acknowledge (0x05). The server simply needs more time to generate the response.");
+				return;
+			case 0x06:		// Server busy: We should resend the request.
+				writeLineEx(0, 3, "<%BASE_FILE_NAME%> OnModbusReceive Exception: Server busy (0x06). The request could not be accepted.");
+				return;
+			case 0x0A:		// Gateway problem: We don't have gateways :)
+				writeLineEx(0, 3, "<%BASE_FILE_NAME%> OnModbusReceive Exception: Gateway problem (0x0A). Gateway paths not available.");
+				return;
+			case 0x0B:		// Gateway problem: We don't have gateways :)
+				writeLineEx(0, 3, "<%BASE_FILE_NAME%> OnModbusReceive Exception: Gateway problem (0x0B). The targeted device failed to respond.");
+				return;
+		}
+	}
+
+
+	// Extract the PDU for further processing
+	size -= 8;
+	for (i = 0; i < size; i++)
+		mbuffer[i] = buffer[i+8];
+
+	// Let's give the PDU to the corresponding function
+	switch (mbap.FuncCode)
+	{
+		case 0x01:
+		case 0x02:
+			OnModbusReceiveBits(mbuffer, size);
+			break;
+		case 0x03:
+		case 0x04:
+			OnModbusReceiveRegisters(mbuffer, size);
+			break;
+		case 0x05:
+			OnModbusConfirmBit(mbuffer, size);
+			break;
+		case 0x0F:
+			OnModbusConfirmBits(mbuffer, size);
+			break;
+		case 0x10:
+			OnModbusConfirmRegisters(mbuffer, size);
+			break;
+	}
+}

Modbus/TcpCommon.cin

@@ -14,6 +14,9 @@ variables
 	char gIpLastErrStr[512]			= "";
 	TcpSocket g_%NODE_NAME%_Socket;
 	
+	dword g_%NODE_NAME%_RemoteIP		= INVALID_IP;
+	word g_%NODE_NAME%_RemotePort	= 0;
+	
 	enum TcpState { NULL, OK, ERROR, CLOSED };
 	enum TcpState g_%NODE_NAME%_TcpState = NULL;
 
@@ -38,33 +41,33 @@ dword TcpSetupIp(char Local_IP[])
 	switch (adapterCount)
 	{
 		case 0:
-			writelineex(0, 3, "<%BASE_FILE_NAME%> Error: There is no network interface available!");
+			writeLineEx(0, 3, "<%BASE_FILE_NAME%> Error: There is no network interface available!");
 			stop();
 			return INVALID_IP;
 		break;
 		case 1:
-			writelineex(0, 1, "<%BASE_FILE_NAME%> Info: There is 1 network interface available!");
+			writeLineEx(0, 1, "<%BASE_FILE_NAME%> Info: There is 1 network interface available!");
 			if (adapterIndex != 1)
 			{
-				writelineex(0, 3, "<%BASE_FILE_NAME%> Error: You have not selected the first adapter!");
+				writeLineEx(0, 3, "<%BASE_FILE_NAME%> Error: You have not selected the first adapter!");
 				stop();
 				return INVALID_IP;
 			}
 			break;
 		default:
-			writelineex(0, 1, "<%BASE_FILE_NAME%> Info: There are %d network interfaces available!", adapterCount);
+			writeLineEx(0, 1, "<%BASE_FILE_NAME%> Info: There are %d network interfaces available!", adapterCount);
 			// // // // TEST \\ \\ \\ \\
 			for (i = 1; i <= adapterCount; i++)
 			{
 				IpGetAdapterDescription(i, text, size);
-				writelineex(0, 1, "<%BASE_FILE_NAME%> Info: Interface %d: %s", i, text);
+				writeLineEx(0, 1, "<%BASE_FILE_NAME%> Info: Interface %d: %s", i, text);
 			}
 			break;
 	}
 
 	if (IpGetAdapterAddress(adapterIndex, addresses, 1) != 0)
 	{
-		writelineex(0, 3, "<%BASE_FILE_NAME%> Error: Could not retrieve IP address!");
+		writeLineEx(0, 3, "<%BASE_FILE_NAME%> Error: Could not retrieve IP address!");
 		stop();
 		return INVALID_IP;
 	}
@@ -73,24 +76,24 @@ dword TcpSetupIp(char Local_IP[])
 
 	if (address == INVALID_IP)
 	{
-		writelineex(0, 3, "<%BASE_FILE_NAME%> Error: IP address to be used is invalid!");
+		writeLineEx(0, 3, "<%BASE_FILE_NAME%> Error: IP address to be used is invalid!");
 		stop();
 		return INVALID_IP;
 	}
  
 	IpGetAdapterDescription(adapterIndex, text, size);
-	writelineex(0, 1, "<%BASE_FILE_NAME%> Interface: %s", text);
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%> Interface: %s", text);
-	writelineex(0, 1, "<%BASE_FILE_NAME%>    Wrong interface? Change sysvar::TCPIP::AdapterIndex");
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%>    Wrong interface? Change sysvar::TCPIP::AdapterIndex");
 
 	IpGetAdapterAddressAsString(adapterIndex, text, size);
-	writelineex(0, 1, "<%BASE_FILE_NAME%> Ip address: %s", text);
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%> Ip address: %s", text);
 	strncpy(Local_IP, text, 16);
 
 	IpGetAdapterMaskAsString(adapterIndex, text, size);
-	writelineex(0, 1, "<%BASE_FILE_NAME%> Subnet mask: %s", text);
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%> Subnet mask: %s", text);
 
 	IpGetAdapterGatewayAsString(adapterIndex, text, size);
-	writelineex(0, 1, "<%BASE_FILE_NAME%> Gateway address: %s", text);
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%> Gateway address: %s", text);
 	
 	return address;
 }
@@ -116,19 +119,19 @@ word TcpOpenSocket()
 		if (g_%NODE_NAME%_Socket.GetLastSocketError() != 0)
 		{
 			g_%NODE_NAME%_Socket.GetLastSocketErrorAsString(errorText, elcount(errorText));
-			writelineex(0, 1, "<%BASE_FILE_NAME%> Error: could not open Tcp socket on %s:%d, %s (%d)!", Local_IP, localPort, errorText, g_%NODE_NAME%_Socket.GetLastSocketError());
+			writeLineEx(0, 1, "<%BASE_FILE_NAME%> Error: could not open Tcp socket on %s:%d, %s (%d)!", Local_IP, localPort, errorText, g_%NODE_NAME%_Socket.GetLastSocketError());
 		}
 	}
 	while (g_%NODE_NAME%_Socket.GetLastSocketError() != 0 && i++ < 9);
 	
 	if (g_%NODE_NAME%_Socket.GetLastSocketError() != 0)
 	{
-		writelineex(0, 1, "<%BASE_FILE_NAME%> Error: could not open Tcp socket!");
+		writeLineEx(0, 1, "<%BASE_FILE_NAME%> Error: could not open Tcp socket!");
 		return g_%NODE_NAME%_Socket.GetLastSocketError();
 	}
 	else
 	{
-		writelineex(0, 1, "<%BASE_FILE_NAME%> Tcp socket opened on %s:%d.", Local_IP, localPort);
+		writeLineEx(0, 1, "<%BASE_FILE_NAME%> Tcp socket opened on %s:%d.", Local_IP, localPort);
 	}
 	return 0;
 
@@ -137,23 +140,33 @@ word TcpOpenSocket()
 word TcpConnectTo(char Remote_IP[], word remotePort)
 {
 	dword remoteIp;
+
+	// Convert IP string to Number
+	remoteIp = IpGetAddressAsNumber(Remote_IP);
+	if (remoteIp == INVALID_IP)
+	{
+		writeLineEx(0, 1, "<%BASE_FILE_NAME%> Error: invalid server Ip address!");
+		
+		return 1;
+	}
+
+	return TcpConnectTo(remoteIp, remotePort);
+}
+
+word TcpConnectTo(dword remoteIp, word remotePort)
+{
 	long fehler;
 
 	// Try to open a socket
 	fehler = TcpOpenSocket();
 	if (fehler != 0)
 	{
+		g_%NODE_NAME%_TcpState = ERROR;
 		return fehler;
 	}
 
-	// Convert IP string to Number
+	g_%NODE_NAME%_RemoteIP = remoteIp;
-	remoteIp = IpGetAddressAsNumber(Remote_IP);
+	g_%NODE_NAME%_RemotePort = remotePort;
-	if (remoteIp == INVALID_IP)
-	{
-		writelineex(0, 1, "<%BASE_FILE_NAME%> Error: invalid server Ip address!");
-		
-		return 1;
-	}
 
 
 	// Connect to Server
@@ -171,11 +184,10 @@ word TcpConnectTo(char Remote_IP[], word remotePort)
 	}
 	else
 	{
-		writelineex(0, 1, "<%BASE_FILE_NAME%> Successfully connected to server %s:%d", Remote_IP, remotePort);
+		writeLineEx(0, 1, "<%BASE_FILE_NAME%> Successfully connected to server");
 		g_%NODE_NAME%_TcpState = OK;
 		return 0;
 	}
-
 }
 
 void OnTcpConnect(dword socket, long result)
@@ -183,13 +195,13 @@ void OnTcpConnect(dword socket, long result)
 	if (result != 0)
 	{
 		g_%NODE_NAME%_Socket.GetLastSocketErrorAsString(gIpLastErrStr, elcount(gIpLastErrStr));
-		writelineex(0, 2, "<%BASE_FILE_NAME%> OnTcpConnect error (%d): %s", g_%NODE_NAME%_Socket.GetLastSocketError(), gIpLastErrStr);
+		writeLineEx(0, 2, "<%BASE_FILE_NAME%> OnTcpConnect error (%d): %s", g_%NODE_NAME%_Socket.GetLastSocketError(), gIpLastErrStr);
 		g_%NODE_NAME%_TcpState = ERROR;
 		return;
 	}
 	else
 	{
-		writelineex(0, 1, "<%BASE_FILE_NAME%> Successfully connected to server");
+		writeLineEx(0, 1, "<%BASE_FILE_NAME%> Successfully connected to server");
 		g_%NODE_NAME%_TcpState = OK;
 	}
 }
@@ -200,7 +212,7 @@ void TcpRecv()
 
 	if (g_%NODE_NAME%_TcpState != OK)
 	{
-		writelineex(0, 2, "TcpRecv: Socket status is not OK!");
+		writeLineEx(0, 2, "TcpRecv: Socket status is not OK!");
 		return;
 	}
 	
@@ -213,7 +225,7 @@ void TcpRecv()
 		if (gIpLastErr != WSA_IO_PENDING)	// Calling OnTcpReceive otherwise
 		{
 			g_%NODE_NAME%_Socket.GetLastSocketErrorAsString(gIpLastErrStr, elcount(gIpLastErrStr));
-			writelineex(0, 2, "<%BASE_FILE_NAME%> TcpReceive error (%d): %s", gIpLastErr, gIpLastErrStr);
+			writeLineEx(0, 2, "<%BASE_FILE_NAME%> TcpReceive error (%d): %s", gIpLastErr, gIpLastErrStr);
 			g_%NODE_NAME%_Socket.Close();
 			g_%NODE_NAME%_TcpState = CLOSED;
 		}
@@ -222,6 +234,7 @@ void TcpRecv()
 	return;
 }
 
+/*
 void OnTcpReceive(dword socket, long result, dword address, dword port, char buffer[], dword size)
 {
 	char str[20*3];
@@ -231,7 +244,7 @@ void OnTcpReceive(dword socket, long result, dword address, dword port, char buf
 		if (size == 0)
 		{
 			// Size of zero indicates that the socket was closed by the communication peer.
-			writelineex(0, 2, "<%BASE_FILE_NAME%> OnTcpReceive: Socket closed by peer");
+			writeLineEx(0, 2, "<%BASE_FILE_NAME%> OnTcpReceive: Socket closed by peer");
 			g_%NODE_NAME%_Socket.Close();
 			g_%NODE_NAME%_TcpState = CLOSED;
 		}
@@ -239,18 +252,19 @@ void OnTcpReceive(dword socket, long result, dword address, dword port, char buf
 		{
 			// Sucessfully received some bytes over the TCP/IP connection.
 			bin_to_strhex(gTcpRxBuffer, str);
-			writelineex(0, 1, "<%BASE_FILE_NAME%> OnTcpReceive: %s", str);
+			writeLineEx(0, 1, "<%BASE_FILE_NAME%> OnTcpReceive: %s", str);
 		}
 	}
 	else
 	{
 		gIpLastErr = g_%NODE_NAME%_Socket.GetLastSocketError();
 		g_%NODE_NAME%_Socket.GetLastSocketErrorAsString(gIpLastErrStr, elcount(gIpLastErrStr));
-		writelineex(0, 2, "<%BASE_FILE_NAME%> OnTcpReceive error (%d): %s", gIpLastErr, gIpLastErrStr);
+		writeLineEx(0, 2, "<%BASE_FILE_NAME%> OnTcpReceive error (%d): %s", gIpLastErr, gIpLastErrStr);
 		g_%NODE_NAME%_Socket.Close();
 		g_%NODE_NAME%_TcpState = CLOSED;
 	}
 }
+*/
 
 void TcpSnd(byte buffer[])
 {
@@ -259,17 +273,21 @@ void TcpSnd(byte buffer[])
 	switch (g_%NODE_NAME%_TcpState)
 	{
 		case CLOSED:
-			TcpOpenSocket();
+			TcpConnectTo(g_%NODE_NAME%_RemoteIP, g_%NODE_NAME%_RemotePort);
-			break;
+			if (g_%NODE_NAME%_TcpState != OK)
+			{
+				writeLineEx(0, 2, "TcpSnd: Reconnecting failed!");
+				return;
+			}
 		case OK:
 			break;
 		default:
-			writelineex(0, 2, "TcpSnd: Socket status is not OK!");
+			writeLineEx(0, 2, "TcpSnd: Socket status is not OK!");
 			return;
 	}
 
 	bin_to_strhex(buffer, str);
-	writelineex(0, 1, "<%BASE_FILE_NAME%> TcpSnd: %s (Länge: %d)", str, elCount(buffer));
+	writeLineEx(0, 1, "<%BASE_FILE_NAME%> TcpSnd: %s (Länge: %d)", str, elCount(buffer));
 	
 	if (g_%NODE_NAME%_Socket.Send(buffer, elCount(buffer)) != 0)
 	{
@@ -278,7 +296,7 @@ void TcpSnd(byte buffer[])
 		if (gIpLastErr != WSA_IO_PENDING)
 		{
 			g_%NODE_NAME%_Socket.GetLastSocketErrorAsString(gIpLastErrStr, elcount(gIpLastErrStr));
-			writelineex(0, 2, "<%BASE_FILE_NAME%> TcpSnd error (%d): %s", gIpLastErr, gIpLastErrStr);
+			writeLineEx(0, 2, "<%BASE_FILE_NAME%> TcpSnd error (%d): %s", gIpLastErr, gIpLastErrStr);
 			g_%NODE_NAME%_Socket.Close();
 			g_%NODE_NAME%_TcpState = CLOSED;
 		}

Modbus/modbus.cfg

@@ -1,12 +1,17 @@
-;CANoe Version |4|7|1|58720 modbus 
+;CANoe Version |4|7|1|42357 modbus 
 Version: 8.2.40 Build 40
 32 PRO
-5
+10
 APPDIR Vector.CANoe.SignalGenerators.DLL
 Vector.CANoe.SignalGenerators, Version=8.2.40.0, Culture=neutral, PublicKeyToken=null
 Vector.CANoe.SignalGenerators.ComponentWrapper
 1
 1.0.1
+APPDIR Vector.CANoe.Debugger.DLL
+Vector.CANoe.Debugger, Version=8.2.40.0, Culture=neutral, PublicKeyToken=null
+Vector.CANoe.Debugger.DebuggerComponent
+2
+1.0.0
 VGlobalConfiguration 1 Begin_Of_Object
 17
 VGlobalParameters 2 Begin_Of_Object
@@ -411,12 +416,12 @@ VCaplOptionsStreamer 3 Begin_Of_Object
 End_Of_Object VCaplOptionsStreamer 3
 VSVConfigurationStreamer 3 Begin_Of_Object
 1
-701
+700
 <?xml version="1.0" encoding="Windows-1252"?>
 <systemvariables version="4">
   <namespace name="" comment="">
     <namespace name="TCPIP" comment="">
-      <variable anlyzLocal="2" readOnly="false" valueSequence="false" unit="" name="AdapterIndex" comment="Index of network interface to use" bitcount="32" isSigned="true" encoding="65001" type="int" startValue="1" minValue="1" minValuePhys="1" maxValue="20" maxValuePhys="20" />
+      <variable anlyzLocal="2" readOnly="false" valueSequence="false" unit="" name="AdapterIndex" comment="Index of network interface to use" bitcount="0" isSigned="true" encoding="65001" type="int" startValue="2" minValue="1" minValuePhys="1" maxValue="20" maxValuePhys="20" />
     </namespace>
     <variable anlyzLocal="2" readOnly="false" valueSequence="false" unit="" name="senden" comment="" bitcount="32" isSigned="true" encoding="65001" type="int" minValue="0" minValuePhys="0" maxValue="1" maxValuePhys="1" />
   </namespace>
@@ -687,11 +692,11 @@ Begin_Of_Multi_Line_String
   Copyright (c) 2001-2006 Actipro Software LLC.  All rights reserved.
   http://www.ActiproSoftware.com/Products/DotNet/
 
---><ToolWindowLayout Version="1.0"><LayoutData><HostContainerControl><ToolWindowContainer Dock="Top" Size="1192, 205" SelectedToolWindowGuid="7f29b491-3ada-4572-b140-b422651d6fed"><ToolWindow Key="{8F3DFCAC-9CCB-45C2-AF10-5DEC039B5956}" Guid="7f29b491-3ada-4572-b140-b422651d6fed" DockedSize="201, 201" FloatingLocation="6, 433" FloatingSize="300, 180" HasOptions="False" ImageIndex="-1" Text="Write" TitleBarText="Write"><AutoHideStateInfo RootDock="Top" /><DockedInsideHostStateInfo RootDock="Top" IsAttached="False"><DockedBy Guid="db27ffca-d17e-40f0-a70b-be70fe5eb4ec" RootDock="Right" DockOperationType="LeftOuter" IsTopMost="True" /></DockedInsideHostStateInfo><DockedOutsideHostStateInfo IsAttached="False" /></ToolWindow></ToolWindowContainer><ToolWindowContainer Dock="Bottom" Size="1192, 204" SelectedToolWindowGuid="ac9be154-bd12-4ff9-b255-03e05277dbe2"><ToolWindow Key="{28077F35-C142-4ACC-B040-1BF0AB026C11}" Guid="ac9be154-bd12-4ff9-b255-03e05277dbe2" DockedSize="201, 200" FloatingLoc
+--><ToolWindowLayout Version="1.0"><LayoutData><HostContainerControl><ToolWindowContainer Dock="Top" Size="863, 231" SelectedToolWindowGuid="7f29b491-3ada-4572-b140-b422651d6fed"><ToolWindow Key="{8F3DFCAC-9CCB-45C2-AF10-5DEC039B5956}" Guid="7f29b491-3ada-4572-b140-b422651d6fed" DockedSize="201, 227" FloatingLocation="6, 433" FloatingSize="300, 180" HasOptions="False" ImageIndex="-1" Text="Write" TitleBarText="Write"><AutoHideStateInfo RootDock="Top" /><DockedInsideHostStateInfo RootDock="Top" IsAttached="False"><DockedBy Guid="b2726676-2b89-4fee-b1a3-2be7bfbdec73" RootDock="Left" DockOperationType="RightOuter" IsTopMost="True" /></DockedInsideHostStateInfo><DockedOutsideHostStateInfo IsAttached="False" /></ToolWindow></ToolWindowContainer><ToolWindowContainer Dock="Bottom" Size="863, 288" SelectedToolWindowGuid="ac9be154-bd12-4ff9-b255-03e05277dbe2"><ToolWindow Key="{28077F35-C142-4ACC-B040-1BF0AB026C11}" Guid="ac9be154-bd12-4ff9-b255-03e05277dbe2" DockedSize="201, 284" FloatingLocat
 kPersistNoLineBreak
-ation="111, 442" FloatingSize="1192, 514" HasOptions="False" ImageIndex="-1" Text="Trace" TitleBarText="Trace"><AutoHideStateInfo RootDock="Bottom" /><DockedInsideHostStateInfo RootDock="Bottom" IsAttached="False"><DockedBy Guid="db27ffca-d17e-40f0-a70b-be70fe5eb4ec" RootDock="Right" DockOperationType="LeftOuter" IsTopMost="True" /></DockedInsideHostStateInfo><DockedOutsideHostStateInfo IsAttached="False" /></ToolWindow></ToolWindowContainer></HostContainerControl><AutoHide Dock="Left" /><AutoHide Dock="Right" /><AutoHide Dock="Top" /><AutoHide Dock="Bottom" /><TabbedDocuments Orientation="Horizontal" /><FloatingContainers /><Hidden><ToolWindow Key="{49714911-9568-49CC-A9CE-3B0905658C4A}" Guid="db27ffca-d17e-40f0-a70b-be70fe5eb4ec" State="DockableInsideHost" DockedSize="381, 0" FloatingLocation="1151, 79" FloatingSize="300, 180" HasOptions="False" ImageIndex="-1" Text="Messaufbau" TitleBarText="Messaufbau"><AutoHideStateInfo RootDock="Right" /><DockedInsideHostStateInfo RootDock="Righ
+ion="111, 442" FloatingSize="1192, 514" HasOptions="False" ImageIndex="-1" Text="Trace" TitleBarText="Trace"><AutoHideStateInfo RootDock="Bottom" /><DockedInsideHostStateInfo RootDock="Bottom" IsAttached="False"><DockedBy Guid="b2726676-2b89-4fee-b1a3-2be7bfbdec73" RootDock="Left" DockOperationType="RightOuter" IsTopMost="True" /></DockedInsideHostStateInfo><DockedOutsideHostStateInfo IsAttached="False" /></ToolWindow></ToolWindowContainer><ToolWindowContainer Dock="Left" Size="329, 905" SelectedToolWindowGuid="b2726676-2b89-4fee-b1a3-2be7bfbdec73"><ToolWindow Key="{F5E09530-AAE7-48d9-B925-CEF5027AA97D}" Guid="b2726676-2b89-4fee-b1a3-2be7bfbdec73" DockedSize="325, 325" FloatingSize="325, 380" HasOptions="False" ImageIndex="-1" Text="Symbol Explorer" TitleBarText="Symbol Explorer"><AutoHideStateInfo RootDock="Left" /><DockedInsideHostStateInfo RootDock="Left" IsAttached="False" /><DockedOutsideHostStateInfo IsAttached="False" /></ToolWindow></ToolWindowContainer></HostContainerControl>
 kPersistNoLineBreak
-t" IsAttached="False" /><DockedOutsideHostStateInfo IsAttached="False" /></ToolWindow></Hidden></LayoutData><CustomData /></ToolWindowLayout>
+<AutoHide Dock="Left" /><AutoHide Dock="Right" /><AutoHide Dock="Top" /><AutoHide Dock="Bottom" /><TabbedDocuments Orientation="Horizontal" /><FloatingContainers /><Hidden><ToolWindow Key="{49714911-9568-49CC-A9CE-3B0905658C4A}" Guid="db27ffca-d17e-40f0-a70b-be70fe5eb4ec" State="DockableInsideHost" DockedSize="381, 0" FloatingLocation="1151, 79" FloatingSize="300, 180"><AutoHideStateInfo RootDock="Right" /><DockedInsideHostStateInfo RootDock="Right" IsAttached="False" /><DockedOutsideHostStateInfo IsAttached="False" /></ToolWindow></Hidden></LayoutData><CustomData /></ToolWindowLayout>
 End_Of_Serialized_Data 3
 End_Of_Object VDesktop 3
 VDesktop 3 Begin_Of_Object
@@ -1481,7 +1486,7 @@ VTraceAnalysisSingleFilter 17 Begin_Of_Object
 End_Of_Object VTraceAnalysisSingleFilter 17
 VTraceAnalysisSingleFilter 17 Begin_Of_Object
 3
-1
+0
 0
 0
 End_Of_Object VTraceAnalysisSingleFilter 17
@@ -1537,7 +1542,10 @@ End_Of_Serialized_Data 14
 16
 0
 17
-0
+1
+14
+ver=2: FT
+End_Of_Serialized_Data 14
 18
 0
 19
@@ -1557,24 +1565,24 @@ End_Of_Serialized_Data 14
 23
 1
 14
-ver=2: FF
+ver=2: FT
 End_Of_Serialized_Data 14
 24
 1
 14
-ver=2: FF
+ver=2: FT
 End_Of_Serialized_Data 14
 25
 0
 26
 1
 14
-ver=2: FF
+ver=2: FT
 End_Of_Serialized_Data 14
 27
 1
 14
-ver=2: FF
+ver=2: FT
 End_Of_Serialized_Data 14
 0
 2
@@ -3445,7 +3453,7 @@ Trace Window
 End_Of_Object VLogExportPersister 15
 
 End_Of_Serialized_Data 14
-0
+3
 0
 0
 290
@@ -3471,7 +3479,7 @@ MDI_DOCK_INFO_END
 1
 6
 0 1 -1 -1 -1 -1 -15 105 1285 623
-6 1 0 0 0 0 0 0 1192 514 0 0 1 36756 1904 0 0 0 0 0 0 0 0 -1 -1 32767 0 0 0 0 0 0 0 111 442 1 0 0 0 1 200 0 59422 1 
+6 1 0 0 0 0 0 0 1192 514 0 0 1 36756 1904 0 0 0 0 0 0 0 0 -1 -1 32767 0 0 0 0 0 0 0 111 442 1 0 0 0 1 284 0 59422 1 
 END_OF_DOCK_INFO
 1
 3
@@ -4256,7 +4264,7 @@ VUniqueBox 4 Begin_Of_Object
 VBoxRoot 5 Begin_Of_Object
 1
 3
-0 0 0 1 -1 -1 -8 -30 0 0 890 487
+0 0 2 3 -1 -1 -8 -30 0 0 890 487
 
 1
 
@@ -4264,7 +4272,7 @@ MDI_DOCK_INFO_END
 5
 1
 6
-0 1 -1 -1 -8 -30 0 0 890 487
+2 3 -1 -1 -8 -30 0 0 890 487
 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 32767 0 0 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 0 0 
 END_OF_DOCK_INFO
 1
@@ -4272,7 +4280,7 @@ END_OF_DOCK_INFO
 0
 0
 1
-1188 492
+859 382
 END_OF_DESKTOP_DATA
 6
 0 1 0 0 -1 -1 44 44 1544 1005
@@ -4323,7 +4331,7 @@ End_Of_Object VGrMnBox 3
 VDOLocalInfoStruct 3 Begin_Of_Object
 3
 1
-76
+88
 VDAOBus 4 Begin_Of_Object
 1
 1
@@ -4516,7 +4524,7 @@ EOF_ASSEMBLYDATA
 <VFileName V4 QL> 1 "socket.cbf" 
 VIPBStackSetting 8 Begin_Of_Object
 3
-2
+0
 1
 VIPBAdapterSetting 9 Begin_Of_Object
 4
@@ -4562,7 +4570,243 @@ End_Of_Object VIPBAdapterSetting 9
 0
 End_Of_Object VIPBStackSetting 8
 7
-NULL
+NDebugger::VDebuggerHost 8 Begin_Of_Object
+2
+0
+4
+NDebugger::VFile 9 Begin_Of_Object
+1
+<VFileName V4 QL> 1 "socket.can" 
+0
+End_Of_Object NDebugger::VFile 9
+NDebugger::VFile 9 Begin_Of_Object
+1
+<VFileName V4 QL> 1 "Common.cin" 
+1
+End_Of_Object NDebugger::VFile 9
+NDebugger::VFile 9 Begin_Of_Object
+1
+<VFileName V4 QL> 1 "ModbusCommon.cin" 
+2
+End_Of_Object NDebugger::VFile 9
+NDebugger::VFile 9 Begin_Of_Object
+1
+<VFileName V4 QL> 1 "TcpCommon.cin" 
+3
+End_Of_Object NDebugger::VFile 9
+VNETStandaloneComponent 9 Begin_Of_Object
+1
+VNETControlBox 10 Begin_Of_Object
+2
+VUniqueBox 11 Begin_Of_Object
+1
+VBoxRoot 12 Begin_Of_Object
+1
+3
+1 -1 2 3 -1 -1 -8 -30 171 76 688 306
+Debugger - Programm: socket [Debugging ausgeschaltet]
+1
+
+MDI_DOCK_INFO_END
+5
+1
+6
+2 3 -1 -1 -8 -30 171 76 688 306
+6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 32767 0 0 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 0 0 
+END_OF_DOCK_INFO
+0
+-1
+0
+0
+0
+859 382
+END_OF_DESKTOP_DATA
+6
+0 1 0 0 0 0 171 76 688 306
+6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 32767 0 0 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 0 0 
+END_OF_DOCK_INFO
+0
+-1
+0
+0
+0
+0 0
+END_OF_DESKTOP_DATA
+END_OF_DESKTOP_DATA_COLLECTION
+0
+0 1
+1
+6
+0 1 0 0 0 0 171 76 688 306
+6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 32767 0 0 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 0 0 
+END_OF_DOCK_INFO
+0
+-1
+0
+0
+0
+0 0
+END_OF_DESKTOP_DATA
+6
+0 1 0 0 0 0 171 76 688 306
+6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 32767 0 0 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 0 0 
+END_OF_DOCK_INFO
+0
+-1
+0
+0
+0
+0 0
+END_OF_DESKTOP_DATA
+END_OF_DESKTOP_DATA_COLLECTION
+0
+END_OF_DESKTOP_MEMBER
+{48CC8AD8-485E-4CF0-AB4F-37B0280AD2E5}
+0
+End_Of_Object VBoxRoot 12
+1 -1 0 0 0 0 0 0 0 0 0 0
+End_Of_Object VUniqueBox 11
+1
+1 -1 0 0 0 0 0 0 0 0 0 0
+0
+End_Of_Object VNETControlBox 10
+132
+APPDIR Vector.CANoe.Debugger.DLL
+Vector.CANoe.Debugger, Version=8.2.40.0, Culture=neutral, PublicKeyToken=null
+Vector.CANoe.Debugger.DebuggerComponent
+1
+1
+APPDIR CANoe_Net.DLL
+CANoe_Net, Version=8.2.40.0, Culture=neutral, PublicKeyToken=null
+Vector.CANalyzer.ApplicationSerializer
+2
+mApplication
+2
+APPDIR Vector.CANoe.Debugger.DLL
+Vector.CANoe.Debugger, Version=8.2.40.0, Culture=neutral, PublicKeyToken=null
+Vector.CANoe.Debugger.DebuggerModel
+3
+mModel
+3
+APPDIR Components\Vector.CANalyzer.Serialization\1.5.0.0\Vector.CANalyzer.Serialization.dll
+Vector.CANalyzer.Serialization, Version=1.5.0.0, Culture=neutral, PublicKeyToken=b273882a063429a6
+Vector.CANalyzer.Serialization.SerializationVersion
+4
+SerializationVersion
+4
+UInt16
+mMajor
+1
+UInt16
+mMinor
+0
+UInt16
+mPatch
+0
+--TextFormatter: End of Object--
+--TextFormatter: End of Object--
+TypeRef:2
+2
+--TextFormatter: End of Object--
+TypeRef:3
+3
+Int32
+NrOfFiles
+4
+Int32
+FileID0
+0
+Int32
+CurrentLine0
+0
+Int32
+FileID1
+1
+Int32
+CurrentLine1
+0
+Int32
+FileID2
+2
+Int32
+CurrentLine2
+0
+Int32
+FileID3
+3
+Int32
+CurrentLine3
+0
+Int32
+SelectedFileID
+0
+Int32
+NrOfWatchedVariables
+0
+String
+WindowLayout
+37
+<?xml version="1.0" encoding="utf-16"?>
+<!--
+
+  Actipro UIStudio Dock Controls
+  Copyright (c) 2001-2006 Actipro Software LLC.  All rights reserved.
+  http://www.ActiproSoftware.com/Products/DotNet/
+
+-->
+<ToolWindowLayout Version="1.0">
+  <LayoutData>
+    <HostContainerControl />
+    <AutoHide Dock="Left" />
+    <AutoHide Dock="Right" />
+    <AutoHide Dock="Top" />
+    <AutoHide Dock="Bottom" />
+    <TabbedDocuments Orientation="Horizontal" />
+    <FloatingContainers />
+    <Hidden>
+      <ToolWindow Key="Variables" Guid="68b3160b-ffe7-41ad-b498-3d9a0417c07b" State="DockableInsideHost" CanBecomeDocument="False" CanFloat="False" ImageIndex="-1" Text="Variablen">
+        <AutoHideStateInfo RootDock="Bottom" />
+        <DockedInsideHostStateInfo RootDock="Bottom" IsAttached="False" />
+        <DockedOutsideHostStateInfo IsAttached="False" />
+      </ToolWindow>
+      <ToolWindow Key="Watch" Guid="f8c813e2-411f-4567-94af-06fa8aab46c7" State="DockableInsideHost" CanBecomeDocument="False" CanFloat="False" ImageIndex="-1" Text="Überwachung">
+        <AutoHideStateInfo RootDock="Bottom" />
+        <DockedInsideHostStateInfo RootDock="Bottom" IsAttached="False" />
+        <DockedOutsideHostStateInfo IsAttached="False" />
+      </ToolWindow>
+      <ToolWindow Key="Breakpoints" Guid="f3a88984-ffd2-41ba-b59d-c44be870a5aa" State="DockableInsideHost" CanBecomeDocument="False" CanFloat="False" ImageIndex="-1" Text="Haltepunkte">
+        <AutoHideStateInfo RootDock="Left" />
+        <DockedInsideHostStateInfo RootDock="Left" IsAttached="False" />
+        <DockedOutsideHostStateInfo IsAttached="False" />
+      </ToolWindow>
+    </Hidden>
+  </LayoutData>
+  <CustomData />
+</ToolWindowLayout>
+Boolean
+ShowOnlyLocalsVar
+True
+Boolean
+ShowOnlyLocalsWatch
+True
+TypeRef:4
+SerializationVersion
+5
+UInt16
+mMajor
+1
+UInt16
+mMinor
+0
+UInt16
+mPatch
+3
+--TextFormatter: End of Object--
+--TextFormatter: End of Object--
+End_Of_Object VNETStandaloneComponent 9
+0
+End_Of_Object NDebugger::VDebuggerHost 8
+
 End_Of_Serialized_Data 7
 End_Of_Object VProgrammedNode 7
 0
@@ -4582,7 +4826,7 @@ VSimulinkModelViewerConfiguration 7 Begin_Of_Object
 End_Of_Object VSimulinkModelViewerConfiguration 7
 1
 0
-3411971265
+3370075276
 0
 NodeSignalPanelBustypeCount 0
 End_Of_Object VSimulationNode 6
@@ -4625,12 +4869,12 @@ MDI_DOCK_INFO_END
 2 3 -1 -1 -8 -30 114 0 1146 491
 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 32767 0 0 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 0 0 
 END_OF_DOCK_INFO
-1
+0
 1
 0
 0
 1
-1188 492
+1188 466
 END_OF_DESKTOP_DATA
 6
 0 1 0 0 -1 -1 216 113 867 455
@@ -4690,7 +4934,7 @@ SS_END_COMMON_INFO
 
 EOF_MBSSDATA
 1
-0 1
+0 0
 <IPPlugIn.PacketBuilder DefaultBusProtocolId="256" DefaultDestMacIdSelection="107" DefaultDestinationIPAddress="192 . 168 .  1 . 100" DefaultDestinationIPv6Address="0:0:0:0:0:0:0:0" DefaultDestinationMacId="FF:FF:FF:FF:FF:FF" DefaultDestinationPort="502" DefaultSourceIPAddress="192 . 168 .  1 . 10" DefaultSourceIPv6Address="0:0:0:0:0:0:0:0" DefaultSourceMacId="02:00:4C:4F:4F:50" DefaultSourcePort="2000" DefaultSrcMacIdSelection="1" Name="Ethernet Packet Builder">
 <IPPlugIn.VPersistentFrameWrapper AssignedChannelId="Eth 1" DestMacIdConfStateSel="111" FrameDescription="Read Coils 1-512" FrameIsValid="1" InitialPacketType="4" PDBData="5 0 1651797619 1 9 1 1651797619 1 5 1 1651797619 1 4 0 1651797619 1 11 0 1651797619 1 8 0 1651797619 1 3 0 1651797619 1 10 1 1651797619 1 3 1 1651797619 1 " RawFrameData=" 0-30-de- 7-9a-fd- 0-19-db-cb-83-dd- 8- 0-45- 0- 0-34- 0- 0- 0- 0-40- 6-f7-6f-c0-a8- 1- 1-c0-a8- 1- 3-d5-66- 1-f6- 0- 0- 0- 0- 0- 0- 0- 0-50- 0-fa-15-59- 9- 0- 0- 0- 2- 0- 0- 0- 6- 0- 1- 0- 0- 1-ff-" RawFrameLength="66" SrcMacIdConfStateSel="105" WlanAddr1MacIdConfStateSel="111" WlanAddr2MacIdConfStateSel="111" WlanAddr3MacIdConfStateSel="111" WlanAddr4MacIdConfStateSel="111"/>
 <IPPlugIn.VPersistentFrameWrapper AssignedChannelId="Eth 1" DestMacIdConfStateSel="111" FrameDescription="" FrameIsValid="1" InitialPacketType="4" PDBData="3 0 1651797619 1 3 1 1651797619 1 10 1 1651797619 1 8 0 1651797619 1 11 0 1651797619 1 4 0 1651797619 1 5 0 1651797619 1 5 1 1651797619 1 9 1 1651797619 1 " RawFrameData=" 0-30-de- 7-9a-fd- 0-19-db-cb-83-dd- 8- 0-45- 0- 0-34- 1-6e-40- 0-80- 6-76- 1-c0-a8- 1- 1-c0-a8- 1- 3-d5-69- 1-f6-18-f0-66-10-dc-70-88-e2-50-18-fa-f0-73-bf- 0- 0- 0- 2- 0- 0- 0- 6- 0- 1- 0- 0- 1-ff-" RawFrameLength="66" SrcMacIdConfStateSel="111" WlanAddr1MacIdConfStateSel="111" WlanAddr2MacIdConfStateSel="111" WlanAddr3MacIdConfStateSel="111" WlanAddr4MacIdConfStateSel="111"/>
@@ -4710,8 +4954,8 @@ EOF_MBSSDATA
 <IPPlugIn.SE id="127" intVal="0" key="1651534958"/>
 <IPPlugIn.SE id="3" intVal="0" key="1702391908"/>
 <IPPlugIn.SE id="3" index="1" intVal="0" key="1702391908"/>
-<IPPlugIn.SE id="102" index="2" intVal="194" key="1920231791"/>
+<IPPlugIn.SE id="102" index="2" intVal="164" key="1920231791"/>
-<IPPlugIn.SE id="102" index="2" intVal="75" key="1936292453"/>
+<IPPlugIn.SE id="102" index="2" intVal="67" key="1936292453"/>
 <IPPlugIn.SE id="102" index="2" intVal="1" key="1702391908"/>
 <IPPlugIn.SE id="3" index="2" intVal="0" key="1702391908"/>
 <IPPlugIn.SE id="3" index="3" intVal="0" key="1702391908"/>
@@ -4765,8 +5009,8 @@ EOF_MBSSDATA
 <IPPlugIn.SE id="1005" intVal="0" key="1886352248"/>
 <IPPlugIn.SE id="1005" intVal="0" key="1886352249"/>
 <IPPlugIn.SE id="125" intVal="-1" key="7562604"/>
-<IPPlugIn.SE id="102" index="1" intVal="493" key="1920231791"/>
+<IPPlugIn.SE id="102" index="1" intVal="397" key="1920231791"/>
-<IPPlugIn.SE id="102" index="1" intVal="193" key="1936292453"/>
+<IPPlugIn.SE id="102" index="1" intVal="163" key="1936292453"/>
 <IPPlugIn.SE id="102" index="1" intVal="1" key="1702391908"/>
 <IPPlugIn.SE id="1004" intVal="-1" key="7499639"/>
 <IPPlugIn.SE id="1004" intVal="0" key="1886352248"/>
@@ -4789,11 +5033,11 @@ EOF_MBSSDATA
 <IPPlugIn.SE id="1004" index="1" intVal="1397708114" key="1952540511"/>
 <IPPlugIn.SE id="1004" intVal="1" key="1986622303"/>
 <IPPlugIn.SE id="1004" intVal="1145393987" key="1952540511"/>
-<IPPlugIn.SE id="102" intVal="310" key="1920231791"/>
+<IPPlugIn.SE id="102" intVal="437" key="1920231791"/>
-<IPPlugIn.SE id="102" intVal="187" key="1936292453"/>
+<IPPlugIn.SE id="102" intVal="199" key="1936292453"/>
 <IPPlugIn.SE id="102" intVal="1" key="1702391908"/>
 <IPPlugIn.SE id="102" intVal="0" key="1919247220"/>
-<IPPlugIn.SE id="102" index="1" intVal="492" key="1919247220"/>
+<IPPlugIn.SE id="102" index="1" intVal="466" key="1919247220"/>
 <IPPlugIn.SE id="102" index="2" intVal="0" key="1919247220"/>
 <IPPlugIn.SE id="102" index="3" intVal="1188" key="1919247220"/>
 <IPPlugIn.SE id="1005" index="18" intVal="1" key="1702391908"/>
@@ -4866,7 +5110,7 @@ EOF_ASSEMBLYDATA
 <VFileName V4 QL> 1 "IPServer.cbf" 
 VIPBStackSetting 8 Begin_Of_Object
 3
-2
+0
 1
 VIPBAdapterSetting 9 Begin_Of_Object
 4
@@ -4969,7 +5213,7 @@ NULL
 End_Of_Object VDOLocalInfoStruct 3
 0.000000
 0 0
-1 1 0 59420 1 233 1 2882400001 98 331 309 760 2882400002  0 0 0 0 0 0 1 2882400001 972 972 311 311 2882400002  0 0 0 342574200 564561232 342632844   3 
+1 1 0 59420 1 233 1 2882400001 419 652 305 689 2882400002  0 0 0 0 0 0 1 2882400001 1278 1278 307 307 2882400002  0 0 0 0 0 0   3 
 SS_BEGIN_COMMON_INFO
 1
 0
@@ -4981,7 +5225,7 @@ Ethernet
 11
 1
 1
-564438760 1 0 0 0 1 1 0 0 0 2000 1 
+339354440 1 0 0 0 1 1 0 0 0 2000 1 
 SS_BEGIN_COMMON_INFO
 1
 2
@@ -5017,7 +5261,7 @@ MDI_DOCK_INFO_END
 1
 6
 0 1 -1 -1 -8 -30 162 249 890 645
-6 1 1010 180 0 0 300 180 300 180 0 61440 1 12180 1904 0 0 0 0 260 0 0 0 1 5 32767 1 59422 1 5 1011 185 4 6 433 1 10 0 0 1 201 0 59419 1 
+6 1 1010 180 0 0 300 180 300 180 0 61440 1 12180 1904 0 0 0 0 260 0 0 0 1 5 32767 1 59422 1 5 1011 185 4 6 433 1 10 0 0 1 227 0 59419 1 
 END_OF_DOCK_INFO
 1
 2
@@ -5090,7 +5334,7 @@ End_Of_Serialized_Data 2
 End_Of_Object VWriteBox 2
 VWinStore 2 Begin_Of_Object
 1
-22 2 3 -32088 -32000 -1 -1 -10088 -10000 -9070 -9233
+22 2 3 -1 -1 -1 -1 -10088 -10000 -9070 -9233
 End_Of_Child_List
 End_Of_Object VWinStore 2
 VWinStore 2 Begin_Of_Object
@@ -5365,20 +5609,24 @@ HistoryEnd
 FiltersBegin
 Begin
 3 0 0
--1
+2
+Netzwerke
+( 0)
+Busstatistik Signale
+ ( 1 ( 0 ) 0 ) 
 SymbSelHeaderMgrBegin
 1 6
 0 1 200 0 0
 1 1 100 0 0
 2 0 100 0 0
 3 0 75 1 1
-5 0 200 0 0
+5 0 200 1 1
 6 1 200 0 0
 SymbSelHeaderMgrEnd
 End
 Begin
 3 0 0
--1
+0
 SymbSelHeaderMgrBegin
 1 4
 0 1 200 0 0
@@ -5388,7 +5636,7 @@ SymbSelHeaderMgrBegin
 SymbSelHeaderMgrEnd
 End
 Begin
-3 0 0
+3 0 -1
 -1
 SymbSelHeaderMgrBegin
 1 3
@@ -5399,25 +5647,11 @@ SymbSelHeaderMgrEnd
 End
 
 FiltersEnd
-0 0
+1 1
-
-
-
-
-
-
-
-
-
-
-
-
-
-
 END_OF_WORKSPACE_MEMBER_DATA
 END_OF_WORKSPACE_MEMBER
 1
-0
+1
 0
 
 END_OF_WORKSPACE_DATA

Modbus/socket.can

@@ -0,0 +1,122 @@
+/*@!Encoding:1252*/
+
+includes
+{
+	#include "ModbusCommon.cin"
+}
+
+variables
+{
+	msTimer muster;
+	byte gX[2] = {1, 0};
+}
+
+// Get information of local network interface such like ip address
+
+on preStart
+{
+	writeClear(0);
+	setStartdelay(1000);
+}
+
+on start
+{
+	long fehler;
+
+	ModbusInit("192.168.1.3", 502);
+}
+
+on key 'a'
+{
+	byte x[16] = {1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0};
+	ModbusWriteBitsB(0, 16, x);
+}
+
+on key 's'
+{
+	byte x[16] = {0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1};
+	ModbusWriteBitsB(0, 16, x);
+}
+
+on key 'Y'
+{
+	ModbusWriteBit(0, 0);
+}
+on key 'y'
+{
+	ModbusWriteBit(0, 1);
+}
+
+on key 'X'
+{
+	ModbusWriteBit(1, 0);
+}
+on key 'x'
+{
+	ModbusWriteBit(1, 1);
+}
+
+on key 'C'
+{
+	ModbusWriteBit(2, 0);
+}
+on key 'c'
+{
+	ModbusWriteBit(2, 1);
+}
+
+on key 'V'
+{
+	ModbusWriteBit(3, 0);
+}
+on key 'v'
+{
+	ModbusWriteBit(3, 1);
+}
+
+on key '+'
+{
+	byte x[2] = {0xFF, 0xFF};
+	ModbusWriteBits(0, 16, x);
+}
+on key '-'
+{
+	byte x[2] = {0x00, 0x00};
+	ModbusWriteBits(0, 16, x);
+}
+
+on key 't'
+{
+	setTimerCyclic(muster, 1);
+}
+on key 'T'
+{
+	cancelTimer(muster);
+}
+
+on timer muster
+{
+	if (gX[0] != 0)
+	{
+		if (gX[0] == 0x80)
+		{
+			gX[0] = 0x00;
+			gX[1] = 0x01;
+		}
+		else
+			gX[0] <<= 1;
+	}
+	else
+	{
+		if (gX[1] == 0x80)
+		{
+			gX[0] = 0x01;
+			gX[1] = 0x00;
+		}
+		else
+			gX[1] <<= 1;
+	}
+	ModbusWriteBits(0, 16, gX);
+}
+
+/**/