سلام دوست عزیز یک دنیا ممنونم از جوابت.ولی من اینو نوشتم و تو protus امتحان کردم ولی فقط روی LCD صفر ولت رو 0 نشون می ده و بالا تر از 0 رو 1023 نشون می ده.یعنی فقط همون دوتا رو داره فکر کنم تقریبا مثل 0 و 1 شده بنظرت مشکلش چیه؟ممنون
Dim A As Word
Do
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
A = Getadc(0)
Locate 1 , 1
Lcd A
Loop
End