Deviazione temperatura rispetto al giorno precedente

[Anonimo]

Dovrei realizzare un programma che mi controlli se vi è una deviazione di temperatura in un ambiente rispetto al valore rilevato il giorno precedente alla stessa ora.

Esiste un programma di esempio che realizza questa funzione ?

[Sergio Bertana]

Ho realizzato un blocco funzione che realizza quello di cui hai bisogno. In pratica occorre passare alla FB in ingresso 3 parametri:

Value (REAL): Valore di temperatura acquisito in tempo reale.
Threshold (REAL): Valore di deviazione assoluto oltre al quale si genera l’evento.
ECount (USINT): Numero di errori successivi oltre al quale si genera l’evento.

In uscita la FB ha un parametro:

EventOut (BOOL): Attivo se variazione superiore alla soglia per il numero di errori definito.

Ecco il sorgente del blocco funzione.

FUNCTION_BLOCK Variance

    VAR_INPUT
    Value : REAL; { DE:”Value to be controlled” }
    Threshold : REAL; { DE:”Valore soglia” }
    ECount : USINT; { DE:”Event count” }
    END_VAR

    VAR_OUTPUT
    EventOut : BOOL; { DE:”Event out” }
    END_VAR

    VAR_EXTERNAL
    SysDateTime : UDINT; { DE:”System Date/Time” }
    END_VAR

    VAR
    Storage : ARRAY[ 0..23 ] OF REAL; { DE:”Salvataggio valori” }
    TimeToDate : SysETimeToDate; { DE:”Time to date conversion” }
    SaveHour : USINT; { DE:”Salvataggio ora” }
    ECtr : USINT; { DE:”Event counter” }
    END_VAR

    { CODE:ST }
    TimeToDate(EpochTime:=SysDateTime); (* Calcolo data e ora *)
    IF (TimeToDate.Hour > 23) THEN RETURN; END_IF;
    IF (TimeToDate.Hour = SaveHour) THEN RETURN; END_IF;
   
    (* Arrivo se variazione ora, eseguo confronti. *)
   
    SaveHour:=TimeToDate.Hour; (* Salvataggio ora *)
       
    (* Controllo se rispetto al valore di 24 ore precedenti c’è variazione. *)
   
    IF (ABS(Storage[TimeToDate.Hour]-Value) <= Threshold) THEN
        EventOut:=FALSE; (* Event out *)
        ECtr:=0; (* Event counter *)
    ELSE

        (* Eseguo controllo se valore maggiore per nr confronti. *)

        IF NOT(EventOut) THEN        
            ECtr:=ECtr+1; (* Event counter *)
            IF (ECtr > ECount) THEN EventOut:=TRUE; END_IF;
        END_IF;       
    END_IF;

    (* Eseguo salvataggio valore attuale in storage. *)
       
    Storage[TimeToDate.Hour]:=Value; (* Salvataggio valori *)

Attenzione! Siccome il blocco funzione salva al suo interno in un array i dati storici delle 24 ore precedenti, và allocato in memoria RETAIN. Allego un programma di esempio.

[Autore]

Post