with Ada.Text_IO; with Szimulacio.Ontozorendszer.Elemek.Vizforras; with Szimulacio.Ontozorendszer.Megjelenito.Muveletek; package body Szimulacio.Vezerles is package Elemek renames Szimulacio.Ontozorendszer.Elemek; package Megjelenito_Muveletek renames Szimulacio.Ontozorendszer.Megjelenito.Muveletek; Utem : constant Duration := 1.5; function A_Szimulacio_Uteme return Duration is begin return Utem; end A_Szimulacio_Uteme; Vege : Boolean := False; function Vege_A_Szimulacionak return Boolean is begin return Vege; end Vege_A_Szimulacionak; procedure Inditas is Ch : Character; Van_Leutott_Karakter : Boolean; begin Ada.Text_IO.Put_Line("A szimulacio indul"); Elemek.Letrehozas; Elemek.Inicializalas; while not Vege loop Elemek.Frissites; Ada.Text_IO.Get_Immediate(Ch, Van_Leutott_Karakter); if Van_Leutott_Karakter and then (Ch = 'v' or Ch = 'V') then if Elemek.Vizforras.Vizet_Ad then Elemek.Vizforras.Kikapcsol; else Elemek.Vizforras.Bekapcsol; end if; end if; if Van_Leutott_Karakter and then (Ch = 'x' or Ch = 'X') then --| Arrol, hogy minden Ontozorendszer-Elem ertesuljon Vege := True; --| a szimulacio leallitasarol, most nem gondoskodunk!!! end if; --| Megjelenito_Muveletek.Megjelenit; delay Utem; -- itt kellene hasznalni a korabban bemutatott idozitot end loop; end Inditas; end Szimulacio.Vezerles;