Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Countdown Programm (https://www.delphipraxis.net/52150-countdown-programm.html)

shmia 24. Aug 2005 15:12


Countdown Programm
 
Liste der Anhänge anzeigen (Anzahl: 1)
Das Demoprogramm PeriodicAction zeigt, wie man einen Countdown ablaufen lassen kann, um
in bestimmten Abständen eine Funktion auszuführen.

Features
* Start & Stop Button (mit schönen Icons)
* Restzeitanzeige Stunden, Minuten, Sekunden
* Restzeigeanzeige mit Progressbar

Das Programm kann direkt als Vorlage für eigene Projekte verwendet werden, da es (hoffentlich) sehr sauber programmiert wurde.

gin 2. Sep 2005 13:20

Re: Countdown Programm
 
Hallo,

an und für sich erklärt es eine Countdownfunktion ganz gut!
Ich würde nur für die Berechnung der Restseit die schon vorhandene TTimer.time benutzen und zusätzlich zwei Variablen vom Typ TDateTime

Code:
Restzeit:= TTimer.Time-(time2 + startzeit);
Die startzeit muss, klar beim start, gespeichert werden und die Eingabe in ein TDateTime format gebracht werden(time2).Das wäre dann aber auch die einzige Berechnung.
Das Problem an deiner Lösung ist, dass die Zeit nicht "gleichmäßig" vergeht, also die Zeit springt ein wenig. Das liegt aber vielleicht auch am Intervall des Timers.

Noch etwas was mir aufgefallen ist, ist dass die processbar noch vor ablauf der Zeit voll ist. Vielleicht stimmt an deiner Berechnung was nicht.

Gruß Gin

shmia 3. Dez 2009 17:53

Re: Countdown Programm
 
Liste der Anhänge anzeigen (Anzahl: 1)
Vier Jahre später wird's ja mal Zeit für ein Update. :stupid:
Bei der Berechnung des Progressbars war doch tatsächlich noch ein Fehler drin.

DeddyH 3. Dez 2009 18:23

Re: Countdown Programm
 
[OT] Es geht eben nichts über zeitnahe Bugfixes :stupid: [/OT]


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:49 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