Advertisement
Guest User

Untitled

a guest
Apr 9th, 2019
121
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Ada 0.43 KB | None | 0 0
  1. task body Control_de_seguridad is
  2.       SC1: TemperList;
  3.       SC2: TemperList;
  4.       Estado : Boolean;
  5.    begin
  6.       loop
  7.          LeerCaudal(CA => SC1);
  8.          LeerCaudal(CA => SC2);
  9.          ControlDeSeguridad(SC1 => SC1,
  10.                             SC2 => SC2,
  11.                             Estado => Estado);
  12.          delay(2.5); -- 2.5 -> 50ms para ver una ejecución ordenada.
  13.       end loop;
  14.       end Control_de_seguridad;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement