API tools faq
paste
Advertisement
Guest User

asdadadasdadasdasdasd2135353646

a guest
Dec 8th, 2016
117
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SCL 2.46 KB | None | 0 0
raw download clone embed print report
  1. IF "key" THEN
  2.     "silinder1lõpp" := 0;
  3.     "silinder1alg" := 1;
  4.     "reziim" := 0;
  5.  
  6.  
  7.    
  8.     IF "start" AND NOT "startmälu" THEN
  9.        
  10.         "väljumisarv1" := "väljumisarv1" + 1;
  11.        
  12.     END_IF;
  13. END_IF;
  14.  
  15. IF NOT "key" THEN
  16.    
  17.     IF "reset" AND NOT "resetmälu" THEN
  18.         "reziim" := "reziim" + 1;
  19.        
  20.         IF "reziim" > 3 THEN
  21.             "reziim" := 1;
  22.         END_IF;
  23.     END_IF;
  24.     IF "start" THEN
  25.         "asdasd" := 1;
  26.     END_IF;
  27.    
  28.     CASE "reziim" OF
  29.            
  30.         1:
  31.             "lamp1" := 1;
  32.        
  33.             IF "asdasd" AND "silinder1algpos" AND "reziim" = 1 THEN
  34.                 "silinder1alg" := 0;
  35.                 "silinder1lõpp" := 1;
  36.             END_IF;
  37.             IF "silinder1lõpppos" AND "reziim" = 1 THEN
  38.                 "silinder1alg" := 1;
  39.                 "silinder1lõpp" := 0;
  40.             END_IF;
  41.            
  42.            
  43.         2:
  44.             "lamp2" := 1;
  45.             "väljumisarv2" := "väljumisarv1";
  46.            
  47.             WHILE "väljumisarv2" > 0 AND "asdasd" AND "reziim" = 2 DO
  48.                 IF "silinder1algpos" THEN
  49.                     "silinder1alg" := 0;
  50.                     "silinder1lõpp" := 1;
  51.                 END_IF;
  52.                 IF "silinder1lõpppos"  THEN
  53.                     "silinder1alg" := 1;
  54.                     "silinder1lõpp" := 0;
  55.                 END_IF;
  56.                 IF "silinder1lõpppos" AND NOT "andurimälu" THEN
  57.                     "väljumisarv2" := "väljumisarv2" - 1;
  58.                 END_IF;
  59.                
  60.             END_WHILE;
  61.            
  62.         3:
  63.             "lamp3" := 1;
  64.             IF "silinder1algpos" AND "reziim" = 3 AND "asdasd" THEN
  65.                 IF "silinder1algpos" THEN
  66.                 "silinder1alg" := 0;
  67.                 "silinder1lõpp" := 1;
  68.             END_IF;
  69.             IF "silinder1lõpppos" THEN
  70.                 "silinder1alg" := 1;
  71.                 "silinder1lõpp" := 0;
  72.                 "asdasd" := 0;
  73.             END_IF;
  74.                
  75.                
  76.             END_IF;
  77.            
  78.            
  79.            
  80.     END_CASE;
  81.  
  82.  
  83. END_IF;
  84.  
  85. IF NOT "stop" AND NOT "key" THEN
  86.     "silinder1lõpp" := 0;
  87.     "silinder1alg" := 1;
  88.     "asdasd" := 0;
  89.     "lamp1" := 0;
  90.     "lamp2" := 0;
  91.     "lamp3" := 0;
  92.     "lamp4" := 0;
  93.     "väljumisarv2" := 0;
  94.    
  95.    
  96. END_IF;
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103. "startmälu" := "start";
  104. "resetmälu" := "reset";
  105. "andurimälu" := "silinder1lõpppos";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!