Zeit Zähler Min und Sek

[vincent]

Hi !

Ich brauche einen Counter, der von zB:

15min 00sek anzeigt.

wenn ich auf einen knof anklicke fängt der counter an rückvers zu zählen.

zB. 15:01 ... 14:00 ... 14:01...14:60...13:00 etc..

Kann jemand mir sagen wie ich gut machen kann mit Delphi?

Bitte mir sagen auch mit welche Symbole ich arbeiten muss, weil ich neu bin in Delhi.

MfG


Min Sek
15 00

[gmarts]

Das ganze nennt sich: countdown!


ach ja...und das ist auch noch ganz hilfreich: klick.


MfG GM

[faux]

Hallo!

Wenn du das ganze nicht Programmieren willst, kannst du dir auf meiner Homepage einen fertigen Countdown herunterladen.
Unter Delphi -> PROGNOS Counter 1.0

Grüße
Faux

[vincent]

Doch, ich will programmieren und wäre ich dankbar für den Code.
Ich habe vor Sylvester nicht geschafft zu programmieren

Danke !

[Matze]

Herzlich willkommen.

Zitat von vincent:

Bitte mir sagen auch mit welche Symbole ich arbeiten muss, weil ich neu bin in Delhi.

Zitat von vincent:

Doch, ich will programmieren und wäre ich dankbar für den Code.
Ich habe vor Sylvester nicht geschafft zu programmieren

Dann programmiere es doch, ich hoffe, du erhoffst dir hier keine fertige Lösung, denn das hätten sonst ja wir programmiert.

Irgend einen Ansatz musst du ja haben, zeige uns diesen Code und wir sagen dir dann, was falsch ist und wie man es richtig machen muss.

[blablab]

Benutz am besten einen Timer (Die Komponente TTimer ins Formular ziehen).
In diesem Objekt kannst du das Intervall in MilliSekunden angeben:
Gibst du also z.b. Interval = 1000 (im Objektinspektor) an, so ist das Intervall 1 Sekunde.
Als nächstes drückst du doppelt auf den Timer. Somit bist du in der prozedur TTimer.Timer.
Hier kannst du dann den Code angeben, den er dann jede Sekunde ausführen soll.
( Zum Beispiel: Label1.Caption := IntToStr(StrToInt(Label1.Caption) - 1) )

[vincent]

Ich habe so angefangen, aber das programm läuft über Ttimer
anstatt Button:

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.StartClick(Sender: TObject);
var
mn, ss : integer;
begin

panel1.caption := TimeToStr(Time)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
panel1.caption := TimeToStr(Time)
end;

end.

Wie gesagt, ich brauche nur Minuten und Sekunden, bei Button anklicken das programme zählt die Sekunden zurück bis 0 Minuten : 0 Sekunden
Start : 15 Minuten : 00 Sekunden

[Matze]

Zukünftig bitte die Delphi-Tags nutzen, dann sieht der Code deutlich übersichtlicher aus.

Ich habe ganz schnell was zusammengetippt:

Delphi-Quellcode:

// Variable für die neue Zeit
Plus_Fifteen_Mins: TDateTime;

[...]

// Direkt vor dem Starten des Timers musst du natprlich den Wert zuweisen:
Plus_Fifteen_Mins := now + StrToTime('00:15:00');

Delphi-Quellcode:

// Fkt zur Berechnung der Zeitdifferenz
function Time_Diff(Old_Date, New_Date: TDateTime): string;
var
  h, m, s, n: Word;
begin
  Old_Date := New_Date - Old_Date;
  DecodeTime(Old_Date, h, m, s, n);
  Result := Format('%0.2d', [m]) + ':' +
            Format('%0.2d', [s]);
end;

Delphi-Quellcode:

// Aufruf/Ausgabe
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption := Time_Diff(now, Plus_Fifteen_Mins);
  if Caption = '00:00' then
  begin
    Timer1.Enabled := false;
    ShowMessage('Und nun?');
  end;
end;

[vincent]

Das Programm funktioniert nicht und zeigt nur 15 : 00. Das heißt, zählt nicht.
Ausserdem, ich möchte starten mit Button.

Danke

[Matze]

Das was ich gepostet habe funktioniert zu 100%, ich habe es doch selbst getestet.

Zitat von vincent:

Ausserdem, ich möchte starten mit Button.

Das bekommst du selbst hin. Im OnClick, der Variablen den Wert zuweisen und den Timer starten (enabled auf true setzen).