Silvester Countdown

[netscanner]

Hallo Leute, kurz vor Ende des Jahres habe ich noch eine Frage.

Ich möchte für unsere Silvesterparty einen Countdown entwickeln, der in Edit Feldern o.Ä. die Zeit runterzählt bis auf 0 Uhr 0 und 0 Sekunden am 01.01.2006.

Bitte helft mir dabei :)





Gruß und einen guten Rutsch
Martin

[faux]

Hallo!

Wo genau liegt denn das Problem?
Beim Runterzählen oder beim Zeit ermitteln oder... ?
Benutze mal die Forums-Suche: Countdown. Ich kann mich erinnern, dass sowas vor kurzem gefragt und gelöst wurde.

Grüße
Faux

Nachtrag: http://www.delphipraxis.net/internal...ight=countdown

[netscanner]

Ja das habe ich schon gemacht, das Problem liegt bei Runterzählen....
und zeit ermitteln könnte man auch nochmal drauf eingehen.
das programm soll also wirklich wie eine Uhr funktionieren nur rückwärts und nicht irgendwie auf button klick die verbliebene zeit anzeigen (das wäre kein problem....)

[100nF]

Zitat:

das programm soll also wirklich wie eine Uhr funktionieren nur rückwärts und nicht irgendwie auf button klick die verbliebene zeit anzeigen (das wäre kein problem....)

na, wenn das kein problem ist, wiso machst du es nicht genauso, und fügst einen timer hinzu, der alle sekunden diesen button-klick simuliert?

[netscanner]

weil genau DAS das Problem ist...
Ich weiß die Timer funktion nicht, die jede sekunde das machen soll...

[100nF]

also du fügst den timer auf die form, normalerweise ist er dann gerade auf 1000 ms eingestellt, das du so lassen kannst.
das einzige was du noch machen musst, ist dem timer das onTimer-ereignis zuzufügen. du kannst auch einen doppelklick auf den timer machen, und dann den code zum berechen zwischen begin und end einfügen.

[faux]

Zitat:

Zitat von netscanner

und zeit ermitteln könnte man auch nochmal drauf eingehen.

Delphi-Quellcode:

var
  Zeit: TSystemTime;
begin
  GetSystemTime(Zeit);
end;

Ein Timer löst alle x-Millisekunden das OnTimer-Ereignis aus. x ist dabei das Intervall.

Grüße
Faux

NACHTRAG:
Kann mir einer erklären, warum ich nicht einfach nur now geschrieben habe? :mrgreen:

[netscanner]

okey danke...noch eine kleine frage:

wie würde ich die system zeit in einem edit feld anzeigen.
habs jetzt einfach mit

edit1.text := zeit ;



versucht, damit geht's aber nicht.

[dahead]

wenn du Zeit vom Typ TDateTime deklariert hast, kannst du via DateToStr(Now) die aktuelle Zeit als String anzeigen lassen.

[JWeis]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Zeit: TDateTime;
begin  
  //zeit ist dein countdown
  Panel1.Caption:=DateTimeToStr(zeit);
end;

ich würde es anzeigen lassen