Práctica 4
Práctica 4
Práctica 4
PRACTICA 3
El ventilador debe ser activado cuando la temperatura sea mayor a 30 grados
main:
readtemp b.0,b0
readtemp b.1,b1
readtemp b.2,b2 Declaración de variables
readtemp b.3,b3
W27=b0+b1+b2+b3 Encontramos la temperatura promedio
b6=W27/4
sertxd (#b0," ",#b1," ",#b2," ",#b3,13,10)
sertxd ("Temperatura promedio : ",#b6,13,10) Imprimimos la temperatura promedio
if b0<=b1 and b0<=b2 and b0<=b3 then
b10=b0
endif
if b1<=b0 and b1<=b2 and b1<=b3 then
b10=b1
endif
if b2<=b0 and b2<=b1 and b2<=b3 then Buscamos la temperature minima
b10=b2
endif
if b3<=b0 and b3<=b1 and b3<=b2 then
b10=b3
endif
sertxd("El mínímo es: ",#b10,13,10) Imprimimos la temperatura mínima
if b0>=b1 and b0>=b2 and b0>=b3 then
b11=b0
endif
if b1>=b0 and b1>=b2 and b1>=b3 then
b11=b1
endif
if b2>=b0 and b2>=b1 and b2>=b3 then Buscamos la temperatura máxima
b11=b2
endif
if b3>=b0 and b3>=b1 and b3>=b2 then
b11=b3
endif
sertxd("El máximo es: ",#b11,13,10) Imprimimos la temperatura máxima
if b6>30 then
high b.7
pause 1000 Si la temperatura promedio es mayor a 30 se enciende el ventilador
endif
if b6<=25 then
low b.7
servo b.4,255 Si la temperatura promedio es menor a 25 se apaga el ventilador y se cierra
pause 1000 el conducto.
endif
if b6>26 and b6<32 then
servo b.4,150
pause 1000 Si la temperatura promedio es entre 26 y 31 grados la apertura del servo
high b.7 será de unos 40 a 60 grados
pause 1000
endif
if b6>33 and b6<37 then
servo b.4,100 Si la temperatura promedio es entre 32 y 37 grados la apertura del servo
high b.7 será 90 a 110 grados.
pause 1000
endif
if b6>38 then
servo b.4,75
high b.7 Si la temperatura promedio es mayor a 38 grados la apertura del servo
pause 1000 la apertura del servo será de 180 grados
endif
goto main