Que tal Skeleton:
Sería algo así:
Device = 16F877A 'DECLARAMOS EL PIC A USAR
Xtal = 4 'CRYSTAL DE 4Mhz
Declare LCD_Type 0 'DECLARAMOS LOS PUERTOS DE SALIDA Y DE PROGRAMACIÓN.
Declare LCD_DTPin PORTD.4
Declare LCD_RSPin PORTD.2
Declare LCD_ENPin PORTD.3
Declare LCD_Lines 2
TRISD=0 'PUERTO D COMO SALIDA.
TRISA.0=1 'PUERTO A.0 COMO ENTRADA ANALOGICA.
ADCON1=%100000
Dim adc As Float
Dim resultado As Float
Print At 1,1, " SENSOR DE " 'FRASES AL COMENSAR LA PROGRAMACION.
Print At 2,1, "TEMPERATURA LM35"
DelayMS 3000
Print At 1,1, " PROGRAMADO CON "
Print At 2,1, " PIC 16F877A "
DelayMS 3000
inicio:
adc = ADIn 0
resultado = adc * 500/65472 'AQUÍ APARECE LA TEMPERATURA.
If resultado < 30 Then
Print At 1,1, " TEMPERATURA " 'EN LA PRIMERA FILA LA PALABRA TEMPERATURA.
Print At 2,1, "ACTUAL " 'FILA 2 PALABRA ACTUAL ASTA COLUMNA 8.
Print At 2,8,Dec1,resultado,0
Print %11011111 'Imprime el símvolo de grados
Print "C"
Else
Print At 1,1, " ALERTA! "
Print At 2,1, " "
Print At 2,5,Dec1,resultado,0
Print %11011111 'Imprime el símbolo de grados
Print "C "
EndIf
GoTo inicio
End
saludos,
elreypic.