Messwerte mit Farbe darstellen

[Pinki]

Hallo ich bekomme Fehlermeldung:Ungültige Gleitkommaoperation!!
Hier erstmal der Link zum Thread RGB Funktion

Ich habe die übernommen aber bei blend wert definition mekert er
Hier der Code:

Delphi-Quellcode:

 blend := Round(AnzeigeWinkel/DrehWinkel); ////<<<<---- genau hier ist der Fehler/Bei z.B.blend:=0.5 zeigt er richtig die farbe
        LedColor := ColorsBetween([clGreen, clYellow, clRed],blend);
   //// und dann kommt die LED Grafik
with RecT do
        begin
        OldPen := SelectObject(DC,CreatePen(ps_Solid,1,0));
        OldBrush := SelectObject(DC,CreateSolidBrush(LedColor));
        while n > 0 do
        begin
      Dec(n);
      x := (ZentrumX + Trunc(Cos(LEDWinkel) * r1));
      y := (ZentrumY - Trunc(Sin(LEDWinkel) * r2));
      Ellipse(DC,x - LED_RADIUS, y - LED_RADIUS, x + LED_RADIUS, y + LED_RADIUS);
      LEDWinkel:=LEDWinkel-(Pi/8);
      end;

Woran kann es liegen Round???? oder? ergibt doch Integer Wert??

Grüss Pinki

[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;

[Pinki]

Hallo danke für den schnellen Tip aber gleiche Fehlermeldung kommt trotzdem.
Ich habe k.A. vielleicht spinnt der Winswitch nur :wall:

Grüss
Pinki
P.S.Drehwinkel ist vorgegeben.es kann ja Werte 180,270 und 360° haben.Division / Zero ausgeschlossen. :thumb: