ADC with LED output

[skimask]

trisd = 0 'set portd to all outputs
adresult var byte 'set up a byte that will receive the a/d input from the ADC
portd = adresult 'set portd to the result value

[T.Jackson]

Please disregard post.

[skimask]

C:>del t.jackson

[Acetronics2]

Hi, Trent

It would be really very nice from you to stay upon PIC related subjects ...

Hope you understand it told like here ...

Thanks

Alain

[T.Jackson]

Alain,

You've heard the last of it. Cyas later.

[lester]

T Jackson,

Please moderate your responses...before i moderate them for you.

I dont see your post being PIC related, or supportive of users on the forum.

I have received a complaint about your post. Looking at the post in this thread i can see no good reason for it.

Please take heed, i don't have a lot of time, so my descisions will be swift!

Thank you for your attention.

[T.Jackson]

Sorry about this Lester.

It might be more appropriate if the posts are completely removed. Once again -- sorry for concerning you with this. You've heard the last of it, you have my word.

[inventor2008]

Hi, thanks for answering

I forgot to to set portD as out, and there was a short in my potentiometer. I defined portD as out and got this...


trisd =0
' Define ADCIN parameters
Define ADC_BITS 8
Define ADC_CLOCK 3
Define ADC_SAMPLEUS 50

adval var byte

TRISA = %11111111
ADCON1 = %00000010

Pause 500

loop: ADCIN 0, adval
portd = adval


Goto loop
End




then I got a different pot and It seems to work now.

Thanks!!!