ADC problem :(

Printable View

- 3rd December 2007, 11:50
Kaldurenik

ADC problem :(

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?

Code:

'**************************************************************** '* 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
- 3rd December 2007, 11:57
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
- 3rd December 2007, 12:32
Kaldurenik

ok thanks i will try it in a moment :D and post a update then.
- 3rd December 2007, 13:05
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... :(
- 3rd December 2007, 15:20
mister_e

ad1=255-ad1
- 3rd December 2007, 17:23
Acetronics2

the "hard" solution ...

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
- 3rd December 2007, 17:43
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 :eek:
- 3rd December 2007, 18:08
Acetronics2

I was waiting for you ...

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
- 4th December 2007, 11:14
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.
- 4th December 2007, 12:07
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
- 4th December 2007, 14:52
Kaldurenik

Okey the code look like this now:

Code:

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?
- 4th December 2007, 14:54
Kaldurenik

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

Thanks again!