FR-S01 — raccordement IO-Link

// FR-S01 en IO-Link — 12 octets de données process
// 0-3 : valeur actuelle (INT 32)      4-7  : niveau cumulé (INT 32)
// 8   : diagnostics                   9    : erreurs
// 10  : stabilité + couleur           11   : état des sorties

FUNCTION_BLOCK "FB_FR_S01"
VAR_INPUT
    valeurBrute : DINT;   // octets 0-3
    valeur2Brute: DINT;   // octets 4-7 — Niveau cumulé
    diag        : BYTE;   // octet 8
    erreurs     : BYTE;   // octet 9
    etat        : BYTE;   // octet 10
    sorties     : BYTE;   // octet 11
    decimales   : USINT := 0;  // ⚠ doit refléter le réglage FAIT SUR LE CAPTEUR
END_VAR
VAR_OUTPUT
    niveau      : REAL;   // dans l'unité réglée sur l'appareil
    mesureOK    : BOOL;
    niveauHaut  : BOOL;   // HIGH
    niveauBas   : BOOL;   // LOW
    stabilite   : USINT;  // 0 = perdu … 4 = signal franc
    maintenance : BOOL;   // stabilité dégradée
    interference: BOOL;   // autre source 60 GHz
    defaut      : BOOL;   // erreur système / EEPROM / tête
END_VAR

BEGIN
    // ---- Octet 8 : diagnostics ----
    #niveauBas    := #diag.%X7;   // bit 31 — LOW
    #niveauHaut   := #diag.%X6;   // bit 30 — HIGH
    #maintenance  := #diag.%X3;   // bit 27 — stabilité dégradée
    #interference := #diag.%X0;   // bit 24 — interférence 60 GHz

    // ---- Octet 9 : erreurs bloquantes ----
    #defaut := #erreurs.%X7 OR #erreurs.%X1 OR #erreurs.%X0;
                  // tête        EEPROM         système

    // ---- Octet 10 : stabilité sur les 4 bits de poids fort ----
    #stabilite := BYTE_TO_USINT(SHR(IN := #etat, N := 4)) AND 16#0F;

    // ---- Mesure exploitable ? ----
    #mesureOK := NOT #diag.%X2 AND NOT #defaut;  // bit 26 = Not Measurable

    // ---- Mise à l'échelle ----
    // ⚠ Aucun gradient dans l'IODD : l'échelle dépend des réglages
    //   « unité de distance » et « position du point décimal » saisis
    //   sur l'afficheur du capteur. 0 décimale → la brute est déjà l'unité.
    IF #mesureOK THEN
        CASE #decimales OF
            0: #niveau := DINT_TO_REAL(#valeurBrute);
            1: #niveau := DINT_TO_REAL(#valeurBrute) / 10.0;
            2: #niveau := DINT_TO_REAL(#valeurBrute) / 100.0;
            3: #niveau := DINT_TO_REAL(#valeurBrute) / 1000.0;
            ELSE
               #niveau := DINT_TO_REAL(#valeurBrute) / 10000.0;
        END_CASE;
    ELSE
        #niveau := 0.0;
    END_IF;
END_FUNCTION_BLOCK