دماسنج ساده

[miladhaerian]

سلام
به دنبال یه کد ساده به زبان بیسیک واسه دماسنج میگردم که با سنسور lm35 و ال سی دی 2*16 باشه لطفا کامل کامل باشه که فقط کپی کنم :applause: :wow:

[MohammadMers]

پاسخ : دماسنج ساده

سلام
به دنبال یه کد ساده به زبان بیسیک واسه دماسنج میگردم که با سنسور lm35 و ال سی دی 2*16 باشه لطفا کامل کامل باشه که فقط کپی کنم :applause: :wow:

داداش از این استفاده کن:

$regfile = "m8def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Start Adc
Dim W As Word
Dim Input_mv As Single
Dim Input_v As Single
Dim Temp As Single
Cls
Locate 1 , 1
Lcd W
Temp = W * 0.421875 
Locate 2 , 1
Lcd "Temp:" ; Temp
Waitms 300
Loop
End

[miladhaerian]

پاسخ : دماسنج ساده

پس کو شروع حلقه

[mammmad96]

پاسخ : دماسنج ساده

پس کو شروع حلقه

سلام
ورودتون رو به انجمن تبریک میگم
خواهشا قبل از زدن تاپیک یه سرچ بکنید
https://www.google.com/search?sourceid=chrome-psyapi2&ion=1&espv=2&ie=UTF-8&q=%D8%AF%D9%85%D8%A7%D8%B3%D9%86%D8%AC%20%D8 %A8%D8%A7%20lm35&oq=%D8%AF%D9%85%D8%A7%D8%B3%D 9%86%D8%AC%20%D8%A8%D8%A7%20lm35&aqs=chrome..6 9i57j0l5.4046j0j7

[MeysaM m16]

پاسخ : دماسنج ساده

بعد از CLSتو برنامه یه DOبزاری حله دیگه
موفق باشی

داداش از این استفاده کن:

$regfile = "m8def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Start Adc
Dim W As Word
Dim Input_mv As Single
Dim Input_v As Single
Dim Temp As Single
Cls
Locate 1 , 1
Lcd W
Temp = W * 0.421875 
Locate 2 , 1
Lcd "Temp:" ; Temp
Waitms 300
Loop
End

[MohammadMers]

پاسخ : دماسنج ساده

پس کو شروع حلقه

داداش حالا شما اصلو بچسب فرعشو بیخیال!
خودت بنویس دیگه!
برنامه زیاد بود یه بخش اضافیشو (که توضیحات بود) حذف کردم اونم باهاش حذف شده دیگه