ProgressBar nur zum Teil gefüllt (wie ein Tank beim Auto)

Airborne · Verfasst: So 06.11.05 12:18

Delphi-Neuling sucht Hlfe!

Liebe Delphine und Delphianer!

Ich muss für meinen Informatik-Unterricht eine Tankrechnung erstellen, mit etlichen Funktionen, doch bei einer Funktion bin ich hängen geblieben:

eingegeben werden soll: getankter Kraftstoff in Liter
und Volumen des Tanks

Progressbar soll beim Tanken mitlaufen,
Volumen des Tanks entspricht 100%
Wenn ich nun angebe, dass der Tank 60Liter Volumen hat, der Kunde aber nur 30 Liter Tank, soll die Progress bar bis 50% laufen, und dann anhalten. Bei mir läuft sie aber durchgängig bis 100% voll.

Wo steckt der Fehler??
Bitte um Hilfe
Gruß
Markus

_________________
"Life is not a matter of counting the years,
it's making the years count! "

DarkLord05 · Verfasst: So 06.11.05 12:25

Um da zu helfen musst / solltest du mal ein bisschen von dem Quelltext zeigen, da es sonst schwer ist zu sagen was falsch ist.

starsurfer · Verfasst: So 06.11.05 12:29

ohne deinen code wissen wir nich wo dein fehler stecken könnte

mal wild vermutet: du hast n timer genommen und vergessen den aus zu schalten

_________________
GEIZ IST GEIL! - Ihr Sozialamt

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Du brauchst Nur mit eine Variable. bsp.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var
  Form1: TForm1;
  i:Integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  i:=StrToInt(Edit1.Text);
  Progressbar1.Position:=i;
  if Progressbar1.Position=I then Timer1.Enabled:=False;
  Progressbar1.stepit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Progressbar1.Position:=0;
  Timer1.Enabled:=True;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme