reaction time

kun kan bare sætte tiden hurtiger/langsomer på timer 1...

/ZIRON

Min unit

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    Button2: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  react : integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
button1.Enabled:=False;
button2.Enabled:=True;
label2.Caption:=\'WAIT\';
label2.Color:=clGreen;
label2.Visible:=True;
timer2.Interval:=random(5000)+2000;
timer2.Enabled:=True;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
label2.Caption:=\'TRYK STOP!\';
label2.Color:=clRed;
timer1.Enabled:=True;
timer2.Enabled:=False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer2.enabled:=False;
label2.Visible:=false;
timer1.Enabled:=False;
showmessage(inttostr(react*10));
button2.Enabled:=False;
button1.Enabled:=True;
react:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(react);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
react:=0;
end;

end.

timer1 er sat til 10 nu, før var den 1
men den når langfra op på 1000 for hvert sec.

kan du ikke sende hele dit projekt til

ziron@wanadoo.dk

/ZIRON

du har dette med i uses Variants hvad er det til???

/ZIRON

Har ikke selv tilføjet noget i Uses.
Har sendt det til din mail.

når okay men har fjenet den og det ser da ud til at virke... den når at tælle til ca. 500 og jeg synes da jeg trykker hurtigt...

/ZIRON

mora >> mail tilbage sendt :-)

/ZIRON

du skal ikke bruge en timer. Den alt for upræcis.

brug GetTickCount, som returnerer tiden i millisekunder siden windows startede.

gem GetTickCount når farven skifter, og når der bliver trykket på knappen skal du trække GetTickCount fra den du gemte, det er meget meget mere præcist.

Hvis du vil have et eksempel så sig til.

/SpEeDy

jeg har sendt eksempel til din mail.

/SpEeDy

hvad så, hvad siger du ?

Hvis du måler reaktionstid er det nok sjovere at have en mere præcis timing end GetTickCount kan give. QueryPerformanceCounter (og GetPerformanceFrequency) kan give dig en superpræcis timing. Check dem selv, men hvis du har brug for hjælp så bare sig til.

Nu har speedy rykket mig 2 gange på 4 dage, så må jeg helere komme herind...

jeg har sku\' da ikke rykket 2 gange!!

Jeg har bare pænt spurgt i dag hvad du sagde til svaret siden der går flere dage uden der sker noget.