ADC with LED output

[inventor2008]

hi

I recently moved from my bs2 to pic's and I have a pic16f877A that I only recently got to work, and I've already gotten it to do most of basic stuff, blink and LED, run an LCD, run a servo, and so on... and today I started messing with the ad converter and just loaded one of the demo adc programs that came with pbp, to see what would happen and I got it to work, but It displays the digital value of portA.0 on the LCD and I was wondering would it be possible to display the value on portA.0 with LED's (say on portD) instead of the LCD so instead of seeing "Value : (and what ever number)" I would see 8 LED's displaying the binary value of portA.0.

Thanks

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

[mister_e]

hi

I recently moved from my bs2 to pic's and I have a pic16f877A that I only recently got to work, and I've already gotten it to do most of basic stuff, blink and LED, run an LCD, run a servo, and so on... and today I started messing with the ad converter and just loaded one of the demo adc programs that came with pbp, to see what would happen and I got it to work, but It displays the digital value of portA.0 on the LCD and I was wondering would it be possible to display the value on portA.0 with LED's (say on portD) instead of the LCD so instead of seeing "Value : (and what ever number)" I would see 8 LED's displaying the binary value of portA.0.

Thanks



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

Hi inventor2008,
Skimask gave you nice tips. Since you're a beginner, i'll give you a working example of it.. just to compensate some "unwanted post" in your thread.



<font color="#000000"> <font color="#008000">'
' this assume you use a 20MHz crystal
' &amp;
' PM as assembler
'
</font>@ device hs_osc, lvp_off
<font color="#000080">DEFINE </font>OSC 20

TRISA = 255 <font color="#008000">' PORTA = INPUT
</font>TRISD = 0 <font color="#008000">' PORTD = OUTPUT

</font><font color="#000080">DEFINE </font>ADC_BITS 8 <font color="#008000">' ADCIN resolution (Bits)
</font><font color="#000080">DEFINE </font>ADC_CLOCK 3 <font color="#008000">' ADC clock source (Frc)
</font><font color="#000080">DEFINE </font>ADC_SAMPLEUS 50 <font color="#008000">' ADC sampling time (uSec)

</font>ADResult <font color="#000080">VAR BYTE

</font>PORTD=0 <font color="#008000">' Clear all LEDs on PORTD

</font>Start:
<font color="#000080">ADCIN </font>0,ADResult
PORTD = ADResult
<font color="#000080">GOTO </font>Start

HTH

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