Problem mit Temperaturregelung

[MagicWSmoke]

Dim Temp As Word
...
Const Faktor = 5 / 1023   ' 0.00488
...
Temp = Temp * Faktor

Integer-Variablen enthalten keine Nachkommastellen, eine Integer-Variable mal Konstante < 0 = 0