Estoy tratando de estudiar el 18f4431 y empiezo x lo mas "simple"que seria leer un adc pero................ahi va el codigo con PSI
Define LCD_DREG = PORTB
Define LCD_DBIT = 0 '0 or 4 for 4-bit interface, ignored for 8-bit interface
Define LCD_RSREG = PORTD
Define LCD_RSBIT = 1
Define LCD_EREG = PORTD
Define LCD_EBIT = 3
Define LCD_RWREG = PORTD 'set to 0 if not used, 0 is default
Define LCD_RWBIT = 2 'set to 0 if not used, 0 is default
Define LCD_COMMANDUS = 2000 'delay after LCDCMDOUT, default value is 5000
Define LCD_DATAUS = 50 'delay after LCDOUT, default value is 100
Define LCD_INITMS = 2 'delay used by LCDINIT, default value is 100
'the last three Define directives set the values suitable for simulation; they should be omitted for a real device
Dim an0 As Word
'configure all pins for digital use
TRISA = 0xff
TRISB = 0
TRISD = 0
ADCON0 = %00000001 '/ / single - shot conversion On adc group A
ADCON1 = %00000000 '//use avdd And avss For references, don't use FIFO buffer
ADCON2 = %10010100 '//R-justified, 4tad aquisition time, tad=2*tosc, where tosc=0.5 us (clock = fosc/4)
ADCON3 = %00000000 '//no triggers
ADCHS = %00000000 '//use an0
ANSEL0 = 0x01
Lcdinit
loop:
Adcin 0, an0
Lcdcmdout LcdClear 'clear LCD display
Lcdout "Analog input AN0" 'text for the line 1
Lcdcmdout LcdLine2Home 'set cursor at the beginning of line 2
Lcdout "Value: ", #an0 'formatted text for line 2
WaitMs 1 'larger value should be used in real device
Goto loop 'loop forever
primero en la imagen del micro no aparece la entrada adc queda como digital ,despues me tira error el compilador donde dice adcin 0,an0.Ppr favor alguna idea?
