hallo, ich hoffe die Kategorie passt bin mir aber nicht sicher da die meisten Themen und Begriffe mir nicht viel sagen da ich Programmieranfänger bin. Jedenfalls hab ich bei meiner Uhr das Problem, dass jedesmal wenn die sekunde einen vorspringt die Minute dasselbe tut.

markieren

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);

begin
 if sec < 60 then
   sec:= sec+1
 else
   sec:= 1;
   min:= min+1;
   label1.Caption:= inttostr(std) + ':'+ inttostr(min) +':'+ inttostr(sec);
end;

ansonsten suche ich noch die Postingregeln vom Forum die habe ich leider auch nicht gefunden.

ich bin für jeden tipp dankbar

markieren

Delphi-Quellcode:

   min:= min+1;
   label1.Caption:= inttostr(std) + ':'+ inttostr(min) +':'+ inttostr(sec);

Der Code wird immer ausgeführt, da hinter der Alternativbedingung else kein begin ... end; folgt. D.h. nach dem else wird nur sec := 1 ausgeführt, danach ist die ganze if-Bedingungen abgearbeitet und der Code danach wird immer ausgeführt. ALso:

markieren

Delphi-Quellcode:

begin
 if sec < 60 then
   sec:= sec+1
 else
   begin
     sec:= 1;
     min:= min+1;
     label1.Caption:= inttostr(std) + ':'+ inttostr(min) +':'+ inttostr(sec);
   end;
end;

Quelltext ordentlich und sachlich richtig formatieren zeigt den Fehler:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

  if sec < 60
  then
    sec := sec+1
  else
    sec := 1;

  min := min + 1;
  Labellabel1.Caption:= inttostr( std ) + ':' + inttostr( min ) + ':' + inttostr( sec );

end;

PS: Deine Sekunden laufen von 1 bis 60 und nicht von 0 bis 59

Zitat von himitsu:

PS: Deine Sekunden laufen von 1 bis 60 und nicht von 0 bis 59

Nö, weder noch die laufen von 1 bis 59

Auch sollte man über einen Timer (auch wenn der auf 1000ms steht) nicht die Zeit messen, denn Windows ist kein Echtzeit-BS. Das Intervall gibt an, das so etwa nach 1000ms, wenn denn Zeit dafür da ist, dieses Event gefeuert wird.

Also beim Start die aktuelle Uhrzeit merken (now) und dann im Timer-Event diesen Wert immer von der aktuellen Uhrzeit subtrahieren.
Mit FormatDateTime kann dann auch sehr schön die Ausgabe erfolgen

Zitat:

markieren

Delphi-Quellcode:

 if sec < 60
  then
    sec := sec+1

<60 = maximal 59
59 + 1 = 60

markieren

Delphi-Quellcode:

  if sec < 59 then
    sec := sec+1
  else begin
    sec := 1;
    min := min + 1;
  end;

sieht blöd aus, aber andersrum klappt es mit der 60 wieder

markieren

Delphi-Quellcode:

  if sec >= 60 then begin
    sec := 0;
    Inc(min);
  end else
    Inc(sec);

Und selbst mit einer mieserablen Codeformatierung hätte der Debugger einem sofort den Grund aufgezeigt ... man müßte ihn nur mal verwenden.

Leherer gehören gesteinigt, da sie sowas fast nie erwähnen. (Bevor man wen an code ran läßt, gehören die Grundkenntnisse, Codeaufbau/-formatierung und Debuggen auf den Lehrplan.)

Zitat von himitsu:

markieren

Delphi-Quellcode:

 if sec < 60
  then
    sec := sec+1

<60 = maximal 59
59 + 1 = 60

Du bist aber auch wieder kleinlich

So läuft seine Uhr wenigstens im Minutentakt richtig (wenn das Begin-End dann mal stimmt) ... bei 1 bis 59 würde ja garnichts mehr stimmen

Hm... Also, wenn ich die Aufgabenstellung jetzt nicht ganz falsch verstanden habe:

markieren

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption := TimeToStr(Now());
end;

Das ist fuer mich 'ne Uhr, die ich mit TTimer umgesetzt habe.
Wozu irgendwas rechnen? :confused:

Gruesse,

N1ls

thx