multiple switches~one ADC

[mackrackit]

Never cared much for the POT command. Seems not as stable. But that is me.

I am going to look at your other option. Sounds interesting.
Thanks!

[Acetronics2]

Never cared much for the POT command. Seems not as stable. But that is me.

!

Hi, Dave

I generally do not use POT ... but for 10-12 keys or less result is reliable with a reasonnable range of values for each key.

soooo, I do it simple ( for once !!! )

I'll try dig out the EPE Keybd ... it's somewhere in my HDD !!!

Alain

[naga]

Hi All, tried this code, its working but is there any other reliable way....

adval var byte ' Create adval to store result

TRISA = %11111111 ' Set PORTA to all input
ADCON1 = %00000010 ' Set PORTA analog
Pause 500 ' Wait .5 second
loop: ADCIN 0, adval ' Read channel 0 to adval
Lcdout $fe, 1 ' Clear LCD
Lcdout "Value: ", DEC adval ' Display the decimal value
Select case adval
CASE is <51
high porte.0
cASE 102
high porte.1
CASE 153
high portd.2
CASE 204
high portd.3
CASE is >225
low porte.0 : low porte.1 : low portd.2 : low portd.3
Pause 150
END SELECT
pause 100
Goto loop
End
* this below line is not accepting :ERROR
case >1 to <53
'do some thing
case >53 to < 102
'do some thing..
So On.....

[mackrackit]

That way looks good to me.

This part ...

* this below line is not accepting :ERROR
case >1 to <53
'do some thing
case >53 to < 102
'do some thing..
So On.....

Work something like this into your code, maybe before the CASE part. If the conditions are not met then the code will run to the CASE select part.

IF (ADVAL > 1) AND (ADVAL < 53) THEN ....

[naga]

Thanks mackrackit, IF (ADVAL > 1) AND (ADVAL < 53) THEN ... this code is working..
Since we using ADCIN for switches, should be able to TOGGLE the ports.. I have tried with WHILE..WEND also.. no luck.. Could you pls ..Thanks again.

[mackrackit]

Can we see your WHILE/WEND code? Or better yet your new and updated code.
But something like this should work

ADCIN 0, adval
WHILE (ADVAL > 1) AND (ADVAL < 53)
do something
ADCIN 0, adval
WEND
SELECT CASE ....

[naga]

Hi, The debounce was the problem..Following both codes are working after adding some delay.. I didnt use CASE.. Pls suggest if it needs to be fine tuned..Thanx..
if (ADVAL > 200) AND (ADVAL < 256) THEN
toggle porte.0
pause 150
endif
-----------------------------------------------
ADCIN 0, adval
WHILE (ADVAL = 255) 'AND (ADVAL < 256)
toggle porte.0
pause 150
ADCIN 0, adval
WEND