ADC problem :(

[Kaldurenik]

Okey the code look like this now:

Define	LOADER_USED	1


Define  LCD_DREG        PORTD
Define  LCD_DBIT        8
Define  LCD_RSREG       PORTE
Define  LCD_RSBIT       0
Define  LCD_EREG        PORTE
Define  LCD_EBIT        1

' Define ADCIN parameters
Define	ADC_BITS	   8	' Set number of bits in result
Define	ADC_CLOCK	   3	' Set clock source (3=rc)
Define	ADC_SAMPLEUS  50	' Set sampling time in uS
ad1	var	BYTE	
ad2 var	BYTE	    ' Create adval to store result
ad3	var	BYTE
ad4 Var BYTE
   TRISA = %11111111	' Set PORTA to all input
   ADCON1 = %00000010	' Set PORTA analog
   Low PORTE.2		    ' LCD R/W line low (W)
   'Pause 500		    ' Wait .5 second
 
main:	
   ADCIN 0, ad1		        ' Read channel 0 to adval
   ADCIN 1, ad2		        ' Read channel 1 to adval
  ' ADCIN 3, ad3 	        ' Read channel 3 to adval
    
   PWM portc.4 ,ad1,1' Send a 50% duty cycle PWM signal out Pin7 for 100 cycles
   ad1 = ~ad1
ad2 = ~ad2  
   LCDout $fe, 1
   LCDOUT "nacke:", #ad1
   LCDOUT $FE, $C0, "rygg:", #ad2
   ad4 = ad2






Symbol delay = ad4  ' use b0 as the delay variable 
 

loop: high portD.0              ' turn on Q1 
      pause ad4         ' wait 25 ms        
      low portD.0               ' turn off Q1 
      high portD.1              ' turn on Q2 
      pause ad4         ' wait 25 ms 
      low portD.1               ' turn off Q2 
      high portD.2              ' turn on Q3 
      pause ad4         ' wait 25 ms 
      low portD.2               ' turn off Q3 
      high portD.3              ' turn on Q4 
      pause ad4         ' wait 25 ms 
      low portD.3               ' turn off Q4 
 
   Goto    main        ' Do it forever
   
        End

	End

The problem is that its "slow" to update on the screen now. its no "smooth" jumps its like 5-15-70-100
(its 0 to 255)
ofc its all about how fast i move it.
but maybe the fastest way is just to turn it around ye?

[Kaldurenik]

Ok i solved it thanks every one! The
ad1 = ~ad1
ad2 = ~ad2
helped alot

Thanks again!