Problem gelöst! Es lag an der Zeit. 750 ms haben es behoben. Hier der korrekte Code.


Code:
1wreset                                                     'reset the device
1wwrite &HCC                                                'SKIP ROM command
1wwrite &H44                                                'CONVERT T
Waitms 750                                                  'read ROM command

1wreset                                                     'reset the device
1wwrite &HCC                                                'read ROM command
1wwrite &HBE 'read ROM command
'For I = 1 To 2
Ar(1) = 1wread()                                            'place into array
Ar(2) = 1wread()

Shift Ar(1) , Right , 1

Locate 1 , 1


Lcd Ar(1) ; "." ; Hex(ar(1));

Locate 2 , 1
'Temperatur = Ar(1)

Lcd Ar(2) ; "." ; Hex(ar(2));