ADC problem :(

[Kaldurenik]

Hi again every one :P
I have a problem i want the LCD to show 0 to 255 and not 255 to 0. In other words when the pot is on left side ( lowest ohm) it will show 0 on lcd and when its on highest it show 255 on screen. Right now it do the other way.
Here is the code any suggestions?

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2007 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 2007-11-30                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
Define	LOADER_USED	1


Define  LCD_DREG        PORTD
Define  LCD_DBIT        4
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
   PWM portc.5 ,ad2,1' Send a 50% duty cycle PWM signal out Pin7 for 100 cycles
   LCDout $fe, 1 
   LCDOUT "nacke:", #ad1
   LCDOUT $FE, $C0, "rygg:", #ad2






Symbol delay = ad4  ' use b0 as the delay variable 
delay = ad2         ' set the delay to 25 ms 

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

[Dave]

Kaldurenik, If all you want to do is reverse the way it is displayed then just say:
LCDOUT "nacke:", #(~ad1)

As long as ad1 is a byte variable it will work.

Dave Purola,
N8NTA

[Kaldurenik]

ok thanks i will try it in a moment and post a update then.

[Kaldurenik]

nope that did not work now when i change the pot left or right it dont work and! i get 65280 on the screen instead...

[mister_e]

ad1=255-ad1

[Acetronics2]

May be I'm simple minded ...

but crossing the 2 extreme taps wires of the pot might solve the problem ... as it seems Vref is 5v ...

Did I miss something ???

Alain

[mister_e]

yup, as long the OP didn't asked for a software solution and can do some hardware mods, unless you can't be wrong.

PS: 30cm de neige ici aujourd'hui

[Acetronics2]

Hi, Steve

For once, you have the "soft" solution ... keep on that way ....( no more guns, ... etc,etc )

Lots of LOL from le " maudit Français"

Ici, c'est Water: l'eau ...

Alain

[Kaldurenik]

well ad1 = 255 - ad1 make the pot "freeze" (not change number)
Any way we will try that the solution you posted before did work with the ~ but it increased to 1111111111111111 in bin. :O in other word 655xx or something like that.

[Dave]

Kaldurenik, I don't know how that can be? You have ad1,ad2,ad3,ad4 declared as byte variables unless you have changed them..... Using ad1 = ~ad1 if the variable is a byte should work.

Dave Purola,
N8NTA

[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!