Buenas saludos cordiales, a continuacion el codigo que llevo realizado:
pic debe leer entrada analoga de un sensor temperatura
mostrarlo en lcd16x2
pero no me funciona al quemarlo
Device=16F877A
XTAL=4
Declare LCD_TYPE0
Declare LCD_DTPIN PORTD.4
Declare LCD_RSPIN PORTB.3
Declare LCD_ENPIN PORTB.2
LCD_LINES 2
TRISD=0 ;PUERTO D COMO SALIDA
TRISB=0 ;PUERTO B COMO SALIDA
TRISE=1 ; PUERTO E COMO ENTRADA
ADCON1=%100000
Dim adc As Float
Dim resultado As Float
Print At 1,1, "SENSOR DE" ;IMPRIMO EN PANTALLA "SENSOR DE"
Print At 2,1, "TEMPERATURA 1820"
DelayMS 3000 ;RETARDO 3mili segundos
Print At 1,1, " "
Print At 2,1, " "
DelayMS 5000
Inicio:
Print At 1,1, "Temperatura "
Print 2,1, "Actual"
adc = ADIn 0
resultado = adc * 500 / 65472 ;Aplico la fórmula
Print At 2,8, DEC1, resultado,0
Print At 2,12, "C"
GoTo Inicio
End
