OWRdIdentifier, One-Wire read ROM identifier

• In questo articolo informazioni sul bus 1-Wire.
• In questo topic sono riportate informazioni sul bus 1-Wire.

Come visto l’ultimo byte del codice ritornato indica la famiglia del dispositivo, di seguito un elenco.

PROGRAM FBD_OWRdIdentifier
VAR
    TAGPresent : BOOL; (* Identifier TAG on the reader *)
    Serial : SysSerialPort; (* Serial port management *)
    OWCORE : OWireCore_v2; (* FB One-Wire core *)
    OWIdf : OWRdIdentifier_v1; (* FB read identifier *)
END_VAR

PROGRAM ST_OWRdIdentifier
VAR
    TAGPresent : BOOL; (* Identifier TAG on the reader *)
    Sp : SysSerialPort; (* Serial port management *)
    OWCore : OWireCore_v2; (* FB One-Wire core *)
    OWIdf : OWRdIdentifier_v1; (* FB read identifier *)
END_VAR

// *****************************************************************************
// PROGRAM "ST_OWRdIdentifier"
// *****************************************************************************
// If a TAG is connected to the reader its code is read.
// -----------------------------------------------------------------------------

    // -------------------------------------------------------------------------
    // INITIALIZATION
    // -------------------------------------------------------------------------

    IF (SysFirstLoop) THEN

        // Set serial port parameters.

        Sp.COM:=ADR('PCOM255.0'); //COM port definition
//         Sp.COM:=ADR('COM0'); //COM port definition
        Sp.Baudrate:=9600; //Baudrate
        Sp.Parity:='N'; //Parity
        Sp.DataBits:=8; //Data bits
        Sp.StopBits:=1; //Stop bits
        Sp.DTRManagement:=DTR_OFF; //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

        // Set One-Wire core parameters.

        OWCore.SpyOn:=TRUE; //Spy active
//        OWCore.IType:=OW_ITYPE#OW_ITDS2480B; //Interface type
        OWCore.IType:=OW_ITYPE#OW_ITDS2484; //Interface type

        // Set One-Wire read identifier parameters.

        OWIdf.SpyOn:=TRUE; //Spy active
        OWIdf.OWCore:=ADR(OWCore); //One-Wire core management
    END_IF;

    // -------------------------------------------------------------------------
    // READ IDENTIFIER CODE
    // -------------------------------------------------------------------------
    // One-Wire core management

    Sp(Open:=TRUE); //Serial port management
    eTO_JUNK(SysSetSerialDTR(OWCore.CPower, Sp.File)); //Manage DTR signal

    OWCore.Enable:=NOT(OWIdf.Done); //Enable
    OWCore.Power:=Sp.Opened; //Converter power
    OWCore(File:=Sp.File); //FB One-Wire core

    // Acquire the identifier code.

    OWIdf.Enable:=OWCore.Done; //Enable
    OWIdf(); //Read identifier

    // If code has been read a identifier TAG is on the reader.

    IF (OWIdf.Ok) THEN TAGPresent:=TRUE; END_IF;
    IF (OWCore.OWBSts <> OW_BSTATUS#OW_BOK) THEN TAGPresent:=FALSE; END_IF;

// [End of file]

PROGRAM ST_TAGReaderMultiplexer
VAR
    TAGIDx : USINT; (* TAG IDx *)
    CaseNr : USINT; (* Program case *)
    TimeBf : UDINT; (* Time buffer (mS) *)
    TAGPresent : ARRAY[0..1] OF BOOL; (* TAG on the reader *)
    Sp : SysSerialPort; (* Serial port management *)
    OWCore : OWireCore_v2; (* FB One-Wire core *)
    OWIdf : OWRdIdentifier_v1; (* FB read identifier *)
    DOut : SysSetPhrDO; (* Digital output management *)
    TAGCode : ARRAY[0..1] OF LWORD; (* TAG code *)
END_VAR

// *****************************************************************************
// PROGRAM "ST_TAGReaderMultiplexer"
// *****************************************************************************
// Multiplex two RFID TAG readers connected to the One-Wire bus.  You can choose
// the converter to use.
//
// Sp.COM:=ADR('COM0') and  OWCore.IType:=OW_ITYPE#OW_ITDS2480B
// To use the DS2480B One-Wire adapter connected to serial COM0.
//
// Sp.COM:=ADR('PCOM255.0') and  OWCore.IType:=OW_ITYPE#OW_ITDS2484
// To use the DS2484 One-Wire interface built in on the CPU module.
// -----------------------------------------------------------------------------

    // -------------------------------------------------------------------------
    // INITIALIZATION
    // -------------------------------------------------------------------------

    IF (SysFirstLoop) THEN

        // Set serial port parameters.

//        Sp.COM:=ADR('PCOM255.0'); //COM port definition
        Sp.COM:=ADR('COM0'); //COM port definition
        Sp.Baudrate:=9600; //Baudrate
        Sp.Parity:='N'; //Parity
        Sp.DataBits:=8; //Data bits
        Sp.StopBits:=1; //Stop bits
        Sp.DTRManagement:=DTR_OFF; //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

        // Set One-Wire core parameters.

        OWCore.SpyOn:=TRUE; //Spy active
          OWCore.IType:=OW_ITYPE#OW_ITDS2480B; //Interface type
//        OWCore.IType:=OW_ITYPE#OW_ITDS2484; //Interface type

        // Set One-Wire read identifier parameters.

        OWIdf.SpyOn:=TRUE; //Spy active
        OWIdf.OWCore:=ADR(OWCore); //One-Wire core management
    END_IF;

    // -------------------------------------------------------------------------
    // READ IDENTIFIER CODE
    // -------------------------------------------------------------------------
    // Serial port management.

    Sp(Open:=TRUE); //Serial port management
    eTO_JUNK(SysSetSerialDTR(OWCore.CPower, Sp.File)); //Manage DTR signal

    // One-Wire core management, if One-Wire interface is not set enable the
    // core. The "OWISet" signal become false only on an error.

    OWCore.Power:=Sp.Opened; //Converter power
    OWCore(File:=Sp.File); //FB One-Wire core
    IF NOT(OWCore.OWISet) THEN OWCore.Enable:=TRUE; CaseNr:=0; RETURN; END_IF;

    // One-Wire read identifier management.

    OWIdf(); //Read identifier

    // -------------------------------------------------------------------------
    // DIGITAL OUTPUT MANAGEMENT
    // -------------------------------------------------------------------------
    // Manage digital outputs on CPU module to multiplex the One-Wire bus.

    DOut.Address:=255; //Module address
    DOut.Mode:=DO_MODE#DO_8_LL; //Management mode
    DOut.Mask:=16#00000003; //Output mask (Mask Output 0 and 1)
    DOut(); //Digital output management

    // -------------------------------------------------------------------------
    // READ IDENTIFIER CODES
    // -------------------------------------------------------------------------
    // Program cases.

    CASE (CaseNr) OF

        // ---------------------------------------------------------------------
        // Change the TAG ID selector and manage output 0 and 1 to multiplex the
        // One-Wire bus.

        0:
        TAGIDx:=TAGIDx+1; //TAG IDx
        IF (TAGIDx > 1) THEN TAGIDx:=0; END_IF;
        IF (TAGIDx = 0) THEN DOut.Value:=16#00000001; END_IF;
        IF (TAGIDx = 1) THEN DOut.Value:=16#00000002; END_IF;

        // Disable the One-Wire management.

        OWCore.Enable:=FALSE; //Enable
        OWIdf.Enable:=FALSE; //Enable
        TimeBf:=SysTimeGetMs(); //Time buffer (mS)
        CaseNr:=CaseNr+1; //Program case

        // ---------------------------------------------------------------------
        // After a digital output settling time enable the core.

        1:
        IF ((SysTimeGetMs()-TimeBf) < TO_UDINT(T#20ms)) THEN RETURN; END_IF;        
        OWCore.Enable:=TRUE; //Enable
        TimeBf:=SysTimeGetMs(); //Time buffer (mS)
        CaseNr:=CaseNr+1; //Program case

        // ---------------------------------------------------------------------
        // Wait the core "Done" output and enable the read identifier..

        2:
        IF NOT(OWCore.Done) THEN RETURN; END_IF;
        OWIdf.Enable:=TRUE; //Enable

        // Waits the "Done". If it isn't "Ok" the TAG isn't present.

        IF NOT(OWIdf.Done) THEN RETURN; END_IF;
        IF NOT(OWIdf.Ok) THEN TAGPresent[TAGIDx]:=FALSE; TAGCode[TAGIDx]:=0; CaseNr:=0; RETURN; END_IF;

        // TAG present and readed.

        TAGPresent[TAGIDx]:=TRUE; //TAG on the reader
        TAGCode[TAGIDx]:=OWIdf.IDCode; //TAG code        
        CaseNr:=0; //Program case
    END_CASE;

// [End of file]