FUNCTION_BLOCK FB333
VAR_TEMP
    RET : INT;
    DAT : DT;
    wskOnDAT AT DAT : STRUCT
        Year : BYTE;
        Month : BYTE;
        Day : BYTE;
        Hour : BYTE;
        Minute : BYTE;
        Second : BYTE;
        MilliSecond : BYTE;
        Other : BYTE;
    END_STRUCT;

END_VAR
VAR
    minutaMember:BYTE:=0;
    minuta:BYTE;
    licznikEl:INT:=0;
    wydajnosc:INT:=0;
    pls:BOOL; pls_mem:BOOL:=FALSE;
END_VAR;
    ret:=READ_CLK(CDT:=DAT); //pobranie czasu PLC
    minuta:=wskOnDat.Minute; //dekodowanie aktualnej minuty

    //zmiana minuty w PLC
    IF (minuta<>minutaMember)  THEN
        wydajnosc:=licznikEl; //zapisanie licznika jako wydajność
        licznikEl:=0;    //zerowanie licznika
    END_IF;
        minutaMember:=minuta;
    pls:=i0.0 AND NOT pls_mem; //zbocze w scl tak jak w sterowniku S5
    pls_mem:=i0.0;             //zbocze w scl tak jak w sterowniku S5
    IF pls THEN licznikEl:=licznikEl+1; END_IF; //zwiększenie wartości gdy element się pojawi

END_FUNCTION_BLOCK