Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Práctica 4

Descargar como docx, pdf o txt
Descargar como docx, pdf o txt
Está en la página 1de 4

Universidad Mariano Gálvez, Sede el Naranjo

Ingeniería En Sistemas de Información y Ciencias de la Computación


Jornada: Sabatina
Sección: A
Fecha: 08/08/2020
Arquitectura de Computadoras II

PRACTICA 3
El ventilador debe ser activado cuando la temperatura sea mayor a 30 grados

1. Cuando el valor promedio de temperatura se encuentre por debajo de 25 grados el


sistema debe permanece en reposo, conducto cerrado y ventilador apagado.

2. Cuando el valor promedio de temperatura se encuentre en la escala de 26 a 31


grados la apertura del servo será de unos 40 a 60 grados
3. Cuando el valor promedio de temperatura se encuentre en la escala de 32 a 37
grados la apertura del servo será 90 a 110 grados

4. Cuando el valor promedio de temperatura se encuentre en la escala de mayor a 38 grados la


apertura del servo será 180 grados
Código

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

También podría gustarte