Thema: Delphi Countdown

Einzelnen Beitrag anzeigen

EDatabaseError

Registriert seit: 11. Mai 2005
Ort: Göppingen
1.238 Beiträge
 
Delphi 2007 Professional
 
#4

Re: Countdown

  Alt 25. Sep 2006, 14:20
Zitat von HuxXx:
So ungefaehr...:
(Das is eigentlich das gleiche was der ueber mir beschrieben hat... )

Delphi-Quellcode:
var zaehler: Integer = 1920; // Globale Variable

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject); // Interval = 1000
begin
zaehler:= zaehler - 1;

// Wenn der Countdown vorbei ist...
if zaehler <= 0 then begin
Timer1.Enabled:=false;
ShowMessage('Diese 32 Minuten sind um... MöpMöp...');
end;

end;
ich will dích jetzt nich irgentwie korrigieren oder so aber wenn du 1920 als zähler hast machts schon nach 32 SEKUNDEN peng.

Mfg


Zu PS:
Interval 1 bei einem Timer ist jede MILIsekunde
Interval 1000 = jede Sekunde

32 Minuten = 1920 Sekunden = 1920000 MS
Tobias
It's not a bug, it's a feature.
  Mit Zitat antworten Zitat