مشکل با سنسور ds18b20

[qmars_farahani]

سلام من تمام تاپیک های تو این انجمن و گوگل رو خوندم اما کسی این مشکل رو نداشته
من این سنسور رو با این کد راه اندازی کردم

[FONT=Yekan]'DS18B20 Temp Sensor By Behnam Zakizadeh @ 31.06.1392 [2013][/FONT]'www.avr64.com
'freeware


$regfile = "m8adef.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 16
$framesize = 32


Config Lcdpin = Pin , Rs = Portb.1 , E = Portb.2 , Db4 = Portb.3 , Db5 = _
 Portb.4 , Db6 = Portb.5 , Db7 = Portb.6
Config Lcd = 16 * 2
Config 1wire = Portb.0




Deflcdchar 0 , 8 , 20 , 8 , 32 , 32 , 32 , 32 , 32


Dim Ar(9) As Byte
Dim X As Integer
Dim Y As Single


Cls
Cursor Off
Lcd " DS18B20 Sensor"


Do
   1wreset
   1wwrite &HCC
   1wwrite &H44
   Wait 1
   1wreset
   1wwrite &HCC
   1wwrite &HBE
   Ar(1) = 1wread(9)
   Wait 1
   X = Makeint(ar(1) , Ar(2))
   Y = X / 16
   Lowerline
   Lcd Fusing(y , "#.&") ; Chr(0) ; "C" ; Spc(8)
Loop
[FONT=Yekan]End[/FONT]

حالا این فقط 3 حالت دما نشون میده 20 درجه و 36 درجه و 52 درجه
وقتی که میزارمش تو آب جوش 52 درجه نشون میده
مشکل کجاست؟

[qmars_farahani]

پاسخ : مشکل با سنسور ds18b20

دوستان این برنامه کاملا درسته و جواب میده
مشکل منم فقط توی یه r اضافی تو یکی از خط ها بود
برنامه ی بالا اصلاح شده و جواب میده