Zwei kleine Games für zwischendurch

[faux]

Genau so wie MaBuSE, war mir wieder mal langweilig in einer Pause... :roll:
Hier hab ich zwei kleine Games für zwischendurch gemacht.
Das 1. Ist ein Game in dem man den Umgang mit der Maus testen kann, indem man möglichst viele Checkboxes anhäkt... :wink:
Und im 2. kann man Seine Reaktion testen.

Postet mal eure "Highscores"... ;)

Viel Spass... :mrgreen:

Grüße
Faux

EDITS:
1. Game 1: Tastatur deaktiviert.

[whiteshark]

Lustige Sache für Zwischendurch.
Mein Rekord beim Kästchenklicken:42!
Mein Rekord beim Reaktionstest: 0,21s

[leddl]

Zitat:

Zitat von whiteshark

Lustige Sache für Zwischendurch.

Jo, stimmt. Nur ein paar Erklärungen dazu hättens gebracht. Beim ersten Mal wusste ich jeweils nicht genau, was auf mich zukommt.

Zitat:

Zitat von whiteshark

Mein Rekord beim Kästchenklicken:42!

58 :P

Zitat:

Zitat von whiteshark

Mein Rekord beim Reaktionstest: 0,21s

Dito!

[Kedariodakon]

Game 1: 67
Game 2: 1,799999 Sec =)
Edit: 0,1700001 Sec =)
Bye

[NicoDE]

Zitat:

Zitat von faux

Postet mal eure "Highscores"... ;)

Auf die Schnelle :)

[faux]

Zitat:

Zitat von leddl

Zitat:

Zitat von whiteshark

Mein Rekord beim Reaktionstest: 0,21s

Dito!

Kanns sein, dass ich da was falsch programmiert habe? Bei mir ist es auch immer ~0,21s...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := False;
  Timer1.Interval := Random(5000)+3000;
  Timer1.Enabled := True;
  Panel1.Color := clBtnFace;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  time := Now;
  Timer1.Enabled := False;
  Panel1.Color := clRed;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if (not Timer1.Enabled) and (time <> 0) then
  begin
    ShowMessage(FloatToStr(RoundTo((MilliSecondSpan(time, Now)/1000), -7))+' Sekunden');
    time := 0;
  end
  else if (time = 0) and (not Timer1.Enabled) then
    ShowMessage('Bitte zuerst Start klicken.')
  else
  begin
    Timer1.Enabled := False;
    ShowMessage('Das war zu früh.');
  end;
end;

[Kedariodakon]

Zitat:

Kanns sein, dass ich da was falsch programmiert habe? Bei mir ist es auch immer ~0,21s...

Hmm ich hab 0,1700001 also was anderes ;)

Aber schau dir mal QueryPerformanceCounter und QueryPerformanceFrequency an, damit kann man bedeutend besser Zeiten Messen!

Bye

[faux]

Zitat:

Zitat von NicoDE

Zitat:

Zitat von faux

Postet mal eure "Highscores"... ;)

Auf die Schnelle :)

Wow! 92 Kästchen ist echt das absolute Maximum bis jetzt!! ;)

[NicoDE]

Zitat:

Zitat von faux

Wow! 92 Kästchen ist echt das absolute Maximum bis jetzt!! ;)

Nicht sonderlich schwer wenn man eher zur Benutzung der Tastatur tendiert ;)

[faux]

Zitat:

Zitat von NicoDE

Zitat:

Zitat von faux

Wow! 92 Kästchen ist echt das absolute Maximum bis jetzt!! ;)

Nicht sonderlich schwer wenn man eher zur Benutzung der Tastatur tendiert ;)

Ja, hab ich mir auch gedacht, aber das hätte ich eigentlich umgangen... :?
Mit TAB sollte das nicht gehen. Wie das?