Hallo zusammen,
ich habe mal die Zeigerbewegung für ein "analoges" VU-Meter geschrieben.
Das funktioniert auch ganz gut, nur zappelt der Zeiger u.U. ziemlich wild herum. Hat jemand eine Idee, wie man eine Art künstliche Trägheit einbauen könnte, damit es sich wie ein echtes analoges VU-Meter verhält?

hier noch der Quellcode:

zusammenfalten · markieren

Delphi-Quellcode:

 
Procedure Zeiger( x : Integer; ZeichnungsFlaeche : TImage; ZeigerFarbe : TColor );
Var y : Integer;
    Mitte, Breite, Hoehe : Integer;
Begin
  Hoehe := ZeichnungsFlaeche.Height;
  Breite := ZeichnungsFlaeche.Width;
  Mitte := Breite div 2;

  With ZeichnungsFlaeche.Canvas do
   Begin
     Pen.Color := ZeigerFarbe;
     if x < Mitte then
       Begin
        y := Hoehe - Round( Sqrt( Sqr(Hoehe-10) - Sqr( Mitte-x ) ) );
       End
        Else
         y := Hoehe - Round( Sqrt( Sqr(Hoehe-10) - Sqr(x-Mitte) ) );

     Polyline([Point(Mitte,Hoehe), Point(x,y)] );
   End;
End;

btw.:

markieren

Delphi-Quellcode:

 
  Polyline([Point(Mitte,Hoehe), Point(x,y)] );

hmm ich das dürfte besser sein:

markieren

Delphi-Quellcode:

 
  moveto(Mitte,Hoehe);
  lineto(x,y);

immer nur um ein grad veringern also keine Sprünge.

Sieht schon ein bisschen besser aus. Danke!

Ist nur so ne idee, leg doch einfach ne pause ein zwischen dem erneuten Zeichnen des Zeigers und da kannst dann ne Trägheit einbauen, irgendein Fakter der die Pause verkürzt und je länger du zeichnen musst nimmt der Faktor halt ab damit der Zeiger schneller steigt (wie zweideutig )

mfg phlux