کد راه اندازی سنسور دمایDS18B20

[leader]

سلام به دوستان.واسه راه اندازی سنسور ds18b20 توی زبان برنامه نویسیpicbasic کد لازم دارم( اگر سروران لطف کنند) البته منظورم کد هایowout وowin و تبدیلاتش هست.

[milad066]

پاسخ : کد راه اندازی سنسور دمایDS18B20

سلام به دوستان.واسه راه اندازی سنسور ds18b20 توی زبان برنامه نویسیpicbasic کد لازم دارم( اگر سروران لطف کنند) البته منظورم کد هایowout وowin و تبدیلاتش هست.

سلام این دو پروژه ان..یکی باlm35سنسور دما که
ودیگری باds18b20

http://s3.picofile.com/file/7933713545/damasanj_lm35_ds18b20.rar.html

[rezaasgharian]

پاسخ : کد راه اندازی سنسور دمایDS18B20

بسم الله الرحمن الرحیم

....دو پروژه ان..یکی باlm35سنسور دما ....

با تبریک سال نو ، در داخل فایل های ارسالی شما پوشه هایی به نام "poro" وجود دارد ، اینها چی هستند؟ ممکن است توضیح بفرمائید.

متشکرم

[leader]

پاسخ : کد راه اندازی سنسور دمایDS18B20

سلام این دو پروژه ان..یکی باlm35سنسور دما که
ودیگری باds18b20

http://s3.picofile.com/file/7933713545/damasanj_lm35_ds18b20.rar.html

تشکر از لطف شما دوست عزیز. این کد تبدیل سنسور ds18b20توی دماهای زیر صفر خطا داره.توی بعضی از تبدیلات توی نت که بگردین از شیفت و تفریق و تقسیم و ... استفاده کرده اند.جالب اینجاست که هر کسی از یک روش خاصی برای راه اندازی این سنسور استفاده کرده.

[taherkhani.mt]

پاسخ : کد راه اندازی سنسور دمایDS18B20

کد نمایش دما در PIC16F84a:

[LEFT]DQ VAR PORTA.0 ' One-wire data pin
busy var bit
RAW var word
Sign var byte            'علامت + یا - دما
Sign_bit var RAW.bit11    'در صورت منفی بودن دما این بیت 1 می باشد


main:
gosub ClrScr            'پاک کردن صفحه
gosub Read_Sensor        'خواندن سنسور
gosub Calculate_Temp    'محاسبه دما 
gosub  Shot_Time        'نمایش دما
pause 100
GoTo main  
End
'=============================
ClrScr:
LCDOUT $FE, 1, $FE, $0C ' Clear display, cursor off 
return
 '----------------------------------------------------------


Read_Sensor: 
           OWOUT   DQ, 1, [$CC, $44]
 '----------------------------------------------------------
Waitloop2:
   OWIN    DQ, 4, [Busy]                        ' Read Busy value
   IF      Busy = 0 THEN Waitloop2            ' still busy? , Yes, goto Wait ..!
   OWOUT   DQ, 1, [$CC, $BE]                'Read scratchpad memory.
   pause 800
   OWIN    DQ, 2, [RAW.Lowbyte, RAW.Highbyte]' reading DS18B20 two bytes.
   pause 100
RETURN 
'-----------------------------------------------------------------    
 Calculate_Temp:               ' Degrees Celsius calculation from the raw value
    Sign  = "+"
    IF sign_BIT = 1 THEN
       sign   = "-"  
       RAW=~RAW+2
    endif
    RETURN   
 '-----------------------------
 Shot_Time:
gosub ClrScr
LcdOut $FE, 1, "RAW:",HEX RAW  ,"  ",dec RAW
LCDOut $fe, $c0,"Tmp: ",sign, dec (RAW*100)/1600,".",dec2 (RAW*100)/16 , " C" 
 return


[/LEFT]

اینم مدارش: