پاسخ : *** ADC ***
Dim V As Word
Dim Vv As Single
Config Adc = Single , Prescaler = Auto , Reference = avcc
Start Adc
do
V = Getadc(0) 'baraye khandane adc
vv=v*0.0048875855327468230694037145650049
locate 1,1
lcd"v: ";vv;" " 'baraye lcd
loop
اگه این عدد رو به 1023 ضرب کنی میبینی 5 میاد
0.0048875855327468230694037145650049
ینی انالوگ به دیجیتال میکرو 1024 پله است( 10 بیتی) خوب ورودی هم همون adc 0 هست تو مگا 8 پایه 23 و تو مگا 32 و 16 پایه 40 رو با یه مقاومت 1 کیلو اهمی یا بیشتر کمتتر زیاد فرقی نداره به ولتاژ 0 تا 5 ولتی بزنی ولتاژت رو lcd نشون داده میشه :nice: :nerd:
Dim V As Word
Dim Vv As Single
Config Adc = Single , Prescaler = Auto , Reference = avcc
Start Adc
do
V = Getadc(0) 'baraye khandane adc
vv=v*0.0048875855327468230694037145650049
locate 1,1
lcd"v: ";vv;" " 'baraye lcd
loop
اگه این عدد رو به 1023 ضرب کنی میبینی 5 میاد
0.0048875855327468230694037145650049
ینی انالوگ به دیجیتال میکرو 1024 پله است( 10 بیتی) خوب ورودی هم همون adc 0 هست تو مگا 8 پایه 23 و تو مگا 32 و 16 پایه 40 رو با یه مقاومت 1 کیلو اهمی یا بیشتر کمتتر زیاد فرقی نداره به ولتاژ 0 تا 5 ولتی بزنی ولتاژت رو lcd نشون داده میشه :nice: :nerd:
دیدگاه