Thema: Progress Bar

Einzelnen Beitrag anzeigen

BWRobert

Registriert seit: 30. Sep 2011
Ort: Geislingen/steige
4 Beiträge
 
Delphi 7 Personal
 
#1

Progress Bar

  Alt 30. Sep 2011, 16:48
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:
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
Robert Mandrysch
  Mit Zitat antworten Zitat