Advertisement
tanfy88

Untitled

Mar 11th, 2018
2,297
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SCL 2.37 KB | None | 0 0
  1. #tempo_att_ganasce := S_PEXT(T_NO := "timer_emerg_ganasce",
  2.                              S := "start_timer_emerg_ganasce" ,
  3.                              TV := #tempo_preimpostato,
  4.                              Q => "stato_timer_emerg_ganasce",
  5.                              R := "reset_timer_emerg_ganasce");
  6. #tempo_att_piatto := S_PEXT(T_NO := "timer_emerg_piatto",
  7.                             S := "start_timer_emerg_piatto" ,
  8.                             TV := #tempo_preimpostato,
  9.                             Q => "stato_timer_emerg_piatto",
  10.                             R := "reset_timer_emerg_piatto");
  11.  
  12. "sequenza" := 11;
  13.  
  14. // azzeramento della variabile #emergenza
  15. IF ((#richiesta AND (("sensore_piatto_alto") OR ("sensore_ganasce_aperte")))
  16.     AND "stato_emergenza") THEN
  17.     #emergenza := 0;
  18.     RETURN;
  19. END_IF;
  20.  
  21. // test per uscita dalla funzione
  22. IF (("stato_timer_emerg_ganasce" OR "stato_timer_emerg_piatto") AND
  23.     #uscita_ciclo) THEN
  24.     #uscita_ciclo := 0;
  25. END_IF;
  26.  
  27. // test per avvenuto errore
  28. IF ((((#richiesta AND ((NOT "stato_timer_emerg_ganasce") OR
  29.     (NOT "stato_timer_emerg_piatto"))) AND ((NOT "comando_valv_ganasce")
  30.     OR (NOT "comando_valv_piatto"))) AND ((NOT "sensore_piatto_alto") OR
  31.     (NOT "sensore_ganasce_aperte"))) AND #emergenza) THEN
  32.     "start_timer_emerg_ganasce" := 0;
  33.     "start_timer_emerg_piatto" := 0;
  34.     "errore" := 'A';                    //errore apertura
  35.     #emergenza := 0;
  36.     RETURN;
  37. END_IF;
  38.  
  39. // avvio temporizzatori e attivazione dei comandi
  40. IF ((#richiesta AND ((NOT "sensore_piatto_alto") OR
  41.     (NOT "sensore_ganasce_aperte"))) AND ((NOT "stato_timer_emerg_ganasce")
  42.     OR (NOT "stato_timer_emerg_piatto"))) THEN
  43.     "reset_timer_emerg_ganasce" := 0;
  44.     "reset_timer_emerg_piatto" := 0;
  45.     "start_timer_emerg_ganasce" := 1;
  46.     "start_timer_emerg_piatto" := 1;
  47.     "comando_valv_ganasce" := 0;        // apertura ganasce
  48.     "comando_valv_piatto" := 0;         // salita del piatto
  49.     #emergenza := 1;
  50.     RETURN;
  51. END_IF;
  52.  
  53. // arresto dei temporizzatori
  54. IF ((#richiesta AND ("stato_timer_emerg_ganasce" AND
  55.     "stato_timer_emerg_piatto")) AND (("sensore_ganasce_aperte") AND
  56.     ("sensore_piatto_alto"))) THEN
  57.     "start_timer_emerg_ganasce" := 0;
  58.     "start_timer_emerg_piatto" := 0;
  59.     "reset_timer_emerg_ganasce" := 1;
  60.     "reset_timer_emerg_piatto" := 1;
  61.     #emergenza := 0;
  62.     RETURN;
  63. END_IF;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement