Guest User

Untitled

a guest
Aug 8th, 2018
128
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Ada 0.98 KB | None | 0 0
  1. ----------Poczekalnia dusz---------------------------------------
  2.  procedure Pocze(Awaria: integer; Numer: integer) is
  3.  
  4.    Z: integer; --- pozwoli okreslic polozenie
  5.  BEGIN
  6.  
  7. for i in 1..5 loop
  8.  
  9.        IF PS(1) = False AND TPS1(I)= True THEN
  10.          
  11.          If TPS1(1) = true then Z:=63;   --1
  12.          -- END IF;
  13.          
  14.  If TPS1(2) = true then Z:=66;  
  15.        --   END IF;
  16.          
  17.  If TPS1(3) = true then Z:=69;  
  18.        --   END IF;
  19.          
  20.  If TPS1(4) = true then Z:=72;  
  21.       --    END IF;
  22.          
  23.  If TPS1(5) = true then Z:=75;  --5 75
  24.        --   END IF;
  25.  
  26.          Ekran.OpisPo(5,25);
  27.           Ekran.AutoPo(3,Z ,Numer,Red); --63
  28.           DELAY(Duration(3));
  29.           Ekran.OpisPo(3,Z);  --63 poczatek
  30.            
  31.                       END IF; ---do pierwszego idfa
  32.                    END IF;
  33.                 END IF;
  34.              END IF;
  35.           END IF;
  36.        END IF;
  37.        
  38.  
  39. end loop;
  40.  
  41.     DELAY(Duration(1));
  42.  
  43.  
  44.  END Pocze;
Add Comment
Please, Sign In to add comment