Well, here is what is working:
Code:
DEFINE OSC 16
TRISB = %00000000
'----- Set ADC ---------------------------------------------
DEFINE ADC_BITS 10
DEFINE ADC_SAMPLEUS 2
ADCON1 = %00000111 'ADC on channel AN0 to AN7
ADCON2.7 = 1 'Right justified A/D
'----- Set LCD ---------------------------------------------
DEFINE LCD_LINES 4
define LCD_DREG PORTD
DEFINE LCD_RSREG PORTC
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTC
DEFINE LCD_EBIT 2
line_1 con $80
line_2 con $C0
line_3 con $94
line_4 con $D4
PAUSE 1000
LCDOUT $FE, 1
A0 VAR WORD
A1 VAR WORD
A2 VAR WORD
A3 VAR WORD
A4 VAR WORD
main:
ADCIN 0, A0
ADCIN 1, A1
ADCIN 2, A2
ADCIN 3, A3
lcdOUT $FE,1, LINE_1, #A0
lcdOUT $FE, LINE_2, #A1
lcdOUT $FE, LINE_3, #A2
lcdOUT $FE, LINE_4, #A3
pause 100
goto main
end
BUT !!!!!!!!! this is NOT working
Code:
DEFINE OSC 16
TRISB = %00000000
'----- Set ADC ---------------------------------------------
DEFINE ADC_BITS 10
DEFINE ADC_SAMPLEUS 2
ADCON1 = %00000111 'ADC on channel AN0 to AN7
ADCON2.7 = 1 'Right justified A/D
'----- Set LCD ---------------------------------------------
DEFINE LCD_LINES 4
define LCD_DREG PORTD
DEFINE LCD_RSREG PORTC
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTC
DEFINE LCD_EBIT 2
line_1 con $80
line_2 con $C0
line_3 con $94
line_4 con $D4
PAUSE 1000
LCDOUT $FE, 1
A0 VAR WORD
A1 VAR WORD
A2 VAR WORD
A3 VAR WORD
A4 VAR WORD
main:
ADCIN 0, A0
ADCIN 1, A1
ADCIN 6, A2
ADCIN 7, A3
lcdOUT $FE,1, LINE_1, #A0
lcdOUT $FE, LINE_2, #A1
lcdOUT $FE, LINE_3, #A2
lcdOUT $FE, LINE_4, #A3
pause 100
goto main
end
The only difference is that I'm using channel 1,2,6 and 6 instead of 1,2,3,4
?????????????????????
Bookmarks