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
The only difference is that I'm using channel 1,2,6 and 6 instead of 1,2,3,4Code: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
?????????????????????




Bookmarks