(*////////////!!!!!!!!!!!!!!!!!!! SPRAWDZANIE CZUJNIKOW !!!!!!!!!!!!!!!/////////////////////////////*)
xAwaria:= NOT (xCzf_ok AND   xTermik_ok AND  xPrzeciazenie_ok) OR xPrzekroczonoCzasPotwierdzenia ;

(*////////////////////////SPRAWDZANIE DOSTEPNOSCI POMPY//////////////////////////////////////////////////////*)
xPompaDostepna:=NOT xAwaria AND xEnable;

(*//////////////Uruchamianie Pompy ///////////////////////////*)
xStartPompa :=   xPompaDostepna AND ( ( NOT xTrybManual  AND xZalacz )  OR ( xTrybManual AND xPracaManual) );

(*//////////////Obsluga procedury POTWIERDZENIA ZALACZENIA //////////////////////*)
TIMER1.IN := xStartPompa XOR xPotwierdzenieZalczenia;
TIMER1( PT:=t#5s  );
RSinst1(SET:=TIMER1.Q , RESET1:= NOT  xEnable , Q1=>xPrzekroczonoCzasPotwierdzenia );

(*//////////////////LICZNIK URUCHOMIEN///////////////////////*)
RtrigInst1(CLK:= xStartPompa );
IF RtrigInst1.Q
THEN
    stCzasPracyZalaczenia.dwLiczbaUruchomien :=stCzasPracyZalaczenia.dwLiczbaUruchomien + 1;
END_IF;

(*//////////////////////////////odswiezanie czasu co 15 sekund////////////////////////////*)
Odswiezanie(IN:=NOT Odswiezanie.Q   , PT:=t#15s );

(*///////////////////////////ZLICZANIE GODZIN PRACY POMPY////////////////////////////*)
IF  xStartPompa AND NOT Odswiezanie.Q AND NOT xResetCzasuPracyIUruchomien
THEN
    stCzasPracyZalaczenia.rGodzinyPracy := stCzasPracyZalaczenia.rGodzinyPracy + 0.0041;
END_IF;

(*//////////////////////////////Kasowanie czasu pracy i licznika uruchomien//////////////////////////////*)
IF xResetCzasuPracyIUruchomien
THEN
    stCzasPracyZalaczenia.rGodzinyPracy := 0;
    stCzasPracyZalaczenia.dwLiczbaUruchomien := 0;
END_IF;