[David Lobo Herranz]

Hola Iñigo.

He visto que tienes un libro que se llama 7 pasos para programar mas ordenados……Me gustaría hacerme con el, pero no veo como descargarle.

No se si me lo puedes pasar de alguna manera, por lo que he visto creo que le regalas, si no es así me dices como conseguirle .

Un saludo.

 

[David Lobo Herranz]

Muchas gracias Iñigo.

Lo del complicarme la vida creo que lo llevo en el ADN…..Y ahora estoy en método 5000 y es un método  largo.

[David Lobo Herranz]

Ahora he hecho esta versión

IF #Temp < #Temp_MIn_1
THEN
#Estado_Tem := 0;
END_IF;
IF #Temp > #Temp_MIn_1
AND #Temp < #»Temp _Max»
THEN
#Estado_Tem := 1;
END_IF;
IF #Temp < #»Temp _Max»
THEN
#Estado_Tem := 2;
END_IF;

CASE #Estado_Tem OF
0:
#aux1:=1
;
1:
#aux2:=1
;
2:
#aux3:=1
;
ELSE
;
END_CASE;

#»Salida_100%» := #Gas AND NOT #Alarma AND NOT #Marcha AND (#aux1 OR #aux2 OR #Maquina_Calentando);
#»Salida_50%» := #Gas AND (#aux3 OR #Alarma OR NOT #Marcha);
#»Temp _OK»:= #aux2;

[David Lobo Herranz]

Hola Iñigo.

He hecho esto no se si así esta bien.

 

Static                     tipo de datos             Valor
Estado_Tem                    Int                        0
Constant
TEMP_MIN                      Int                      0
TEMP_OK                         Int                      1
TEMP_MAX                      Int                     2

========================================

CASE #Estado_Tem OF
#TEMP_MIN:
IF #Gas
AND (#Temp < #Temp_MIn_1
OR #Maquina_Calentando)
THEN
#Estado_Tem := #TEMP_MIN;
END_IF;

#TEMP_OK:
IF #Gas
AND #Temp > #Temp_MIn_1
AND #Temp < #»Temp _Max»
THEN
#Estado_Tem := #TEMP_OK
END_IF;

#TEMP_MAX:
IF #Gas
AND #Temp > #»Temp _Max»
AND NOT #Maquina_Calentando
THEN
#Estado_Tem := #TEMP_MAX;
END_IF;

ELSE
;
END_CASE;

#»Salida_50%» := #Estado_Tem =2 ;
#»Salida_100%» := #Estado_Tem = 1 OR #Estado_Tem = 0;

============================================

 

 

[Autor]

Entradas