دماسنج با ds18b20
دماسنج با ds18b20-مداری را که در زیر ملاحظه می فرمایید پروژه دماسنج با میکروکنترلر atmega8
و سنسور ds18b20 و lcd16*2 می باشد .
این مدار قادراست دمای محیط خود را با رقم اعشاری اندازه گیری نماید
سنسور این مدار را می توان با فاصله 1/5 متری از مدار سیم کشی
کرد که یکی از مریت های این دماسنج می باشد.
دماسنج با ds18b20
مزیت دیگر این دما سنج دقت با 0/1 اعشاری می باشد
که برای دماهای دقیق مثلا ماشین جوجه کشی مناسب می باشد.
مدار با ولتاژ 5 ولت رگله شده کارم می کند که می توانی از یک رگلاتور 5 ولت استفاده نمایید
این دماسنج بواسطه نمایش دمای اعشاری برای ساخت ماشین جوجه کشی مناسب می باش
‘———————www.pc21.ir————————-
$regfile = “m8def.dat”
$crystal = 1000000
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.3 , _
Db6 = Portd.2 , Db7 = Portd.1 , E = Portd.5 , Rs = Portd.7
Config Lcd = 16 * 2
Config 1wire = Portc.5
‘———————www.pc21.ir————————-
,Dim f As Byte
Dim I1 As Byte
Dim I2 As Byte
Dim I As Integer
Dim Temp As Single
Config Single = Scientific , Digits = 1
‘———————www.pc21.ir————————-
Do
1wreset
If Err = 1 Then
Cls
Lcd ” Sensor Err ”
Else
1wwrite &HCC
1wwrite &H44
Waitms 500
1wreset
1wwrite &HCC
1wwrite &HBE
I1 = 1wread()
I2 = 1wread()
I = Makeint(i1 , I2)
Temp = I / 16
cls
Locate 1 , 1
Lcd “www.pc21.ir ”
Locate 2 , 1
lcd temp
End If
Wait 3
Loop
‘———————www.pc21.ir————————-