Adc For 16f88

[savnik]

I am using a 16F88 for a project and i want to show simultaneous conversion of two ADC channels, AN0 and AN1 on LCD.
My problem is that the LCD shows the clues alternately and no simultaneous
My code

    DEFINE  ADC_BITS        10   
    DEFINE  ADC_CLOCK       3     
    DEFINE  ADC_SAMPLEUS    50    	

    adval   VAR WORD			
    adval1  VAR WORD			
	
    ANSEL = %00000011
    CMCON = 7                      
    TRISA = %00000011		         
    ADCON0 = %11001001            
    ADCON1 = %10000000                    	          	     
    
    INCLUDE "LCDbar_INC.bas"       
 
loop: 	
    ADCIN 0, adval				
    adval = (adval */ 500)>>2		    
    LCDOut $fe,1,"L:" 
    @ BARgraph  _adval,  1,   2,    16,   100, lines    
    ADCIN 1, adval1				
    adval1 = (adval1 */ 500)>>2		   
    LCDOut $fe,$C0,"R:" 
    @ BARgraph  _adval1,  2,   2,    16,   100, lines        
    PAUSE 300
    GoTo loop

[Kamikaze47]

I'm not clear on the problem you are having.

What is it doing or not doing? And what should it do instead?

[Jerson]

to show simultaneous conversion of two ADC channels, AN0 and AN1 on LCD.
My code

    DEFINE  ADC_BITS        10   
    DEFINE  ADC_CLOCK       3     
    DEFINE  ADC_SAMPLEUS    50    	

    adval   VAR WORD			
    adval1  VAR WORD			
	
    ANSEL = %00000011
    CMCON = 7                      
    TRISA = %00000011		         
    ADCON0 = %11001001            
    ADCON1 = %10000000                    	          	     
    
    INCLUDE "LCDbar_INC.bas"       
 
loop: 	
    ADCIN 0, adval				
    adval = (adval */ 500)>>2		    
    ADCIN 1, adval1				
    adval1 = (adval1 */ 500)>>2		   
    LCDOut $fe,1,"L:" 
    @ BARgraph  _adval,  1,   2,    16,   100, lines    
    LCDOut $fe,$C0,"R:" 
    @ BARgraph  _adval1,  2,   2,    16,   100, lines        
    PAUSE 300
    GoTo loop

Try above code. You may need to pause between the 2 adcin statements.

[mister_e]

Not sure that would help, i would suggest to check the analog source impedance first. Must meet the datasheet requirement. You could still increase the ADC_SAMPLEUS and or check what you maths will do.

As your maximum value range is 100... why not using a 8 Bit conversion instead?

[savnik]

I'm not clear on the problem you are having.

What is it doing or not doing? And what should it do instead?

I want to measure the audio input at the left and the right channel of a stereo coder (is for fm transmitter).
The left channel show on first line and the right channel show on second line on the 2X16 LCD.
But the LCD first show the left channel and after show the right channel alternately (very fast).

[Kamikaze47]

you may want to change the line:

LCDOut $fe,1,"L:"

to:

LCDOut $fe,1,$fe,2,"L:"

[mister_e]

There's something obvious that just jump to my face. You're using the default LCD assignment, and this use a.0, a.1... which is also your adc channels.

so unless you forgot something in your copy/paste, or i totally misunderstood something

EDIT: one more... Assuming you're using the internal OSC, you want to configure it properly... unless the whole beast will run @32KHz

OSCCON = %01100000 ' 4MHz

Don't forget to check your maths range... sure it will overflow the max 100 soon.

[savnik]

There's something obvious that just jump to my face. You're using the default LCD assignment, and this use a.0, a.1... which is also your adc channels.

so unless you forgot something in your copy/paste, or i totally misunderstood something

EDIT: one more... Assuming you're using the internal OSC, you want to configure it properly... unless the whole beast will run @32KHz

OSCCON = %01100000 ' 4MHz

Don't forget to check your maths range... sure it will overflow the max 100 soon.

I use external xtal 4mhz and the below LCD assignment

    DEFINE LCD_DREG PORTB		   
    DEFINE LCD_DBIT 4
    DEFINE LCD_RSREG PORTB		   
    DEFINE LCD_RSBIT 2
    DEFINE LCD_EREG PORTB		 
    DEFINE LCD_EBIT 3
    DEFINE LCD_BITS 4		      
    DEFINE LCD_LINES 2

[savnik]

Any idea for my problem;

[mister_e]

it worked fine here... sorry.

[Darrel Taylor]

I think Kamikaze47 had the right idea, but mistyped it.

LCDOut $fe,2,"L:"
<br>

[savnik]

I think Kamikaze47 had the right idea, but mistyped it.

LCDOut $fe,2,"L:"
<br>

Ok , i will try.