Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #tempo_att := S_PEXT(T_NO := "timer_piatto", S := "start_timer_piatto",
- TV := #tempo_preimpostato, Q => "stato_timer_piatto",
- R := "reset_timer_piatto");
- IF ((#richiesta_discesa AND ((NOT "sensore_piatto_alto") AND
- "sensore_piatto_basso")) AND (NOT "occupato")) THEN
- "reset_timer_piatto" := 0;
- "sequenza" := 2;
- RETURN;
- END_IF;
- IF ((((#richiesta_discesa AND (NOT "sensore_piatto_basso")) AND
- (NOT "comando_valv_piatto")) AND (NOT "occupato")) AND
- (NOT "stato_timer_piatto")) THEN
- "reset_timer_piatto" := 0;
- "comando_valv_piatto" := 1; // abbassa il piatto
- "occupato" := 1;
- "start_timer_piatto" := 1;
- RETURN;
- END_IF;
- IF (((#richiesta_discesa AND "stato_timer_piatto") AND "occupato")
- AND ((NOT "sensore_piatto_alto") AND "sensore_piatto_basso")) THEN
- "reset_timer_piatto" := 1;
- "start_timer_piatto" := 0;
- "occupato" := 0;
- RETURN;
- END_IF;
- IF ((((#richiesta_discesa AND (NOT "stato_timer_piatto")) AND
- "comando_valv_piatto") AND (NOT "sensore_piatto_basso"))
- AND "occupato") THEN
- "comando_valv_piatto" := 0;
- "occupato" := 0;
- "start_timer_piatto" := 0;
- "errore" := 'P'; //errore in abbassiamento Piatto
- RETURN;
- END_IF;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement