Advertisement
Guest User

Untitled

a guest
Jul 5th, 2019
181
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SCL 0.70 KB | None | 0 0
  1. CASE iKrok OF
  2.     0:  //  Krok inicjalizacji
  3.         Akcja_0();
  4.         //warunek tranzycji
  5.         IF xStart THEN
  6.             iKrok := 10;
  7.         END_IF;
  8.     10:  //  Krok 10
  9.         "Akcja_10"();
  10.         //warunek tranzycji        
  11.         IF xWarunekTranzycji10A THEN
  12.             iKrok := 20;
  13.         ELSIF xWarunekTranzycji10B THEN
  14.             iKrok := 30;
  15.         END_IF;
  16.     20:  //  Krok 20
  17.         Akcja_20();
  18.         //warunek tranzycji        
  19.         IF xWarunekTranzycji20 THEN
  20.             iKrok := 30;
  21.         END_IF;
  22.     30:  //  Krok 30
  23.         Akcja_30();
  24.         //warunek tranzycji        
  25.         IF xWarunekTranzycji30 THEN
  26.             iKrok := 0;
  27.         END_IF;
  28. END_CASE;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement