با سلام
اين برنامه كه اينجا قرار دادم خيلي سادس.
[HTML]$regfile = "m8def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto
Start Adc
Dim adc0 As Word
Do
adc0 = Getadc(0)
Print "ADC(0)= " ; adc0
Wait 1
Loop
End[/HTML]
توضيح اينكه اگه ولتاژ ورودي به ADC ميكرو 5 ولت باشه مقداري كه توسط تابع (Getadc(0 خونده ميشه 1023 هستش و به همين ترتيب مثلا اگه ولتاژ ورودي به ADC ميكرو 2.5 ولت باشه مقداري كه توسط تابع (Getadc(0 خونده ميشه 511 هستش و اگه ولتاژ ورودي به ADC ميكرو 0 ولت باشه مقداري كه توسط تابع (Getadc(0 خونده ميشه 0 هستش. خوب با توجه به اين توضيحات خيلي راحت ميتونيد با توجه به نيازتون برنامه رو تغيير بدين. يه عكس هم گذاشتم كه حالت تست شده رو كه خودم انجام دادم نشون ميده.
________________________
برنامه نويسي، الكترونيك(PE)
________________________