Приложение е

Листинг управляющей программы

case ABC of

0: Uv: =false;

Un: =false;

Uad: =false;

I: =false;

sN: ='Zakryt ';

sV: ='Zakryt ';

sAlarm: =' ';

sAD: ='Vyklecen ';

ifXpusk1 then ABC: =61; end_if;

ifXpusk2then ABC: =62; end_if;

ifXpusk3thenABC: =63; end_if;

61: T1: =t#0ms; TSTART (T1); ABC: =1;

1: Uv: =true;

sV: ='Otkryvaetsa';

ifT1>=t#8sthenABC: =101; end_if;

ifXvthenABC: =64; end_if;

64: TSTOP (T1); T2: =t#0ms; ABC: =2;

2: TSTART (T2);

Uv: =false;

Uad: =true;

sV: ='Otkryt ';

sAD: ='Vklycaetsa ';

ifT2>=t#10sthen ABC: =101; end_if;

if Xadthen ABC: =65; end_if;

65: TSTOP (T2); T1: =t#0ms; TSTART (T1); ABC: =3;

3:

Un: =true;

sN: ='Otkryvaetsa ';

sAD: ='Vklucen ';

ifT1>=t#8sthen ABC: =101; end_if;

ifXnthen ABC: =4; end_if;

4: TSTOP (T1);

sN: ='Otkryt ';

Un: =false;

ifXstop1thenABC: =0; end_if;

101: I: =true;

sN: ='ekstrenno zakryt ';

sV: ='ekstrenno zakryt ';

sAlarm: ='ALARM ';

sAD: ='ekstrenno vykl ';

TSTOP (T1);

TSTOP (T2);

Un: =false;

Uv: =false;

Uad: =false;

ifYthen ABC: =0; end_if;

62: T1: =t#0ms; TSTART (T1); ABC: =5;

5: Uv: =true;

sV: =' Otkryvaetsa';

ifT1>=t#8sthenABC: =101; end_if;

ifXvthenABC: =66; end_if;

66: TSTOP (T1); T2: =t#0ms; TSTART (T2); ABC: =6;

6: Uv: =false;

sV: ='Otkryt';

Un: =true;

sN: ='Otkryvaetsa';

ifT2>=t#2sthenABC: =7; end_if;

7: Uad: =true;

sAD: ='Vklucaetsa';

ifT2>=t#10sthen ABC: =101; end_if;

if (Xn and Xad) then ABC: =8; end_if;

8: sAD: ='Vklycon';

sN: ='Otkryt';

Un: =false;

ifXstop2 then ABC: =0; end_if;

63: T1: =t#0ms; TSTART (T1); ABC: =9;

9: Uv: =true;

sV: ='Vklycaetsa';

ifT1>=t#8sthen ABC: =101; end_if;

ifXvthen ABC: =67; end_if;

67: TSTOP (T1); T2: =t#0ms; TSTART (T2); ABC: =10;

10: Uv: =false;

sV: ='Otkryt';

Un: =true;

sN: =' Otkryvaetsa';

ifT2>=t#8sthen ABC: =101; end_if;

ifXnthenABC: =68; end_if;

68: TSTOP (T2); T1: =t#0ms; TSTART (T1); ABC: =11;

11: Un: =false;

sN: ='Otkryt';

Uad: =true;

sAD: ='Vklucaetsa';

ifT1>=t#10s then ABC: =101; end_if;

if Xad then ABC: =12; end_if;

12: TSTOP (T1);

sAD: ='Vklucen';

if Xstop3 then ABC: =0; end_if;

end_case;

Размещено на Allbest.ru

Размещено на Studbooks.net