Code Beispiele PLCcom für Modbus

Imports PLCcomModbus.Core
Imports PLCcomModbus.DataAdapter
Imports PLCcomModbus.Master
 
 
Class MasterExample
 
#Region "CreateAndInitDevice"
 
    'Declare the Modbus master Device
    Private Device As ModbusMaster = Nothing
 
    Public Sub New()
        CreateAndInitDevice()
    End Sub
 
 
    Private Sub CreateAndInitDevice()
        Device = New ModbusMaster()
        Device.SetUser("my user name from licence document");
        Device.SetSerial("my serial from licence document");
 
        Try
            'create new interface instance (if not applicable please uncomment)
            ' "TCP" interface:
            Device.SetConnector_TCP("192.168.1.21", 502)
 
            'or (if not applicable please uncomment)
            ' "UDP" interface:
            'Device.SetConnector_UDP("192.168.1.100",502)
 
            'or (if not applicable please uncomment)
            ' "RTU" interface:
            'Device.SetConnector_RTU("COM1", _
            '                        eBaudrate.b9600, _
            '                        eDataBits.DataBits8, _
            '                        System.IO.Ports.Parity.None, _
            '                        System.IO.Ports.StopBits.One, _
            '                        System.IO.Ports.Handshake.None)
 
            'or (if not applicable please uncomment)
            ' "ASCII interface":
            'Device.SetConnector_ASCII("COM1", _
            '                        eBaudrate.b9600, _
            '                        eDataBits.DataBits8, _
            '                        System.IO.Ports.Parity.None, _
            '                        System.IO.Ports.StopBits.One, _
            '                        System.IO.Ports.Handshake.None)
 
 
            'set max idleTime (max idle timespan in milliseconds between open and close interface or connection), Standard = 10000ms
            Device.Connector.SetMaxIdleTime(5000)
 
            'Set RegisterMode >> 16bit or 32bit register, settings must match with settings of slave
            Device.RegisterMode = eRegisterMode._16Bit
 
            'register OnConnectionStateChange event
            AddHandler Device.Connector.OnConnectionStateChange, AddressOf Device_OnConnectionStateChange
 
            'reading Collection from Modbus
            readCollection()
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
            Return
        End Try
    End Sub
 
 
    Private Sub Device_OnConnectionStateChange(sender As Object, e As eConnectionState)
        'do anything
        Console.WriteLine("Change PortState ==> " & e.ToString())
    End Sub
#End Region
 
 
#Region "Read Collection"
 
    Private Sub readCollection()
        Console.WriteLine("start read request collection from modbus")
 
        'declare a ReadRequest object
        Dim RequestCollection As New ReadRequestCollection()
 
        '#Region "Edit Collection"
        'set request parameter
 
        'declare a ReadRequest object
        'and set the request parameters >> reading 6 holding register at adress 10
        'Slave ID
        'modbus function
        'Read start adress
        'Target Datatype
        'quantity of objects to be read
        'Address of first Bit by reading register
        Dim RequestItem As ReadRequest = RequestBuilder.ReadRequestBuilder.Create(1, _
                                                                                  eReadFunction.F03_Read_Holding_Registers, _
                                                                                  10, _
                                                                                  eDataType.[BOOLEAN], _
                                                                                  6, _
                                                                                  0)
 
 
        'add Request to Collection
        RequestCollection.AddReadRequest("Item1", RequestItem)
        Console.WriteLine("add ReadRequest " & RequestItem.ToString())
 
        'reading 8 holding register at adress 0
        'Slave ID
        'modbus function
        'Read start adress
        'Target Datatype
        'quantity of objects to be read
        RequestItem = RequestBuilder.ReadRequestBuilder.Create(1, _
                                                               eReadFunction.F03_Read_Holding_Registers, _
                                                               0, _
                                                               eDataType.[BYTE], _
                                                               8)
 
 
        'add Request to Collection
        RequestCollection.AddReadRequest("Item2", RequestItem)
        Console.WriteLine("add ReadRequest " & RequestItem.ToString())
 
        'reading 2 holding register at adress 12
        'Slave ID
        'modbus function
        'Read start adress
        'Target Datatype
        'quantity of objects to be read
        RequestItem = RequestBuilder.ReadRequestBuilder.Create(1, _
                                                               eReadFunction.F03_Read_Holding_Registers, _
                                                               12, _
                                                               eDataType.[USHORT], _
                                                               2)
 
 
        'add Request to Collection
        RequestCollection.AddReadRequest("Item3", RequestItem)
        Console.WriteLine("add ReadRequest " & RequestItem.ToString())
 
        'reading 2 holding register at adress 20
        'Slave ID
        'modbus function
        'Read start adress
        'Target Datatype
        'quantity of objects to be read
        'Address of first Bit by reading register
        RequestItem = RequestBuilder.ReadRequestBuilder.Create(1, _
                                                               eReadFunction.F01_Read_Coils, _
                                                               2, _
                                                               eDataType.[BOOLEAN], _
                                                               20, _
                                                               0)
 
 
        'add Request to Collection
        RequestCollection.AddReadRequest("Item4", RequestItem)
        Console.WriteLine("add ReadRequest " & RequestItem.ToString())
 
        'reading 8 coils at adress 8
        'Slave ID
        'modbus function
        'Read start adress
        'Target Datatype
        'quantity of objects to be read
        'Address of first Bit by reading register
        RequestItem = RequestBuilder.ReadRequestBuilder.Create(1, _
                                                               eReadFunction.F01_Read_Coils, _
                                                               8, _
                                                               eDataType.[BOOLEAN], _
                                                               8, _
                                                               0)
 
 
        'add Request to Collection
        RequestCollection.AddReadRequest("Item5", RequestItem)
        Console.WriteLine("add ReadRequest " & RequestItem.ToString())
 
        '#End Region
        'enable optimize mode
        RequestCollection.Optmize = True
 
        Console.WriteLine(RequestCollection.ToString())
 
        'read from device
        Dim ResultCollection As ReadResultCollection = Device.Read(RequestCollection)
 
        'evaluate results
 
        Console.WriteLine((DateTime.Now.ToString() & ": ") + ResultCollection.Message)
 
        'find itemresult with foreach-loop
        Dim sb As New StringBuilder()
        For Each res As ReadResult In ResultCollection.GetReadItemResult()
            sb.Append("Start Item:")
            sb.Append(res.RequestKey)
            sb.Append(" ")
            sb.Append("Quality:")
            sb.Append(" ")
            sb.Append(res.Quality.ToString())
            sb.Append(Environment.NewLine)
 
            If res.Quality = OperationResult.eQuality.GOOD Then
                Dim Values As Array = res.FetchValues()
                For i As Integer = 0 To Values.Length - 1
                    sb.Append(Values.GetValue(i).ToString())
                    sb.Append(Environment.NewLine)
                Next
                sb.Append("End Item:")
                sb.Append(res.RequestKey)
            End If
        Next
        Console.WriteLine(sb.ToString())
 
        Console.WriteLine("end read request collection from modbus")
        Console.WriteLine(Environment.NewLine)
    End Sub
 
#End Region
 
End Class

import java.text.DateFormat;
import java.util.Calendar;
 
import PLCComMB.*;
import PLCComMB.Enums.*;
 
public class MasterExample implements iConnectionStateChangeEvent {
 
    // 
 
    //Declare the Modbus master Device
    private ModbusMaster Device = null;
    private PortStateEventHandler portStateEventHandler = new PortStateEventHandler(
            this);
 
    public MasterExample() {
        CreateAndInitDevice();
        AccessToModbus();
    }
 
    private void CreateAndInitDevice() {
        Device = new ModbusMaster();
         
        Device.setUser("my user name from licence document");
        Device.setSerial("my serial from licence document");
 
        try {
            //create new interface instance (if not applicable please uncomment)
            // "TCP" interface:
            Device.setConnector_TCP("192.168.1.100", 502);
 
            //or (if not applicable please uncomment)
            // "UDP" interface:
            //Device.SetConnector_UDP("192.168.1.100",502);
 
            //or (if not applicable please uncomment)
            // "RTU" interface:
            //Device.SetConnector_RTU("COM1",
            //                        eBaudrate.b9600,
            //                        eDataBits.DataBits8,
            //                        System.IO.Ports.Parity.None,
            //                        System.IO.Ports.StopBits.One,
            //                        System.IO.Ports.Handshake.None);
 
            //or (if not applicable please uncomment)
            // "ASCII interface":
            //Device.SetConnector_ASCII("COM1",
            //                        eBaudrate.b9600,
            //                        eDataBits.DataBits8,
            //                        System.IO.Ports.Parity.None,
            //                        System.IO.Ports.StopBits.One,
            //                        System.IO.Ports.Handshake.None);
 
            //set max idleTime (max idle timespan in milliseconds between open and close interface or connection), Standard = 10000ms
            Device.getConnector().setMaxIdleTime(5000);
 
            //Set RegisterMode >> 16bit or 32bit register, settings must match with settings of slave
            Device.setRegisterMode(eRegisterMode._16Bit);
 
            //register OnConnectionStateChange event
            Device.getConnector().addConnectionStateEventHandler(
                    portStateEventHandler);
 
        } catch (Exception ex) {
            System.out.println(ex.getMessage());
            return;
        }
    }
 
    @Override
    public void On_ConnectionStateChange(eConnectionState e) {
        //do anything
        System.out.println("Change PortState ==> " + e.toString());
    }
     
    private void AccessToModbus() {
        try {
            //reading Collection from Modbus (FC1-4)
            readCollection();
             
        } catch (Exception ex) {
            System.out.println(ex.getMessage());
            return;
        }
    }
     
    private void readCollection() {
        System.out.println("start read request collection from modbus");
 
        //declare a ReadRequest object
        ReadRequestCollection RequestCollection = new ReadRequestCollection();
 
        // 
        //set request parameter
 
        //declare a ReadRequest object
        //and set the request parameters >> reading 6 holding register at adress 10
        ReadRequest RequestItem = RequestBuilder.ReadRequestBuilder.create(1, //Slave ID
                eReadFunction.F03_Read_Holding_Registers,//modbus function
                10, //Read start adress
                eDataType.BOOLEAN, //Target Datatype
                6, //quantity of objects to be read
                (byte) 0); //Address of first Bit by reading register
 
        //add Request to Collection
        RequestCollection.addReadRequest("Item1", RequestItem);
        System.out.println("add ReadRequest " + RequestItem.toString());
 
        //reading 8 holding register at adress 0
        RequestItem = RequestBuilder.ReadRequestBuilder.create(1, //Slave ID
                eReadFunction.F03_Read_Holding_Registers,//modbus function
                0, //Read start adress
                eDataType.BYTE, //Target Datatype
                8); //quantity of objects to be read
 
        //add Request to Collection
        RequestCollection.addReadRequest("Item2", RequestItem);
        System.out.println("add ReadRequest " + RequestItem.toString());
 
        //reading 2 holding register at adress 12
        RequestItem = RequestBuilder.ReadRequestBuilder.create(1, //Slave ID
                eReadFunction.F03_Read_Holding_Registers,//modbus function
                12, //Read start adress
                eDataType.USHORT, //Target Datatype
                2); //quantity of objects to be read
 
        //add Request to Collection
        RequestCollection.addReadRequest("Item3", RequestItem);
        System.out.println("add ReadRequest " + RequestItem.toString());
 
        //reading 2 holding register at adress 20
        RequestItem = RequestBuilder.ReadRequestBuilder.create(1, //Slave ID
                eReadFunction.F01_Read_Coils, //modbus function
                2, //Read start adress
                eDataType.BOOLEAN, //Target Datatype
                20, //quantity of objects to be read
                (byte) 0); //Address of first Bit by reading register
 
        //add Request to Collection
        RequestCollection.addReadRequest("Item4", RequestItem);
        System.out.println("add ReadRequest " + RequestItem.toString());
 
        //reading 8 coils at adress 8
        RequestItem = RequestBuilder.ReadRequestBuilder.create(1, //Slave ID
                eReadFunction.F01_Read_Coils, //modbus function
                8, //Read start adress
                eDataType.BOOLEAN, //Target Datatype
                8, //quantity of objects to be read
                (byte) 0); //Address of first Bit by reading register
 
        //add Request to Collection
        RequestCollection.addReadRequest("Item5", RequestItem);
        System.out.println("add ReadRequest " + RequestItem.toString());
 
        // 
        //enable optimize mode
        RequestCollection.setOptmize(true);
 
        System.out.println(RequestCollection.toString());
 
        //read from device
        ReadResultCollection ResultCollection = Device.read(RequestCollection);
 
        //evaluate results
 
        System.out.println(DateFormat.getDateTimeInstance().format(
                Calendar.getInstance().getTime())
                + ": " + ResultCollection.getMessage());
 
        //find itemresult with foreach-loop
        StringBuilder sb = new StringBuilder();
        for (ReadResult res : ResultCollection.getReadItemResults()) {
            sb.append("Start Item:");
            sb.append(res.getRequestKey());
            sb.append(" ");
            sb.append("Quality:");
            sb.append(" ");
            sb.append(res.getQuality().toString());
            sb.append(System.getProperty("line.separator"));
 
            if (res.getQuality().equals(OperationResult.eQuality.GOOD)) {
                ReadValue[] Values = res.fetchValues();
                for (int i = 0; i < Values.length; i++) {
                    sb.append(Values[i].toString());
                    sb.append(System.getProperty("line.separator"));
                }
                sb.append("End Item:");
                sb.append(res.getRequestKey());
            }
        }
        System.out.println(sb.toString());
 
        System.out.println("end read request collection from modbus");
        System.out.println(System.getProperty("line.separator"));
    }
}