Advertisement
Guest User

Untitled

a guest
Jul 5th, 2019
179
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SCL 0.87 KB | None | 0 0
  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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement