Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #tempo_att := S_PEXT(T_NO := "timer_emergenza", S := "start_timer_emergenza",
- TV := #tempo_preimpostato, Q => "stato_timer_emergenza",
- R := "reset_timer_emergenza");
- "sequenza" := 10;
- // set pulsante di emergenza se c'è richiesta
- IF "richiesta_emergenza" THEN
- IF (NOT "pulsante_emergenza") THEN
- "pulsante_emergenza" := 1;
- END_IF;
- END_IF;
- // attesa per il disinserimento del pulsante emergenza
- IF ("pulsante_emergenza" AND "stato_emergenza") THEN
- #apertura := 0;
- "richiesta_emergenza" := 0;
- RETURN;
- END_IF;
- // gestione primo accesso all'apertura
- IF ((("pulsante_emergenza" AND (NOT "stato_emergenza")) AND
- (NOT "stato_timer_emergenza")) AND (("errore" <> 'A') AND
- ("errore" <> 'E'))) THEN
- #apertura := 1;
- "reset_timer_emergenza" := 0;
- "start_timer_emergenza" := 1;
- "Apertura"(richiesta := "pulsante_emergenza",
- uscita_ciclo := #apertura);
- RETURN;
- END_IF;
- // gestione dei successivi accessi per l'apertura
- IF (#apertura OR "stato_timer_emerg_ganasce" OR
- "stato_timer_emerg_piatto") THEN
- "Apertura"(richiesta := "pulsante_emergenza",
- uscita_ciclo := #apertura);
- RETURN;
- END_IF;
- // gestione ritorno dal ciclo apertura per reset finale dei timer
- IF (("reset_timer_emerg_ganasce" AND "reset_timer_emerg_piatto") AND
- ((NOT "start_timer_emerg_ganasce") AND
- (NOT "start_timer_emerg_piatto"))) THEN
- "Apertura"(richiesta := "pulsante_emergenza",
- uscita_ciclo := #apertura);
- IF "sequenza" = 11 THEN
- "stato_emergenza" := 1;
- END_IF;
- END_IF;
- // arresto del timer
- IF (("pulsante_emergenza" AND "stato_timer_emergenza")
- AND "stato_emergenza") THEN
- "start_timer_emergenza" := 0;
- "reset_timer_emergenza" := 1;
- #apertura := 0;
- RETURN;
- END_IF;
- // test per avvenuto errore
- IF (("pulsante_emergenza" AND (NOT "stato_timer_emergenza"))
- AND (NOT "stato_emergenza")) THEN
- "start_timer_emergenza" := 0;
- "reset_timer_emergenza" := 0;
- "errore" := 'E'; //errore in Emergenza
- RETURN;
- END_IF;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement