Advertisement
tanfy88

Untitled

Mar 11th, 2018
963
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. // salto alla successiva fase
  6. IF ((#richiesta_salita AND ("sensore_piatto_alto" AND
  7.     (NOT "sensore_piatto_basso"))) AND (NOT "occupato")) THEN
  8.     "reset_timer_piatto" := 0;
  9.     "sequenza" := 6;
  10.     RETURN;
  11. END_IF;
  12.  
  13. // avvio del temporizzatore e attivazione del comando
  14. IF ((((#richiesta_salita AND (NOT "sensore_piatto_alto")) AND
  15.     "comando_valv_piatto") AND (NOT "occupato")) AND
  16.     (NOT "stato_timer_piatto")) THEN
  17.     "reset_timer_piatto" := 0;
  18.     "comando_valv_piatto" := 0;     // piatto sale
  19.     "occupato" := 1;
  20.     "start_timer_piatto" := 1;
  21.     RETURN;
  22. END_IF;
  23.  
  24. // arresto del temporizzatore
  25. IF (((#richiesta_salita AND "stato_timer_piatto") AND "occupato")
  26.     AND ("sensore_piatto_alto" AND (NOT "sensore_piatto_basso"))) THEN
  27.     "reset_timer_piatto" := 1;
  28.     "start_timer_piatto" := 0;
  29.     "occupato" := 0;
  30.     RETURN;
  31. END_IF;
  32.  
  33. // test per avvenuto errore
  34. IF (#richiesta_salita AND (NOT "stato_timer_piatto") AND
  35.     (NOT "comando_valv_piatto") AND (NOT "sensore_piatto_alto")
  36.     AND "occupato") THEN
  37.     "comando_valv_piatto" := 1;
  38.     "occupato" := 0;
  39.     "start_timer_piatto" := 0;
  40.     "errore" := 'S';                //errore in Salita piatto
  41.     RETURN;
  42. END_IF;
  43.  
  44. // "sequenza" := 5;
Advertisement
RAW Paste Data Copied
Advertisement