with Datos, IO, Control;
use Datos, IO, Control;
with ada.Text_IO; use ada.Text_IO;
procedure controlador is
   ST2 : Temperatura;
   SD1 : Radiacion;
   SC1, SC2 : Caudal;
   cont: Integer:= 1;
begin
-- Inicializamos algunos datos
   ST2:=85.00;
   SC1:=10.00;
   SC2:=500.00;
   for i in 1..8 loop
      -- 50 ms
      lecturaT(ST2);
      SistemaSeguridad(ST2, SC1, SC2);
      if(cont mod 2 = 0) then
         -- 100 ms
         lecturaT(ST2);
         ControlST2(ST2, SC1);
         escrituraC(SC1);
      end if;
      if (cont mod 4 = 0) then
         -- 200 ms
         lecturaR(SD1);
         ControlSD1(SD1, SC2);
         escrituraC(SC2);
      end if;
      cont:= cont+1;
   end loop;
end controlador;