Termometro Corporal en PIC BASIC PRO

FREDDYQT Sáb Abr 21, 2012 12:13 pm

Comenzamos Smile

Diseñe un termómetro digital para medir la temperatura corporal de los pacientes, usando
un LM35. Además el sistema debe generar alarmas cuando suceda uno de los siguientes
eventos:
a. Normal (36°C≤T°≤37.5°C): Estado normal solo muestra la temperatura en el LCD.
b. Fiebre (37.5°C<T°<39.5°C): Mostrar temperatura en el LCD y un indicador luminoso.
c. Peligro (≥39.5°C): Mostrar temperatura en el LCD, un indicador luminoso y una señal
audible.
d. Frio (35.5°C<T°<36°C): Mostrar temperatura en el LCD e indicarlo mediante una
señal luminosa.
e. Hipotermia (≤35.5°C): Mostrar temperatura en el LCD, indicarlo mediante una señal
luminosa y una señal audible.

Comenzamos con el trabajo:

Código:: DEFINE LCD_DREG PORTB DEFINE LCD_DBIT 0 DEFINE LCD_RSREG PORTB DEFINE LCD_RSBIT 4 DEFINE LCD_EREG PORTB DEFINE LCD_EBIT 5 ; configuracion de ADC DEFINE ADC_BITS 10 DEFINE ADC_CLOCK 3 DEFINE ADC_SAMPLEUS 50 ; variables LED VAR PORTB.6 TIMBRE VAR PORTB.7 ;configuracion de puerto TRISA =%1 ADCON1 = %00001110 DATO VAR word DATO1 var word DATO2 VAR WORD INICIO: ADCIN 0, datO ; leemos el puerto A.0 y almacenamos en DATO Dato = dato/128 ; dividimos DATO/128 para obtener 10bits DATO1 = DATO - 1 ; restamos 1 para obteenr el valor exacto pause 100 DATO2 = DATO1*10 ; multiplicamos para poner la condicion ya que PBP no ; reconoce numero decimales en los bucles IF DATO2>= 360 && DATO2<= 375 THEN LCDOUT $fe, 1, "SALUD:NORMAL " LCDOUT $fe,$C0,"Temperatura: ",DEC DATO1 LOW LED LOW TIMBRE endif IF DATO2>375 && DATO2<= 395 THEN LCDOUT $fe, 1, "SALUD: FIEBRE" LCDOUT $fe,$C0,"Temperatura: ",DEC DATO1 high LED LOW TIMBRE endif IF DATO2>=395 THEN LCDOUT $fe, 1, "SALUD: PELIGRO" LCDOUT $fe,$C0,"Temperatura: ",DEC DATO1 high LED HIGH TIMBRE endif IF DATO2>355 && DATO2< 36 THEN LCDOUT $fe, 1, "SALUD: FRIO" LCDOUT $fe,$C0,"Temperatura: ",DEC DATO1 high LED LOW TIMBRE endif IF DATO2 <= 355 THEN LCDOUT $fe, 1,"SALUD:HIPOTERMIA" LCDOUT $fe,$C0,"Temperatura: ",DEC DATO1 high LED HIGH TIMBRE endif PAUSE 50 goto inicio END