خواندن دمای منفی از سنسور ds18b20 با بسکام

[hamzehh]

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

[hamzehh]

پاسخ : خواندن دمای منفی از سنسور ds18b20 با بسکام

کسی اطلاعاتی در این زمینه نداره؟

[hamzehh]

پاسخ : خواندن دمای منفی از سنسور ds18b20 با بسکام

این هم برای کسانی که اطلاعاتی ندارن یا دارن و دوست ندارن مطرح کنن:

Dim Sc(9) As Byte

Dim Temperatur As Integer

Dim Celsius As Single



Print "------------------------- Start ---------------------"

Do

1wreset

 1wwrite &HCC

 1wwrite &H44

 Waitms 1000

 1wreset

 1wwrite &HCC

 1wwrite &HBE

 Sc(1) = 1wread(9)

 Waitms 500



Temperatur = Makeint(sc(1) , Sc(2))

Celsius = Temperatur / 16



Print "Temp:" ; Celsius

Print "------------------------"

Print

Loop

End

نمایش دما از 50- تا 125+ درجه سانتیگراد