ورود

نسخه کامل مشاهده نسخه کامل : ارسال اطلاعات رنگ به كامپيوتر



mahmud4532
01-07-2010, 11:07
سلام دوستان:

من مي خواهم با يك عدد ميكرو avr مثلا مگا8 مقادير 0 تا 1 ولت به رنگ آبي در يك برنامه گرافيكي نصب شده روي كامپيوتر و 4 ولت به رنگ سبز و 5 ولت به رنگ قرمز را كه از خروجي يك آپ امپ ميگيرم ديجيتال كرده و با پورت usb به كامپيوتر و برنامه گرافيكي مذكور وصل نمايم.

برنامه را در بيسيك نوشته ام ولي نمي دانم ولتاژ را چگونه در آن قرار دهم.

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 19200
Config Serialout = Buffered , Size = 20

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Dim A As Word
Config Portb = Input

Portb = 255

A = 0

Main:

Do

A = Pinb

Printbin A
Do
A = Getadc(1)
Waitms 10
Print A
Loop
End

لطفا راهنمايي و كمك كنيد.