Guest User

Untitled

a guest
Nov 6th, 2019
107
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CASE iSekwencjaWyrzutnikKrok OF
  2.     0:
  3.         typWyjscia.xSpychacz := 0;
  4.         tWyrzutnik(IN :=0, PT := T#1S);
  5.         IF typStanMaszyny.Gniazdo[4].Obecnosc AND NOT typStanMaszyny.Gniazdo[4].WagaOK THEN
  6.             iSekwencjaWyrzutnikKrok := 10;
  7.         ELSIF typStanMaszyny.Gniazdo[4].WagaOk THEN
  8.             iSekwencjaWyrzutnikKrok := 20;
  9.         END_IF
  10.     10:
  11.         typWyjscia.xSpychacz := 1;
  12.         tWyrzutnik(In := 1, PT := T#2S);
  13.         IF tWyrzutnik.Q THEN
  14.             iSekwencjaWyrzutnikKrok := 20;
  15.             typStanMaszyny.Gniazdo[4].Obecnosc := 0;
  16.         END_IF
  17.     2:
  18.         typWyjscia.xSpychacz := 0;
  19. END_CASE
RAW Paste Data