Progress Bar

**BWRobert**

Hallo,

Ich habe ehrlich lange gesucht aber nichts gefunden, was mir erklärt, wie ich eine Progressbar vernünftig in mein Programm einfüge

Ich habe seit 3 Wochen an meiner Schule Informatik und habe mal ein wenig herum probiert ... Da kam mir die Idee einen kleinen "Kalorienzäher" zu entwickeln

Hier der Code:

markieren

Code:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    ProgressBar1: TProgressBar;

    EdFruehstueck: TEdit;

    EdMittag: TEdit;

    GroupBox1: TGroupBox;

    ChWeiblich: TCheckBox;

    ChMaennlich: TCheckBox;

    EdAbend: TEdit;

    BuRechne: TButton;

    BuEnde: TButton;

    PaEingenommen: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    PaTag: TPanel;

    EdEssen4: TEdit;

    EdEssen5: TEdit;

    EdEssen6: TEdit;

    EdEssen7: TEdit;

    EdEssen8: TEdit;

    procedure BuEndeClick(Sender: TObject);

    procedure BuRechneClick(Sender: TObject);

    procedure PaTagClick(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BuEndeClick(Sender: TObject);

begin

 close 

end;

procedure TForm1.BuRechneClick(Sender: TObject);

Var Zahl1, Zahl2, zahl3, zahl4, Zahl5,Zahl6, Zahl7, Zahl8, Zahl9 : Real;

begin

 Zahl1:= StrToFloat (Edfruehstueck.Text);

 Zahl2:= StrToFloat (EdMittag.text);

 Zahl3:= StrToFloat (EdAbend.text);

 Zahl5:= StrToFloat (EdEssen4.text);

 Zahl6:= StrToFloat (EdEssen5.text);

 Zahl7:= StrToFloat (EdEssen6.text);

 Zahl8:= StrToFloat (EdEssen7.text);

 Zahl9:= StrToFloat (EdEssen8.text);

 Zahl4:= Zahl1+Zahl2+Zahl3+Zahl5+zahl6+zahl7+zahl8+zahl9;    //Kalorien werden zusammengerechnet

 PaEingenommen.Caption:= FloatToStr (Zahl4);

end;

procedure TForm1.PaTagClick(Sender: TObject);

Var Zahl7 : Real;

begin

 if ChMaennlich.Checked then Zahl7:=2400;

 if ChWeiblich.checked then Zahl7:=1900;

 PaTag.Caption:= FloatToStr (Zahl7);

end;

end.

Nun wollte ich eine Progressbar einfügen, die Anzeigt wie viel Kalorien man am Tag schon von den Benötigten gegessen hat. (Dient zur Veranschaulichung)
Und so nebenbei: Wisst ihr vielleicht warum ich erst auf das Pannel Tag klicken muss damit die Kalorienanzahl angezeigt wird? (Man muss ja erst Männlich oder Weiblich auswählen)

Vielen Dank schonmal!

Grüße Robert

Progress Bar

Progress Bar

Forumregeln