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
لطفا راهنمايي و كمك كنيد.
من مي خواهم با يك عدد ميكرو 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
لطفا راهنمايي و كمك كنيد.