Zeit Zähler Min und Sek
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 |
Re: Zeit Zähler Min und Sek
|
Re: Zeit Zähler Min und Sek
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 |
Re: Zeit Zähler Min und Sek
Doch, ich will programmieren und wäre ich dankbar für den Code.
Ich habe vor Sylvester nicht geschafft zu programmieren Danke ! |
Re: Zeit Zähler Min und Sek
Herzlich willkommen.
Zitat:
Zitat:
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. |
Re: Zeit Zähler Min und Sek
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:
Delphi-Quellcode:
Label1.Caption := IntToStr(StrToInt(Label1.Caption) - 1) )
|
Re: Zeit Zähler Min und Sek
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 |
Re: Zeit Zähler Min und Sek
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; |
Re: Zeit Zähler Min und Sek
Das Programm funktioniert nicht und zeigt nur 15 : 00. Das heißt, zählt nicht.
Ausserdem, ich möchte starten mit Button. Danke |
Re: Zeit Zähler Min und Sek
Das was ich gepostet habe funktioniert zu 100%, ich habe es doch selbst getestet.
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:21 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz