Help with DS18B20 program

[CocaColaKid]

We had a problem similar to this but with the DS1620. The sensors actually measure the temperature of the circuit board, in your case the breadboard. How close is the voltage regulator to the sensor? Can you move the sensor to the opposite end of the board or remotely mount it? This will give you the most accurate temperature measurement since the thermal pathway is the pins on the part itself and not the plastic piece.

[presario1425]

How close is the voltage regulator to the sensor?

I'm using one of those cheap $4.00 (400 contacts) breadboards. So, my sensor is probably sitting only 1.5" away and directly across the regulator. I will remount the sensor at the bottom right corner of the breadboard (since my regulator is on the upper left corner) and see what happens. Will post results as soon as I can. Thanks for your comments/suggestions.

[CocaColaKid]

With it being that close I'm quite certain that is the source of your problems. Any little bit of heat and the sensor will find it.

[lebanon]

hello dears..
May anyone helps me to get the code of the ds18b20 on proton ide that will show me the temperature on a graphical lcd?I used this one but it's not working can anyone find the error in this code??

Device 16F877
XTAL=4
Declare LCD_DTPORT PORTB
Declare LCD_RSPIN PORTC.7
Declare LCD_RWPIN PORTC.6
Declare LCD_ENPIN PORTC.5
Declare LCD_CS1PIN PORTC.4
Declare LCD_CS2PIN PORTC.3
Declare LCD_TYPE GRAPHIC
GLCD_CS_INVERT On
INTERNAL_FONT On
FONT_ADDR=0
Declare ADIN_RES 10
Declare ADIN_TAD 2_FOSC
Declare ADIN_STIME 50
ADCON1 = %10000000
TRISA = $ff
TRISB = $00
TRISC =%11000000
TRISD =%11000000
DelayMS 200
Dim SPTemperature As Word ' scratchpad temperature storage
Dim Reserved0 As Byte ' scratchpad reserved variable
Dim Reserved1 As Byte ' scratchpad reserved variable
Dim Reserved2 As Byte ' scratchpad reserved variable
Dim Reg_TH As Byte ' scratchpad TH register or User Byte 1
Dim Reg_TL As Byte ' scratchpad TL register or User Byte 2
Dim Reg_Config As Byte ' scratchpad configuration register
Dim CRC As Byte ' scratchpad CRC register
Dim Temperature As Float ' temperature result
Symbol DQ = PORTD.1 ' one-wire data pin
While 1=1
OWrite DQ, 1, [$CC, $44] ' skip ROM search And start temperature conversion
While ORead DQ, 4 = 0 ' check for still busy converting
Wend

OWrite DQ, 1, [$CC, $BE] ' skip ROM search And read the temperature
ORead DQ, 0, [SPTemperature.LowByte, SPTemperature.HighByte, Reg_TH,Reg_TL,Reg_Config,Reserved0,Reserved1,Reser ved2,CRC]
Temperature = 0.0625 * SPTemperature ' convert to degrees C
Print At 1,1,@Temperature, "C",
Wend
End

Many thanks