DEFINE OSC 4 ; especifica que es de 4MHz
DEFINE LCD_DREG PORTB 'LCD data port
DEFINE LCD_DBIT 0 'LCD data starting bit 0 or 4
DEFINE LCD_RSREG PORTB 'LCD register select port
DEFINE LCD_RSBIT 4 'LCD register select bit
DEFINE LCD_EREG PORTB 'LCD enable port
DEFINE LCD_EBIT 5 'LCD enable bit
DEFINE LCD_RWREG PORTB 'LCD read/write port
DEFINE LCD_RWBIT 6 'LCD read/write bit
DEFINE LCD_BITS 4 'LCD bus size 4 or 8
DEFINE LCD_LINES 2 'Number lines on LCD
DEFINE LCD_COMMANDUS 2000 'Command delay time in us
DEFINE LCD_DATAUS 50 'Data delay time in us
p1 VAR word ;variable para almacenar potenciómetro 1
p2 var word
p3 var word
ADCON1 =%100 ;configura PortA 0,1, 3 en conversores A/D
Inicio:
ADCIn 0,p1 'se captura valor en conversor
p2=(p1*5)/255 ' se hace regla de 3
p3=(((p1*5)//255) *100)/255 ' se utiliza el residuo y se multiplica por 100 y se vuelve a dividir entre 255
lcdout $fe,$80,"Voltaje:" ;limpiar LCD y sacar texto
LCDOUT $fe,$c1,# p2, "." , # p3," "
GOTO inicio