Advertisement
tanfy88

Untitled

Mar 11th, 2018
1,090
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #tempo_att := S_PEXT(T_NO := "timer_piatto", S := "start_timer_piatto",
  2.                      TV := #tempo_preimpostato, Q => "stato_timer_piatto",
  3.                      R := "reset_timer_piatto");
  4.  
  5. IF ((#richiesta_discesa AND ((NOT "sensore_piatto_alto") AND
  6.     "sensore_piatto_basso")) AND (NOT "occupato")) THEN
  7.     "reset_timer_piatto" := 0;
  8.     "sequenza" := 2;
  9.     RETURN;
  10. END_IF;
  11.  
  12. IF ((((#richiesta_discesa AND (NOT "sensore_piatto_basso")) AND
  13.     (NOT "comando_valv_piatto")) AND (NOT "occupato")) AND
  14.     (NOT "stato_timer_piatto")) THEN
  15.     "reset_timer_piatto" := 0;
  16.     "comando_valv_piatto" := 1;     // abbassa il piatto
  17.     "occupato" := 1;
  18.     "start_timer_piatto" := 1;
  19.     RETURN;
  20. END_IF;
  21.  
  22. IF (((#richiesta_discesa AND "stato_timer_piatto") AND "occupato")
  23.     AND ((NOT "sensore_piatto_alto") AND "sensore_piatto_basso")) THEN
  24.     "reset_timer_piatto" := 1;
  25.     "start_timer_piatto" := 0;
  26.     "occupato" := 0;
  27.     RETURN;
  28. END_IF;
  29.  
  30. IF ((((#richiesta_discesa AND (NOT "stato_timer_piatto")) AND
  31.     "comando_valv_piatto") AND (NOT "sensore_piatto_basso"))
  32.     AND "occupato") THEN
  33.     "comando_valv_piatto" := 0;
  34.     "occupato" := 0;
  35.     "start_timer_piatto" := 0;
  36.     "errore" := 'P';                //errore in abbassiamento Piatto
  37.     RETURN;
  38. END_IF;
Advertisement
RAW Paste Data Copied
Advertisement