hallo,
ich wollte ein kleines minispiel mit einer stoppuhr programmieren. dabei soll man die zeit schätzen. mittels button startet man einem time und wenn man glaubt das 10 sekunden vergangen sind drückt man stopp. dann wird der vorher verdeckte timer sichtbar und man sieht wie nah man dran war. hier unten seht ihr meinem quelltext.
Meine konkreten fragen: Wie mache ich das das das label welches die zeit anzeigt wieder angezeigt wird wenn ich auf stop drücke
wie mache ich es wenn man die zeit genau auf 10 sek. geschätzt hat das ein label mit zb "gewonnen erscheint".
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 =
class(TForm)
Image1: TImage;
Timer: TTimer;
Button2: TButton;
Label3: TLabel;
Label1: TLabel;
procedure TimerTimer(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
StartZeit: TDateTime;
StopZeit: TDateTime;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
case Button2.Tag
of
0:
begin { wenn die Uhr gestartet wird }
StartZeit := now;
Timer.Enabled := true;
Button2.Caption := '
&Stop';
end;
{ Ende des Zweigs beim Start der Uhr }
1:
begin { wenn die Uhr angehalten wird }
StopZeit := now;
Timer.Enabled := false;
Button2.Caption := '
&Start';
Label3.Caption := TimeToStr( StopZeit - StartZeit);
end;
{ Ende des Zweiges bei anhalten der Uhr }
end;
{ Ende der CASE-Anweisung }
{ nun den tag umstellen }
Button2.Tag := Button2.Tag + 1;
if Button2.Tag > 1
then Button2.Tag := 0;
end;
procedure TForm1.TimerTimer(Sender: TObject);
begin
Label3.Caption := TimeToStr(now - StartZeit);
end;
end.
vll könnt ihr mir ein wenig helfen danke im vorraus.
hier nochmal falsl ihr das ganze prog sehen wollt :
http://rapidshare.de/files/46719784/...r__3_.rar.html