SHARE
TWEET

Sortownica_Przejscia_Stany

pabloducato Dec 1st, 2018 78 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. PROGRAM jezykST
  2.  
  3. VAR_EXTERNAL
  4.     START:BOOL;
  5.     RES: BOOL;
  6.     CS: BOOL;
  7.     BS: BOOL;
  8.     R_S3: BOOL;
  9.     S_S3: BOOL;
  10.     v_s4: BOOL;
  11.     R_S4: BOOL;
  12.     pom: BOOL;
  13.     stan: INT;
  14. END_VAR
  15.  
  16. VAR
  17.     Impuls: R_TRIG;
  18.     T0: TON;
  19.     WAIT: MONO_F;
  20.     T1: MONO_F;
  21.     T2: TON;
  22.     T0_OUT: BOOL;
  23.     WAIT_OUT: BOOL;
  24.     T1_OUT: BOOL;                                  
  25.     T2_OUT: BOOL
  26. ;
  27. END_VAR
  28.  
  29. T0(IN:=(@stan=2),OUT=>T0_OUT);
  30. WAIT(IN:=(@stan=3),OUT=>WAIT_OUT);
  31. T1(IN:=(@stan=4),OUT=>T1_OUT);
  32. T2(IN:=(@stan=5),OUT=>T2_OUT);
  33.  
  34. Impuls(CLK:=START, Q=>START);
  35. RES:= START OR pom;
  36. CASE @stan OF
  37.    
  38.     1:R_S3:=FALSE;
  39.       S_S3:=FALSE;
  40.       v_s4:=FALSE;
  41.       R_S4:=FALSE;
  42.       pom:=FALSE;
  43.       IF RES THEN @stan:=2;
  44.       END_IF;
  45.    
  46.     2:R_S3:=FALSE;
  47.       S_S3:=FALSE;
  48.       v_s4:=FALSE;
  49.       R_S4:=FALSE;
  50.       pom:=FALSE;
  51.       IF T0_OUT THEN R_S3:=CS;
  52.       S_S3:=NOT CS;
  53.       @stan:=3;
  54.       END_IF;
  55.    
  56.     3:R_S3:=FALSE;
  57.       S_S3:=FALSE;
  58.       v_s4:=TRUE;
  59.       R_S4:=FALSE;
  60.       pom:=FALSE;
  61.       IF NOT WAIT_OUT THEN @stan:=4;
  62.       END_IF;
  63.    
  64.     4:R_S3:=FALSE;
  65.       S_S3:=FALSE;
  66.       v_s4:=FALSE;
  67.       R_S4:=TRUE;
  68.       pom:=FALSE;
  69.       IF NOT T1_OUT THEN @stan:=5;
  70.       END_IF;
  71.    
  72.     5:R_S3:=FALSE;
  73.       S_S3:=FALSE;
  74.       v_s4:=FALSE;
  75.       R_S4:=FALSE;
  76.       pom:=FALSE;
  77.       IF T2_OUT THEN pom:=BS;
  78.       @stan:=1;
  79.       END_IF;
  80. END_CASE;
  81.      
  82. END_PROGRAM
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