Oh fuck, faild

Bei 27.94°C gehts nicht mehr höher?!? Der W-Wert steigt aber.


Code:

Code:
$regfile "m48def.dat"
$crystal = 8000000

Config Pinc.4 = Input
Portc.4 = 0

Config Portb = Output
Config Portd = Output
Config Lcdpin = Pin , Db4 = Portd.6 , Db5 = Portd.5 , Db6 = Portb.7 , Db7 = Portb.6 , E = Portd.7 , Rs = Portb.0
Config Lcd = 16 * 2

Config Adc = Single , Prescaler = Auto
Config Portc.0 = Input

Deflcdchar 6 , 7 , 5 , 7 , 32 , 32 , 32 , 32 , 32           '°C

Dim W As Word
Dim Z1 As Single
Dim Temp As Single

T Alias Pinc.4
L Alias Portb.1

Cursor Off

Do
If T = 1 Then
L = 1
W = Getadc(2)

Z1 = W
Z1 = Z1 - 786
Temp = Z1 * 0.035
Temp = Temp + 25.7

Cls
Locate 1 , 1
Lcd "Temp: " ; Fusing(temp , "##.##") ; Chr(6) ; "C"
Locate 2 , 1
Lcd W
Waitms 1000

Else
Cls
L = 0
End If

Waitms 1
Loop