Potenzrechnung

[poterp]

Danke, was ich nicht verstehe, ich kriege ab und zu die antwort richtig aber alles was über 100% kommt falsch raus, zb:
800 von 72 bezogen auf 100 kommt als ergbnis raus
Gauge: 92%
Label:11,111111.
es kann sein, dass der Faktor wird irgendwo ignioriert.
mit der Taschenrechner rechne ich so.
800/72 und dann x 100
800/72= 11,1111 was der Label als ergbnis rausgibt und wenn ich mal 100 multipliziere bekomme ich 1111,11111 raus.
mache ich was falsch da?

[Klaus01]

Hallo Peter,

mit diesem Code (mit TGauge):

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i, x, y,faktor: Integer;
  ergebnis,ergebnis2: extended;
begin
  faktor:= StrToInt(Edit3.Text);
  x:=StrToInt(Edit1.Text);
  y:=StrToInt(Edit2.Text);
  Ergebnis:=  x / y;
  if ergebnis > 1 then
    gauge1.Max:=faktor*(trunc(ergebnis)+1)
  else
    gauge1.Max:=faktor;
  label2.Caption:='max: '+IntToStr(Gauge1.Max);
  Ergebnis2:= ergebnis*faktor;
  Gauge1.Position := gauge1.Position + 1;
  if gauge1.Position >=  ergebnis2 then
    Timer1.enabled :=false;
  Label1.Caption:= Edit1.Text +'/'+Edit2.Text+' * '+Edit3.Text+'= '+ format('%.2f',[ergebnis2]);

end;

Bekomme ich es richtig heraus, siehe Bild.
Ich weiß nicht was Du anders machst.
Arbeitet TGauge anders als TProgressbar?

Grüße
Klaus

[Klaus01]

So, ich nochmal.

1. Denkfehler
TGauge kann maximal 100% anzeigen.
2. Die Rechnung ist richtig wenn TGauge bei 800/72 -> 92% anzeigt und der Maximalwert bei 1200 steht.
0,92 * 1200 = 1111,111
3. Um Prozentwerte > 100% dartzstellen ist TGauge nicht die richtige Wahl.

Grüße
Klaus

[poterp]

es gibt eine kleine unterschied zwischen Gauge und Progressbar und was du hier gemacht hast ist eine mischung aus Beiden. ist deine Test mit einem Progressbar oder Gauge gemacht worden?

es gibt keinem

Delphi-Quellcode:

Gauge1.Max  //

richtig ist

Delphi-Quellcode:

Gauge1.MaxValue

aber es gibt einem

Delphi-Quellcode:

Progressbar1.Max

Ich habe deine quelle jetzt mit nem Progressbar probiert. dann bekomme ich eine Fehlermeldung:
'Edit3 is not a Valid Integer' es gilt auch für Edit 1 und 2

[3_of_8]

Dann steht da vermutlich keine Zahl drin.

[poterp]

schon beim start kommt die meldung, hat man keinen zeit da was anzugeben

[Klaus01]

Hast Du beim Timer die Eigenschaft "enabled" im Object Inspector auf false gesetzt?

Grüße
Klaus

[poterp]

Bingo, danke es lauft. Musste doch der timer auf false setzen