Zitat von
mkinzler:
Könnte man mit DIV erreichen
hehe, witzbold
Ne aber so weit war ich schon...
@Tubos
Interpolation ist ja mehr für Grafiken, aber kann man sicher etwas für meine Zwecke von anwenden, aber gute Idee muss ich mal suchen.
// Edit:
ich glaub ich hab es jetzt soweit hingewurstet das es funktioniert...
Delphi-Quellcode:
function Adapt(Value,Target,Tolerance:Extended):Extended;
var
MinTolerance,MaxTolerance:Extended;
begin
Result:=Value;
MinTolerance:=Target - ((Target / 100) * (Tolerance + 1));
MaxTolerance:=Target + ((Target / 100) * (Tolerance + 1));
if NOT ((Value >= MinTolerance) AND (Value <= MaxTolerance)) then
begin
Result:=(Target + Value) / 2;
end;
end;
vllt. hat ja trozdem etwas besseres?
//Noch ein Edit:
Ich glaub ich bin zu blöd dafür irgendwie geht das nicht so wie ich mir das vorstelle, oder ich sollte einfach schlafen gehen und Morgen weitermachen...
Daniel M.
"The WM_NULL message performs no operation. An application sends the WM_NULL message if it wants to post a message that the recipient window will ignore."