Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Messwerte mit Farbe darstellen

    Delphi
    by shmia, 1. Jun 2006
  Die funktion Round muss weg:
  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:
  var
  blend : double;
  Assert(Drehwinkel > 0, 'Drehwinkel ist nicht > 0');
• Forum: Multimedia

  Re: Messwerte mit Farbe darstellen

    Delphi
    by shmia, 24. Mai 2006
  Schau mal hier:
  http://www.delphipraxis.net/internal_redirect.php?t=67805
  Die Farbe errechnet sich dann so:
  farbe := ColorBetween(clBlack, clWhite, messwert / 255.0):
  Wenn du einen Regenbogen willst, dann schnapp dir die Unit SpectraLibrary.pas
  aus http://www.efg2.com/Lab/Library/Delphi/Graphics/ColorLines.ZIP