Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CASE iSekwencjaWyrzutnikKrok OF
- 0:
- typWyjscia.xSpychacz := 0;
- tWyrzutnik(IN :=0, PT := T#1S);
- IF typStanMaszyny.Gniazdo[4].Obecnosc AND NOT typStanMaszyny.Gniazdo[4].WagaOK THEN
- iSekwencjaWyrzutnikKrok := 10;
- ELSIF typStanMaszyny.Gniazdo[4].WagaOk THEN
- iSekwencjaWyrzutnikKrok := 20;
- END_IF
- 10:
- typWyjscia.xSpychacz := 1;
- tWyrzutnik(In := 1, PT := T#2S);
- IF tWyrzutnik.Q THEN
- iSekwencjaWyrzutnikKrok := 20;
- typStanMaszyny.Gniazdo[4].Obecnosc := 0;
- END_IF
- 2:
- typWyjscia.xSpychacz := 0;
- END_CASE
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement