Hi

Ich bin gerade dabei einen timer zu bauen
http://img35.picoodle.com/img/img35/...em_f881e6f.png

Label5 dient nur zum speichern der sekunden und ist unsichtbar
bei Timer1 steht Enable auf false und Intervall auf 1000
Button3 ist nicht anwählbar
und das hier ist der wichtige Teil des code

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var H,M,S,SZ:Integer;
begin
H:= 60*60*StrtoInt(Edit1.Text);
M:= 60*StrtoInt(Edit2.Text);
S:= StrtoInt(Edit3.Text);
SZ:=H+M+S;
Label5.Caption:=IntToStr(SZ);
Timer1.Enabled := true;
Button1.Enabled:=false;
Button3.Enabled:=true;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
var sekunden,minuten,Stunden :Real;
    S1,EM,ES,EH,H,M,S: Integer;
begin
S:=StrtoInt(Label5.caption)-1; //hier kommt das
Label5.caption:=InttoStr(S1); //wo ich mir nicht ganz
S1:=StrtoInt(Label5.caption); //sicher bin ob das geht
Stunden:=(S1)/60/60;
minuten:=(stunden-Trunc(stunden))*60;
sekunden:=(minuten-Trunc(minuten))*60;
EH:=trunc(Stunden);
EM:=Trunc(MInuten);
ES:=Trunc(Sekunden);
Label1.caption:=InttoStr(EH)+':'+InttoStr(EM)+':'+InttoStr(ES);
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Button1.Enabled:=true;
Button3.Enabled:=false;
Timer1.Enabled:=false;
Label5.Caption:='00:00:00';
Edit1.Text:='00';
Edit2.Text:='00';
Edit3.Text:='00';
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
if Timer1.Enabled=true then
   Timer1.Enabled:=false;
if Timer1.Enabled=false then
   Timer1.Enabled:=true;
end;

mein Problem ist,dass das Label1 immer 0:0:0 anzeigt

könntest du das bild bitte in den Anhang packen

markieren

Delphi-Quellcode:

S:=StrtoInt(Label5.caption)-1; //Zeile1
Label5.caption:=InttoStr(S1); //Zeile2

Welchen Wert hat denn S1 zu diesem Zeitpunkt in Zeile2?

Du solltest die Zeit nicht in Label5 speichern sondern in der gesamten Klasse als Variable. Diese Variablen kannst du (auf gleiche Weise wie lokale Variablen) direkt unter den Abschnitt private bei TForm3 schreiben. Und damit brauchst du kein Label5, dein Problem verschwindet (wo ich auch nicht weis, was du machst, ausser das es falsch ist; S1 ist nicht initialisiert und keine Ahnung was du damit willst). du greifst einfach von jeder Methode auf diese Variable zu (das ist ja der Sinn der OOP).

Btw: Es ist günstig, wenn du deinen Komponenten auch schönere Namen gibst als Button1, Button2,... Dasselbe gilt für Variablen.

Hi,

hab mal ein paar Kommentare eingefügt.

Zitat von Darksniper:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var H,M,S,SZ:Integer;
begin
H:= 60*60*StrtoInt(Edit1.Text); // Wann wird Edit1.Text gefüllt??? Setze hier doch mal einen Haltepunkt und schau dir an was passiert
M:= 60*StrtoInt(Edit2.Text); // Wann wird Edit2.Text gefüllt???
S:= StrtoInt(Edit3.Text); // Wann wird Edit3.Text gefüllt???
SZ:=H+M+S;
Label5.Caption:=IntToStr(SZ); // Wenn die Edit´s nicht gefüllt werden, steht Label5 immer auf 0
Timer1.Enabled := true;
Button1.Enabled:=false;
Button3.Enabled:=true;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
var sekunden,minuten,Stunden :Real;
    S1,EM,ES,EH,H,M,S: Integer;
begin
S:=StrtoInt(Label5.caption)-1; //hier kommt das
Label5.caption:=InttoStr(S1); //wo ich mir nicht ganz
S1:=StrtoInt(Label5.caption); //sicher bin ob das geht
Stunden:=(S1)/60/60;
minuten:=(stunden-Trunc(stunden))*60;
sekunden:=(minuten-Trunc(minuten))*60;
EH:=trunc(Stunden);
EM:=Trunc(MInuten);
ES:=Trunc(Sekunden);
Label1.caption:=InttoStr(EH)+':'+InttoStr(EM)+':'+InttoStr(ES);
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Button1.Enabled:=true;
Button3.Enabled:=false;
Timer1.Enabled:=false;
Label5.Caption:='00:00:00';
Edit1.Text:='00';
Edit2.Text:='00';
Edit3.Text:='00';
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
if Timer1.Enabled=true then
   Timer1.Enabled:=false;
if Timer1.Enabled=false then
   Timer1.Enabled:=true;
end;

Es wäre auch noch schön zu wissen, was überhaupt im Timer passiert
Und was verdammt viel hilft ist eine ordentliche Sourcecodeformatierung -> Styleguide

Grüße

markieren

Delphi-Quellcode:

S:=StrtoInt(Label5.caption)-1;
Label5.caption:=InttoStr(S1);

=Falsch

markieren

Delphi-Quellcode:

S:=StrtoInt(Label5.caption)-1;
Label5.caption:=InttoStr(S);

=Richtig



aber es ist ein neues problem aufgetreten

der timer funktioniert aber das label kommt nicht nach mit dem aktualisieren

Zitat von angos:

Es wäre auch noch schön zu wissen, was überhaupt im Timer passiert
Und was verdammt viel hilft ist eine ordentliche Sourcecodeformatierung -> Styleguide

Grüße

hast du das auch auf deutsch
Englisch ist nicht gerade meine Stärke

das problem kann man schlecht erklähren.

für die dies nachbauen wollen.
das Bild habt ihr ja.

der Timer funktioniert
das sieht mann wenn man Label5 sichtbar macht

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Borland.Vcl.ExtCtrls, Borland.Vcl.StdCtrls, System.ComponentModel;

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button3: TButton;
    Timer1: TTimer;
    Label5: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.nfm}

procedure TForm3.Button1Click(Sender: TObject);
var H,M,S,SZ:Integer;
begin
H:= 60*60*StrtoInt(Edit1.Text);
M:= 60*StrtoInt(Edit2.Text);
S:= StrtoInt(Edit3.Text);
SZ:=H+M+S;
Label5.Caption:=IntToStr(SZ);
Timer1.Enabled := true;
Button1.Enabled:=false;
Button3.Enabled:=true;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
var sekunden,minuten,Stunden :Real;
    S1,EM,ES,EH,H,M,S: Integer;
begin
S:=StrtoInt(Label5.caption)-1;
Label5.caption:=InttoStr(S);
S1:=StrtoInt(Label5.caption);
Stunden:=(S1)/60/60;
minuten:=(stunden-Trunc(stunden))*60;
sekunden:=(minuten-Trunc(minuten))*60;
EH:=trunc(Stunden);
EM:=Trunc(MInuten);
ES:=Trunc(Sekunden);
Label1.caption:=InttoStr(EH)+':'+InttoStr(EM)+':'+InttoStr(ES);
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Button1.Enabled:=true;
Button3.Enabled:=false;
Timer1.Enabled:=false;
Label5.Caption:='00:00:00';
Edit1.Text:='00';
Edit2.Text:='00';
Edit3.Text:='00';
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
if Timer1.Enabled=true then
   Timer1.Enabled:=false;
if Timer1.Enabled=false then
   Timer1.Enabled:=true;
end;

end.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
var sekunden,minuten,Stunden :Real;
    S1,EM,ES,EH,H,M,S: Integer;
begin
  S:=StrtoInt(Label5.caption)-1;
  Label5.caption:=InttoStr(S);
  S1:=StrtoInt(Label5.caption);
  Stunden:=(S1)/60/60;
  minuten:=(stunden-Trunc(stunden))*60;
  sekunden:=(minuten-Trunc(minuten))*60;
  EH:=trunc(Stunden);
  EM:=Trunc(MInuten);
  ES:=Trunc(Sekunden);
  Label1.caption:=InttoStr(EH)+':'+InttoStr(EM)+':'+InttoStr(ES);
  Label1.repaint;
end;

Ein Label1.repaint hilft auch nicht?

Grüße
Klaus

nein
hilft leider nicht

wenn ich repaint einbaue hängt label5 sogar noch stärker als label1

Alle Zeilen in denen ich was verändert habe sind auskommentiert, bzw. es ist so ein Pfeil dran, wenn ich etwas eingefügt habe.
Label5 kannst du rausschmeissen.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var H,M,S{,SZ}:Integer;
begin
  H:= 60*60*StrtoInt(Edit1.Text);
  M:= 60*StrtoInt(Edit2.Text);
  S:= StrtoInt(Edit3.Text);
  SZ:=H+M+S;
  {Label5.Caption:=IntToStr(SZ);}
  Timer1.Enabled := true;
  Button1.Enabled:=false;
  Button3.Enabled:=true;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
var sekunden,minuten,Stunden :Real;
    {S1,}EM,ES,EH,H,M{,S}: Integer;
begin
  {S:=StrtoInt(Label5.caption)-1;
  Label5.caption:=InttoStr(S1);
  S1:=StrtoInt(Label5.caption);   }

  //hier sollte noch ne Abfrage rein, wenn SZ=0 dann Ende

  dec(SZ); //<-----
  Stunden:=({S1}SZ)/60/60;
  minuten:=(stunden-Trunc(stunden))*60;
  sekunden:=(minuten-Trunc(minuten))*60;
  EH:=trunc(Stunden);
  EM:=Trunc(MInuten);
  ES:=Trunc(Sekunden);
  //Label1.caption:=InttoStr(EH)+':'+InttoStr(EM)+':'+InttoStr(ES); //nicht falsch
  label1.Caption:=format('%2d:%2d:%2d',[EH,EM,ES]); //aber so gefällts mir besser
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  Button1.Enabled:=true;
  Button3.Enabled:=false;
  Timer1.Enabled:=false;
  //Label5.Caption:='00:00:00';
  Edit1.Text:='00';
  Edit2.Text:='00';
  Edit3.Text:='00';
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
{if Timer1.Enabled=true then
  Timer1.Enabled:=false;
if Timer1.Enabled=false then
   Timer1.Enabled:=true;}
  timer1.Enabled:=not timer1.Enabled;
end;

Edit: Naja, ich sollte auch den Teil mitliefern, da habe ich auch eine Zeile eingefügt:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button3: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
    SZ:integer; ///<-----
  public
    { Public-Deklarationen }
  end;