Messwerte mit Farbe darstellen

[shmia]

Die funktion Round muss weg:

Delphi-Quellcode:

var
   blend : double;
blend := AnzeigeWinkel/DrehWinkel;

Ausserdem darf DrehWinkel niemals 0 sein.
AnzeigeWinkel muss zwischen 0 und maximal DrehWinkel sein.
Hier bietet sich Assert() als Sicherheitsnetz an:

Delphi-Quellcode:

var
   blend : double;
Assert(Drehwinkel > 0, 'Drehwinkel ist nicht > 0');
Assert(AnzeigeWinkel >= 0, 'AnzeigeWinkel negativ');
Assert(AnzeigeWinkel <= DrehWinkel, 'AnzeigeWinkel zu gross');
blend := AnzeigeWinkel/DrehWinkel;