Zwei kleine Games für zwischendurch

[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;