ModbusSlave, modbus slave

• In questo topic esempio utilizzo FB con più blocchi di memoria.
• In questo topic considerazioni sull’utilizzo del FB.

• Se l’oggetto aggiornato non è nell’ultima versione del package, vedi capitolo “Aggiornamento librerie” in questo articolo.
• Gli oggetti obsoleti sono inseriti nella libreria eLLabObsoleteLib fare riferimento al relativo manuale ed al manuale programmazione in formato pdf.

ModbusSlave_v2

Implementa una gestione ottimizzata della acquisizione dei frames modbus di comando evitando la dichiarazione del parametro IFTime. Tutti gli altri parametri in ingresso rimangono invariati, aggiunto i parametri CTime e Packets in uscita.

ModbusSlave_v3

Aggiunta gestione ingresso Absolute, se attivo considera indirizzamento assoluto e non viene sommato 1 all’indirizzo Modbus ricevuto. Visto che è stato aggiunto il solo parametro di ingresso Absolute mantenendo identico il funzionamento può sostituire la ModbusSlave_v2 nei progetti esistenti.

ModbusSlave_v4

Ingresso Type di definizione tipo di protocollo ora è di tipo MODBUS_PROTOCOL. Il parametro in uscita CTime ora è di tipo TIME.

ModbusSlave_v5

Inserito parametro Timeout in ingresso.

16#01 Read coil status (Massimo 250 coils)
16#02 Read input status (Massimo 125 inputs)
16#03 Read holding registers (Massimo 125 registri)
16#04 Read input registers (Massimo 125 registri)

      +----+-----------+---+---+---+---+           +----+-----------+-----+--...--+
Query |Node|01/02/03/04|Address|Points |  Response |Node|01/02/03/04|Bytes| Data  |
      +----+-----------+---+---+---+---+           +----+-----------+-----+--...--+

16#05 Force single coil
16#06 Preset single register

      +----+-----+---+---+--+--+           +----+-----+---+---+--+--+
Query |Node|05/06|Address|Data |  Response |Node|05/06|Address|Data |
      +----+-----+---+---+--+--+           +----+-----+---+---+--+--+

16#0F Force Multiple Coils (Massimo 250 coils)
16#10 Preset multiple registers (Massimo 125 registri)

      +----+-----+---+---+---+---+-----+--...--+           +----+-----+---+---+---+---+
Query |Node|0F/10|Address|Points |Bytes| Data  |  Response |Node|0F/10|Address|Points |
      +----+-----+---+---+---+---+-----+--...--+           +----+-----+---+---+---+---+

16#41 Read memory bytes (Funzione custom, massimo 250 bytes)

      +----+--+---+---+---+---+           +----+--+-------+--...--+
Query |Node|41|Address|Points |  Response |Node|41|Points | Data  |
      +----+--+---+---+---+---+           +----+--+-------+--...--+

16#42 Write memory bytes (Funzione custom, massimo 250 bytes)

      +----+--+---+---+---+---+--...--+           +----+--+-------+
Query |Node|42|Address|Points | Data  |  Response |Node|42|Points |
      +----+--+---+---+---+---+--...--+           +----+--+-------+

I codici 16#41 e 16#42 sono stati implementati per compatibilità con i vecchi sistemi programmabili con Remoter.

PROGRAM ST_ModbusSlave
VAR
    SerialOrTCP : BOOL; (* FALSE:Serial, TRUE:TCP communication *)
    Fp : eFILEP; (* File pointer *)
    Sp : SysSerialPort; (* Serial port *)
    TCPServer : SysTCPServer; (* TCPServer management *)
    SMdb : ModbusSlave_v5; (* Modbus slave FB *)
END_VAR

// *****************************************************************************
// PROGRAM "ST_ModbusSlave"
// *****************************************************************************
// It's instantiated a Modbus slave FB connected to the defined serial port. It
// operates over the DB100 memory area exactly as the embedded Modbus.
// -----------------------------------------------------------------------------

    // -------------------------------------------------------------------------
    // INITIALIZATION
    // -------------------------------------------------------------------------
    // Program initializations.

    IF (SysFirstLoop) THEN

        // Serial port settings.

        Sp.COM:=ADR('COM0'); //COM port definition
        Sp.Baudrate:=115200; //Baudrate
        Sp.Parity:='E'; //Parity
        Sp.DataBits:=8; //Data bits
        Sp.StopBits:=1; //Stop bits
        Sp.DTRManagement:=DTR_AUTO_WO_TIMES; //DTR management
        Sp.DTRComplement:=FALSE; //DTR complement
        Sp.EchoFlush:=FALSE; //Received echo flush
        Sp.DTROnTime:=0; //DTR On time delay (mS)
        Sp.DTROffTime:=0; //DTR Off time delay (mS)
        Sp.FlushTm:=0; //Flush time (mS)
        Sp.RxSize:=0; //Rx buffer size
        Sp.TxSize:=0; //Tx buffer size

        // TCP server settings.

        TCPServer.FilesArr:=ADR(Fp); //Files array
        TCPServer.LocalAdd:=ADR('0.0.0.0'); //Local address
        TCPServer.LocalPort:=3000; //Local port
        TCPServer.MaxConn:=1; //Accepted connections
        TCPServer.FlushTm:=50; //Flush time (mS)
        TCPServer.LifeTm:=60; //Life time (S)
        TCPServer.RxSize:=256; //Rx buffer size
        TCPServer.TxSize:=256; //Tx buffer size

        // Modbus slave settings.

        SMdb.Absolute:=FALSE; //Absolute addressing
        SMdb.Node:=1; //Device modbus node
        SMdb.Offset:=40000; //Modbus address offset
        SMdb.Buffer:=eToPVoid(ADR(%MX100.0)); //Modbus buffer address
        SMdb.Size:=4096; //Modbus buffer size
        SMdb.Timeout:=T#1s; //Timeout
    END_IF;

    // -------------------------------------------------------------------------
    // MODBUS MANAGEMENT
    // -------------------------------------------------------------------------
    // Eseguo selezione canale comunicazione.

    IF NOT(SerialOrTCP) THEN

        // Serial port management.

        Sp(Open:=TRUE); //Serial port management
        SMdb.File:=Sp.File; //File pointer
        SMdb.Type:=MODBUS_PROTOCOL#MDB_RTU; //Modbus type (RTU)
        // SMdb.Type:=MODBUS_PROTOCOL#MDB_ASCII; //Modbus type (Ascii)
    ELSE

        // TCP server management.

        TCPServer(Enable:=TRUE); //TCPServer management
        SMdb.File:=Fp; //File pointer
        SMdb.Type:=MODBUS_PROTOCOL#MDB_TCP; //Modbus type (TCP)
    END_IF;

    // Manage the modbus slave communication.

    SMdb(Enable:=SysFIsOpen(SMdb.File)); //Modbus slave

// [End of file]