من مشکل رو حل کردم با یک op07 ولی موقع نمایش عدد رو lcd
اعداد پرش دارن
حالا دوستان اگه می تونن لطف کنن بگن مشکل چیه
$r
egfile = "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
دیدگاه