Umrechnung DS1631 (zwei Bytes -> Temperaturwert)

[MagicWSmoke]

Aber wie das ohne Single gehen soll, ist mir noch nicht wirklich klar?

Z.B.

Dim Tmpr_tmp As Long
Dim Tmpr As Integer At Tmpr_tmp Overlay
Dim Temp_LSB As Byte At Tmpr Overlay
Dim Temp_MSB As Byte At Tmpr + 1 Overlay
Dim Out_Str As String * 8

Shift Tmpr , Right , 4 , Signed
Tmpr_tmp = Tmpr
Tmpr_tmp = Tmpr_tmp * 25
Shift Tmpr_tmp , Right , 2 , Signed
Tmpr = Tmpr_tmp
Out_Str = Str(Tmpr)
Print Format(Out_Str , "000.00")