Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- with data_types, IO;
- use data_types, IO;
- package body control_procedures is
- procedure Control_CS(ST2: Temperatura; SC1: out Caudal) is
- begin
- SC1:= 50.0;
- Put_Line("Control del sistema del campo solar");
- delay 0.6;
- Put_Line("");
- end;
- procedure Control_MD(ST2: Temperatura; SC2: out Caudal) is
- begin
- SC2:= 50.0;
- if ST2 > 100.0 then
- Put_Line("--FALLO EN EL BLOQUE DE CONTROL DEL MODULO DE DESTILACION--");
- else
- Put_Line("Modulo de destilacion correcto");
- end if;
- end;
- procedure Control_Seguridad(ST2: Temperatura; SC1: out Caudal; SC2: out Caudal) is
- begin
- SC1:= 50.0;
- SC2:= 50.0;
- Put_Line("Control del sistema de seguridad");
- if ST2 > 100.0 then
- Put_Line("--FALLO DE SEGURIDAD EN BOMBA 1--");
- else
- Put_Line("Condiciones de seguridad correctas");
- end if;
- end;
- end control_procedures;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement