with data_types, IO, control_procedures, Ada.Text_IO;
use data_types, IO, control_procedures, Ada.Text_IO;
with recursoCompartido; use recursoCompartido;
procedure sistema_control is

   ST2: Temperatura;
   SD1 : Temperatura;
   SC1, SC2: Caudal;
   BDW : BBDD_Write;
   BDR : BBDD_Read;
   numero : Integer;

   task control_CS;
   task control_MD;
   task control_seguridad;

   task body control_CS is

   begin

      Put_Line("COMIENZO DE LA FASE DE CONTROL DEL CAMPO SOLAR");

      ST2 := 100.0;
      SC1 := 200.0;

      for i in 1..5 loop
     BDR.accesoBBDD_Read(numero);
     BDR.ReadTemp(ST2);
     BDW.WriteCau(1);
      end loop;

   end control_CS;

   task body control_MD is

      begin

      Put_Line("COMIENZO DE LA FASE DE CONTROL DEL MODULO DE DESTILACIÓN");


     SD1 := 100.0;
     SC2 := 200.0;
      for i in 1..5 loop
     BDR.accesoBBDD_Read(numero);
     BDR.ReadTemp(SD1);
     BDW.WriteCau(2);
      end loop;

   end control_MD;

   task body control_seguridad is

   begin

      Put_Line("COMIENZO DE LA FASE DE CONTROL DE SEGURIDAD");


      ST2 := 100.0;
      SC1 := 100.0;
      SC2 := 200.0;

      for i in 1..5 loop
      control_procedures.Control_Seguridad(ST2, SC1, SC2);
      end loop;
   end control_seguridad;


begin
   null;

end sistema_control;