PLCcom für S7

PLCcomDevice Device = new TCP_ISO_Device("192.168.1.100", //IP address
				0, //Rack
				2, //Slot
				ePLCType.S7_300_400_compatibel); //Type of Device

Dim Device As PLCcomDevice = New TCP_ISO_Device("192.168.1.100", _ 'IP address
				0, _ 'Rack
				2, _ 'Slot
				ePLCType.S7_300_400_compatibel	'type of device

PLCcomDevice Device = new TCP_ISO_Device("192.168.1.100", //IP address
				0, //Rack
				2, //Slot
				ePLCType.S7_300_400_compatibel); //type of device

PLCcomDevice Device = new MPI_Device("COM1", 		//local serial interface
				0, 									//local MPI bus address
				2, 									//PLC MPI bus Address
				eBaudrate.b38400, 					//serial baudrate
				eSpeed.Speed187k, 					//MPI speed
				ePLCType.S7_300_400_compatibel); 	//type of device

Dim Device As PLCcomDevice = New MPI_Device("COM1", 'local serial interface
					0, 								'local MPI bus address
					2, 								'PLC bus address
					eBaudrate.b38400, 				'serial speed
					eSpeed.Speed187k, 				'MPI bus speed
					ePLCType.S7_300_400_compatibel) 'type of device

PLCcomDevice Device = new MPI_Device("COM1", 		//local serial interface
				0, 									//local MPI bus address
				2, 									//PLC MPI bus Address
				eBaudrate.b38400, 					//serial baudrate
				eSpeed.Speed187k, 					//MPI speed
				ePLCType.S7_300_400_compatibel); 	//type of device

PLCcomDevice Device = new MPI_Device("COM1", 		//local serial interface
				0, 									//local MPI bus address
				2, 									//PLC MPI bus Address
				eBaudrate.b38400, 					//serial baudrate
				ePLCType.S7_300_400_compatibel); 	//type of device

Dim Device As PLCcomDevice = New MPI_Device("COM1", 'local serial interface
					0, 								'local MPI bus address
					2, 								'PLC bus address
					eBaudrate.b38400, 				'serial speed
					ePLCType.S7_300_400_compatibel) 'type of device

PLCcomDevice Device = new MPI_Device("COM1", 		//local serial interface
				0, 									//local MPI bus address
				2, 									//PLC MPI bus Address
				eBaudrate.b38400, 					//serial baudrate
				ePLCType.S7_300_400_compatibel); 	//type of device

PLCcomDevice Device = new TCP_ISO_Device("192.168.1.100", 0, 2, 
ePLCType.S7_300_400_compatibel);

//read 10 Bytes from DB1
ReadDataRequest myReadDataRequest = new ReadDataRequest(eRegion.DataBlock,  //Region 				1,             //DB only for datablock operations otherwise 0
				0,                  //read start adress
				eDataType.BYTE,     //desired datatype
				10);                //Quantity of reading values

//read
ReadDataResult res = Device.ReadData(myReadDataRequest);

//get the results
if (res.Quality == OperationResult.eQuality.GOOD)
{
   foreach (Object item in res.GetValues())
    {
		Console.WriteLine("read " + item.ToString());
    }
}
else
{
	Console.WriteLine("error " + res.ToString());
}

Dim Device As PLCcomDevice = New TCP_ISO_Device("192.168.1.100", 0, 2, ePLCType.S7_300_400_compatibel

'read 10 Bytes from DB1
Dim myReadDataRequest As ReadDataRequest = new ReadDataRequest(eRegion.DataBlock,   						1,                                                                                  0,                                                                                  eDataType.BYTE,                                                                     10);                
'read
Dim res As ReadDataResult = Device.ReadData(myReadDataRequest)

'get the results
If res.Quality = OperationResult.eQuality.GOOD Then
   For Each item As ReadValue In res.FetchValues()
		Console.WriteLine("read " + item.ToString())
   Next
Else
	Console.WriteLine("error " + res.ToString())
End If

PLCcomDevice Device = new TCP_ISO_Device("192.168.1.100", 0, 2, ePLCType.S7_300_400_compatibel);

//read 10 Bytes from DB1
ReadDataRequest myReadDataRequest = new ReadDataRequest(eRegion.DataBlock,  //Region
				1, //DB only for datablock operations otherwise 0
				0, //read start adress
				eDataType.BYTE,  //desired datatype
				10); //Quantity of reading values

ReadDataResult res = Device.readData(myReadDataRequest);

//evaluate results
if (res.getQuality() == OperationResult.eQuality.GOOD) {
   int Position = 0;
   for (Object item : res.getValues()) {
     System.out.println("read " + item.toString());
   }
}
else
{
	System.out.println("error " + res.toString());
}

PLCcomDevice Device = new TCP_ISO_Device("192.168.1.100", 0, 2, 
ePLCType.S7_300_400_compatibel);

//declare a WriteRequest object and
//set the request parameters
WriteDataRequest myWriteRequest = new WriteDataRequest(eRegion.DataBlock, //Region
				100,               //DB
				0);                //startaddress
				
//add writable Data here
//in  this case => write 4 bytes in DB100
myWriteRequest.addByte(new byte[] { 11, 12, 13, 14 });


//write
WriteDataResult res = Device.WriteData(myWriteRequest);

//evaluate results
Console.WriteLine("Write successfull! Message: " + res.Message);

Dim Device As PLCcomDevice = New TCP_ISO_Device("192.168.1.100", 0, 2, ePLCType.S7_300_400_compatibel

'declare a WriteRequest object and
'set the request parameters
Dim myWriteRequest As New WriteDataRequest(eRegion.DataBlock, _
                                           100, _
                                           0)

'add writable Data here
'in  this case => write 4 bytes in DB100 at addres 0
myWriteRequest.addByte(New Byte() {11, 12, 13, 14})


'write
Dim res As WriteDataResult = Device.WriteData(myWriteRequest)

'evaluate results
Console.WriteLine("Write successfull! Message: " + res.Message)

PLCcomDevice Device = new TCP_ISO_Device("192.168.1.100", 0, 2, ePLCType.S7_300_400_compatibel);

//declare a WriteRequest object and
//set the request parameters
WriteDataRequest myWriteRequest = new WriteDataRequest(eRegion.DataBlock,  //Region
				100, 		   //DB
				0);                 //write start address
            
//add writable Data here
//in  this case => write 4 bytes in DB100
myWriteRequest.addByte(new byte[]{11, 12, 13, 14});

//write
System.out.println("begin write...");
WriteDataResult res = Device.writeData(myWriteRequest);

//evaluate results
 System.out.println("Write successfull! Message: " + res.getMessage());