SHARE
TWEET

Untitled

a guest Jul 5th, 2019 124 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. CASE iKrok OF
  3.     0:  //  Krok inicjalizacji
  4.         Akcja_0();
  5.         //warunek tranzycji
  6.         IF xStart THEN
  7.             iKrok := 10;
  8.         END_IF;
  9.     10:  //  Krok 10
  10.         Akcja_10();
  11.         //warunek tranzycji        
  12.         IF xWarunekTranzycji10 THEN
  13.             iKrok := 15;
  14.             iKrokSubSekwencji := 20;
  15.         END_IF;
  16.     15:  //  Krok 20, 30, 40
  17.         CASE iKrokSubSekwencji OF  //sekwencja zagnieżdżona
  18.             20:
  19.                 Akcja_20();
  20.                 IF WarunekTranzycji20 THEN
  21.                     iKrokSubSekwencji := 40;
  22.                 END_IF;
  23.             40:
  24.                 Akcja_40();
  25.         END_CASE;
  26.        
  27.         Akcja_30();
  28.         //warunek tranzycji        
  29.         IF WarunekTranzycji30 AND (iKrokSubSekwencji=40 AND WarunekTranzycji40) THEN
  30.             iKrok := 0;
  31.         END_IF;
  32. END_CASE;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top