دوستان سلام
من یک برنامه ساده برای adcنوشتم برای کنترل دما
در شبیه سازی مشکلی نیست ولی در مدار عملی اعدا روی lcd می پره به طوری که
نمیشه اعداد رو تشخیص داد
برای ورودی adcهم تر موکوپل رو وصل کردم به یک تقویت کننده
لطفا کمک کنید تا مشکل حل بشه
نمونه برنامه رو هم گذاشتم
$regfile = "M8def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Rs = Portd.0 , E = Portd.1 , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Dim A As Word
Dim B As Word
cursor off
Cls
Do
A = Getadc(5)
A = A / 4
Home : Lcd "temp"
Locate 2 , 7
Lcd A
Loop
من یک برنامه ساده برای adcنوشتم برای کنترل دما
در شبیه سازی مشکلی نیست ولی در مدار عملی اعدا روی lcd می پره به طوری که
نمیشه اعداد رو تشخیص داد
برای ورودی adcهم تر موکوپل رو وصل کردم به یک تقویت کننده
لطفا کمک کنید تا مشکل حل بشه
نمونه برنامه رو هم گذاشتم
$regfile = "M8def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Rs = Portd.0 , E = Portd.1 , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Dim A As Word
Dim B As Word
cursor off
Cls
Do
A = Getadc(5)
A = A / 4
Home : Lcd "temp"
Locate 2 , 7
Lcd A
Loop
دیدگاه