PROGRAM prgVstupDoDomu



 //ŮLOHY (Vstup do domu a Ovládání světel) JSOU VLOŽENÉ DO SEBE A PRACUJÍ SOUBĚŽNĚ
  VAR
  HlDvere, Sv_pr, Dum, Sirena, stop :bool;
  Sv_0, Sv_1, Sv_2, Sv_3: bool;
  Tl_Sv_0, Tl_Sv_1, Tl_Sv_2, Tl_Sv_3:bool;
  rem : int;
  Tl_Sv_Ch, Sv_ch : bool;
  Enter: bool;
  END_VAR

   IF HlDvere THEN
    Sv_pr := 1;
   END_IF;

   FOR i := 0 TO 3 DO
    IF Enter and not Alarm and Sv_pr THEN
     IF Zadane = Heslo THEN
     Dum := 1;
     Chyba := 0;
     Enter := 0;
     ELSE
     i := i + 1;
     Chyba := Chyba + 1;
     Enter := 0;
     END_IF;
    END_IF;
  END_FOR;

//-----------------------------------------
  IF Chyba = 3 THEN
  Sirena := 1;
  Sv_0 :=  S13_2;
  Sv_1 :=  S13_2;
  Sv_2 :=  S13_2;
  Sv_3 :=  S13_2;
  i := 0;
  END_IF;

  IF stop THEN
  Sirena := 0;
  Sv_0 :=  0;
  Sv_1 :=  0;
  Sv_2 :=  0;
  Sv_3 :=  0;
  Chyba := 0;
  END_IF;
//-------------OVLÁDÁNÍ SVĚTEL----------------------------
  IF Tl_Sv_0 and Chyba < 3 and Sv_0 = false THEN
  Sv_0 := 1;
  Tl_Sv_0 :=0;
  END_IF;
  IF Tl_Sv_1 and Chyba < 3 and Sv_1 = false THEN
  Sv_1 := 1;
  Tl_Sv_1 :=0;
  END_IF;
  IF Tl_Sv_2 and Chyba < 3 and Sv_2 = false THEN
  Sv_2 := 1;
  Tl_Sv_2 :=0;
  END_IF;
  IF Tl_Sv_3 and Chyba < 3 and Sv_3 = false THEN
  Sv_3 := 1;
  Tl_Sv_3 :=0;
  END_IF;
//--------
 IF Tl_Sv_0 and Chyba < 3 and Sv_0 = true THEN
  Sv_0 := 0;
  Tl_Sv_0 :=0;
  END_IF;
  IF Tl_Sv_1 and Chyba < 3 and Sv_1 = true THEN
  Sv_1 := 0;
  Tl_Sv_1 :=0;
  END_IF;
  IF Tl_Sv_2 and Chyba < 3 and Sv_2 = true THEN
  Sv_2 := 0;
  Tl_Sv_2 :=0;
  END_IF;
  IF Tl_Sv_3 and Chyba < 3 and Sv_3 = true THEN
  Sv_3 := 0;
  Tl_Sv_3 :=0;
  END_IF;

//-----------------------------

  IF Tl_Sv_Ch THEN
  Sv_ch := 1;
  citac_des := 0;
  rem := 50 ;
  Tl_Sv_Ch := 0;
  END_IF;
  IF rem = citac_des THEN
  Sv_ch :=0;
  END_IF;


END_PROGRAM