Forum: Sonstige Fragen zu Delphi
Delphi
by Nikolas,
2. Nov 2007
Die Zeit wird eher beim lautstärke setzen und nicht bei der entfernungsberechnung verbraten.
Du könntest zum einen das Mouse-move Event nehmen und nur was machen, wenn sich die Maus bewegt hat, (vgl. Klaus), oder du merkst dir die aktuelle lautstärke undveränderst sie nur, wenn der neue Wert mehr als 5% davon abweicht.
Stoppe doch einfach mal die Zeit um 10000 mal die Entfernung zu...
Forum: Sonstige Fragen zu Delphi
Delphi
by Nikolas,
2. Nov 2007
topx:=abs(PC031.Top-shape1Top);
leftx:=abs(PC031.left-shape1left);
entfernung:=(250*trunc(ntewurzel(2,trunc(power(leftx,2)+power(topx,2)))));
if entfernung>65000 then entfernung:=65000 else;
SetMasterVolume(MasterVolumeControl,65000-entfernung);
{Lautstärke des PCs}:=floattostr(65000-entfernung); //6500 als maximaler Lautsärkewert
das kann man aber deutlich schöner machen.
a) die...