mit queryperformancecounter mehrere timer starten?

**nicosch**

Hallo

wahrscheinlich eine ganz dumme frage, aber ich finde die variable nicht, die mir anzeigt, wann genau ein bestimmtes item aus einer DXImageList nach dem befehl

markieren

Delphi-Quellcode:

			 form3.dxdraw2.Restore;

form3.dximagelist2.Items[1].Draw(form3.DXDraw2.Surface, 0, 0, 0);

form3.dxdraw2.Flip;

(zuende) gemalt wurde. genau dann will ich einen timer (queryperformancecounter) starten und auf einen bestimmten tastendruck hin stoppen. ich könnte den timer natürlich genau dann starten, wenn ich den befehl zum malen losschicke und damit es genau ist die gemessene zeit (wieder mit queryperformancecounter) für die bearbeitung des befehls davon abziehen. dann allerdings verhakt sich alles, weil ich gleichzeitig einen timer starten und den anderen stoppen muss. aber ich bin mir nicht auch nicht sicher, ob ich durch den performancecounter meherere variablen beschriften kann, oder ob mein fehler woanders liegt:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  Form3: TForm3;

  {starttime: TTimeStamp;}

  Res, res2, t1, t2, t3, t4: int64;

  bOk: Bool;

  tt: integer;

  tt2: string;

implementation

procedure StartTimer1;

begin

bOk:= QueryPerformanceFrequency(res);

if bOk = true then

QueryPerformanceCounter(t1);

end;

procedure StartTimer2;

begin

bOk:= QueryPerformanceFrequency(res2);

if bOk = true then

QueryPerformanceCounter(t3);

end;

procedure StopTimer1;

begin

if bOk = true then

QueryPerformanceCounter(t2);

end;

procedure StopTimer2;

begin

if bOk = true then

QueryPerformanceCounter(t4);

end;

{$R *.dfm}

procedure TForm3.DXTimer1Timer(Sender: TObject; LagCount: Integer);

var

tt1, tt2: integer;

tt3, tt4: string;

begin

dxinput2.Keyboard.Update;

if dxinput2.Keyboard.Keys[Key_B]=true then

  begin

    ShowStimulus1;

    StartTimer1;

    StopTimer2;

      end;

if dxinput2.Keyboard.Keys[Key_N]=true then

  begin

    ShowStimulus2;

    StopTimer1;

    StartTimer2;

    tt1:=(t2-t1)*1000 div res;

    tt2:=(t3-t4)+1000 div res2;

    tt3:=inttostr(tt2);

    tt4:=inttostr(tt1);

    Form3.Caption:= tt4+'ms;'+tt3+'ms';

end;

danke, ihr seid die besten!

mit queryperformancecounter mehrere timer starten?

mit queryperformancecounter mehrere timer starten?

Forumregeln