Mathematiknachhilfe...

[Namenloser]

128*x+255*(1-x), wobei x ein Wert zwischen 0 und 1 ist.

[Muellermilchtrinker]

127+128*(x/100). x von 0 bis 100 %.

EDIT: Erste 128 durch 127 geändert.

[DeddyH]

Delphi-Quellcode:

function KomischerProzentwert(Prozent: integer): integer;
const
  VALMAX = 255;
  VALMIN = 128;
  OFFSET = VALMAX - VALMIN;
var
  PrzVal: integer;
begin
  PrzVal := Round(OFFSET / 100 * Prozent);
  Result := VALMAX - PrzVal;
end;

Danach sind die 50% allerdings 191, siehe Frederic.

[haentschman]

Zum Verständnis:

Hex 00 - 7F = 0 - 127 -> 00 = 0% , 7F = 100%
Hex 80 - FF = 128 - 255 -> 80 = 100% , FF = 0%

Bitte gebt mir für´s testen noch einen Moment. Ich muß noch eine Kleinigkeit vorher fertig machen, damit sich der Quark kompillieren läßt...

[Bjoerk]

Geradlinige Interpolation: y(x):= y1 + (y2-y1) / (x2-x1) * (x-x1)

ggf. y:= Round (...)

[Jens01]

Ich hätt da auch noch eine...

Delphi-Quellcode:

{ lineare Interpolation }
function interpol(tabwert, tab1, tab2, ergebnis1, ergebnis2: Double): Double;
begin
  Result := (((tabwert - tab1) / (tab2 - tab1)) * (ergebnis2 - ergebnis1)) + ergebnis1;
end;

[haentschman]

Danke an alle...

so paßt´s:
255 - Round((127 * (aPercent / 100)))

... und 50% ist 191... ihr habt ja Recht

[himitsu]

Zitat:

Hex 00 - 7F = 0 - 127 -> 00 = 0% , 7F = 100%
Hex 80 - FF = 128 - 255 -> 80 = 100% , FF = 0%

Wenn ich das ganz stur übersetze, würde ich wohl auf sowas kommen:

Delphi-Quellcode:

if ShortInt(aValue) < 0 then
  Result := (-ShortInt(aValue) - 1) * 100 div 127;
else
  Result := aValue * 100 div 127;

Sicher daß die $FF genau 0% entspricht und nicht 1.27% ?
Wenn 1.27%, dann entspricht es einfach Abs(ShortInt(aValue) / 1.27) , bzw. Abs(ShortInt(aValue) * 100 div 127)

[Aphton]

Anfangswert + (Endwert-Anfangswert) * ProzentuellerWert/100

Anfangswert = 255
Endwert = 128
ProzentuellerWert = 50

255 + (128-255) * 50/100
= 255 - 127 * 0.5
= 255 - 64
~ 191