Public paste
Undefined
By: Guest | Date: Nov 19 2010 13:04 | Format: None | Expires: never | Size: 973 B | Hits: 827

  1. FUNCTION Y_Go : INT
  2.  
  3. VAR_TEMP
  4.     // Temporary Variables
  5.     Y_Current : INT;
  6. END_VAR
  7.  
  8. VAR_INPUT
  9.     Y1 : BOOL;
  10.     Y2 : BOOL;
  11.     Y3 : BOOL;
  12.     Y4 : BOOL;
  13.     Y_Wanted : INT;
  14. END_VAR
  15.  
  16. VAR_OUTPUT
  17.     Y_Up : BOOL;
  18.     Y_Down : BOOL;
  19.     Y_OK : BOOL;
  20. END_VAR
  21.  
  22.     IF Y1 THEN
  23.         Y_Current := 1;
  24.     END_IF;
  25.    
  26.     IF Y2 THEN
  27.         Y_Current := 2;
  28.     END_IF;
  29.    
  30.     IF Y3 THEN
  31.         Y_Current := 3;
  32.     END_IF;
  33.    
  34.     IF Y4 THEN
  35.         Y_Current := 4;
  36.     END_IF;
  37.    
  38.     IF Y_Wanted = Y_Current THEN
  39.         Y_Up    := False;
  40.         Y_Down  := False;
  41.         Y_OK    := True;
  42.     ELSE IF Y_Wanted > Y_Current THEN
  43.         Y_Up    := False;
  44.         Y_Down  := True;
  45.         Y_OK    := False;
  46.     ELSE IF Y_Wanted < Y_Current THEN
  47.         Y_Up    := True;
  48.         Y_Down  := False;
  49.         Y_OK    := False;        
  50.     END_IF;
  51.            
  52.  
  53.     // Statement Section
  54.     ;
  55.     Y_Go := 100;
  56. END_FUNCTION