Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ----------Poczekalnia dusz---------------------------------------
- procedure Pocze(Awaria: integer; Numer: integer) is
- Z: integer; --- pozwoli okreslic polozenie
- BEGIN
- for i in 1..5 loop
- IF PS(1) = False AND TPS1(I)= True THEN
- If TPS1(1) = true then Z:=63; --1
- -- END IF;
- If TPS1(2) = true then Z:=66;
- -- END IF;
- If TPS1(3) = true then Z:=69;
- -- END IF;
- If TPS1(4) = true then Z:=72;
- -- END IF;
- If TPS1(5) = true then Z:=75; --5 75
- -- END IF;
- Ekran.OpisPo(5,25);
- Ekran.AutoPo(3,Z ,Numer,Red); --63
- DELAY(Duration(3));
- Ekran.OpisPo(3,Z); --63 poczatek
- END IF; ---do pierwszego idfa
- END IF;
- END IF;
- END IF;
- END IF;
- END IF;
- end loop;
- DELAY(Duration(1));
- END Pocze;
Add Comment
Please, Sign In to add comment