Zwei kleine Games für zwischendurch

[faux]

Genau so wie MaBuSE, war mir wieder mal langweilig in einer Pause...
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...
Und im 2. kann man Seine Reaktion testen.

Postet mal eure "Highscores"...

Viel Spass...

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 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 von whiteshark:

Mein Rekord beim Kästchenklicken:42!

58

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 von faux:

Postet mal eure "Highscores"...

Auf die Schnelle

[faux]

Zitat von leddl:

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 von NicoDE:

Zitat von faux:

Postet mal eure "Highscores"...

Auf die Schnelle

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

[NicoDE]

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 von NicoDE:

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?