--- title: "Tidsmätning" type: "forum-thread" url: "https://www.webforum.nu/amne/programmering/27820-tidsmätning" topic: "Programmering" topic_url: "https://www.webforum.nu/amne/programmering" author: "Karge" published: "2000-06-30T13:26:00.000Z" updated: "2000-09-20T06:08:00.000Z" replies: 16 views: 577 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/27820-tidsmätning" --- # Tidsmätning ## #1 — Karge, 2000-06-30T13:26Z Hej Har fått ett tips om att använda API funktionerna QueryPerformanceCounter QueryPerformanceFrequency för att mäta tid. Hur jag skall anropa dem och använda dem vej jag ej. Skulle vilja ha hjälp med att implementera dessa funktioner i min källkod. Tack på förhand. Micael Permalänk: https://www.webforum.nu/p/27820 ## #2 — Swey, 2000-06-30T13:50Z Skapa en LARGE_INTEGER och peka till den när du anropar till någon av funktionerna eftersom enda parametern är en peka till LARGE_INTEGER. Inte för att jag förstår varför du vill anropa funktionerna. Om du vill mäta tid kan du använda GetTickCount som är betydligt enklare. Vad är det för tid du vill mäta? Permalänk: https://www.webforum.nu/p/400320 ## #3 — Karge, 2000-06-30T14:01Z Tack för ditt svar. Men hur skapar jag en Large-Integer? Jag har tittat lite på denna funktionshantering i VB och C språk. I båda språken delar man upp variabeln i två delar och i VB kontrollerar man om den minst signifikanta delen av variabeln är negativ. Är osäker på hur jag skall gå tillväga med variabeluppdelningen och även hur jag skall typa en Large_integer. Dessa funktioner skall jag använda för precitionsmätning av inkommande pulser. Med andra ord precitionstidbas. Permalänk: https://www.webforum.nu/p/400321 ## #4 — WiNNe, 2000-06-30T14:58Z Föreslår att du använder en vanlig double som variabel. Följande exempel har ett formulär med en vanlig knapp på bara och visar antalet millisekunder som gått sedan programmet startade, glöm inte att lägga till eventen. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); end; var Form1: TForm1; test,test2 : double; implementation {$R \*.DFM} procedure TForm1.Button1Click(Sender: TObject); begin test:=gettickcount(); showmessage( floattostr((test-test2)) ); end; procedure TForm1.FormCreate(Sender: TObject); begin test2:=gettickcount(); end; end. Permalänk: https://www.webforum.nu/p/400322 ## #5 — jt, 2000-09-15T20:34Z Skälet till använda QueryPerformance är väl pga den högre noggranheten. var StartQPC, StopQPC, QPFrequency: TLargeInteger; StartGTC, StopGTC: DWord; Tid: Extended; begin //QueryPerformance QueryPerformanceFrequency(QPFrequency); QueryPerformanceCounter(StartQPC); beep; QueryPerformanceCounter(StopQPC); Tid := (StopQPC.Quadpart - StartQPC.QuadPart) / QPFrequency.QuadPart; Label1.Caption := 'Tid : ' + FloatTostr(Tid) + ' sekunder'; //GetTickCount StartGTC := GetTickCount; beep; StopGTC := GetTickCount; Tid := (StopGTC - StartGTC) / 1000 ; Label2.Caption := 'Tid : ' + FloatTostr(Tid) + ' sekunder'; end; Koden skriven för Delphi3 Permalänk: https://www.webforum.nu/p/400323 ## #6 — WiNNe, 2000-09-16T11:15Z Fungerar inte med .Quadpart i Delphi5 så jag vet inte var du fått det ifrån. Möjligt nånting som försvann till D5, hur nu en vanlig Int64 kan ha några särskillda propertys...? Hur ofta behövs sån nogrannhet i tidsmätningar. millisekunder räcker ju långt för 3d-spel. Där är det viktigare att själva funktionen som mäter är snabbare. Permalänk: https://www.webforum.nu/p/400324 ## #7 — jt, 2000-09-16T17:21Z Som jag skrev var koden för Delphi 3. I D3 finns inte int64 utan man kan använda TLargeInteger, som inte har några propeties utan är ett record(som du kan hitta i windows uniten). Int64 kom väl i D4. Orkar inte leta efter info om hur stor skillnaden är mellan QueryPerformanceCounter och GetTickCount är. Men har för mig att GetTickCount noggranhet kan skiftar mellan +-10ms ibland upp till 55 ms. Tror knappast man använder GetTickCount i proffisionela spel, någon som vet hur man brukar göra?. Sedan frågades det efter hur QPC skulle implementeras. Nu kan det ju vara ganska svårt att få bra noggranhet i windows av helt andra skäl Permalänk: https://www.webforum.nu/p/400325 ## #8 — WiNNe, 2000-09-16T19:53Z Kolla i dokumentationen kring DirectX så ser du att GetTickCount används flitigt. Nogrannheten är inte +-10ms utan +-0,5ms då den bara ger antalet millisekunder mellan anropen. Men du har rätt i att frågan gällde QPC och därför är det säkert nog tjatat om vilket sätt som är bäst. QPC har betydligt bättre nogrannhet men tar processorn längre tid att räkna fram så vill man ha snabba svar (vanligt i snabba applikationer som t.ex. spel) är QPC för långsamt. Kollade i koden för TLargeInteger (i Delphi5) och den pekar numera bara på en vanlig int64, antar att den finns kvar för att vara någorlunda bakåtkompatibel även om jag blev förvånad att D5 inte kunde kompilera D3 kod (brukar vara tvärtom). Permalänk: https://www.webforum.nu/p/400326 ## #9 — jt, 2000-09-16T23:13Z Vet inte om jag tänker rätt men kör du denna kod så verkar inte noggranheten vara +-0,5ms. På min dator varierar resultatet från 3 - 20 ms. Kanske ett tanke fel (iden till koden kom från MS sidor). var Count1, Count2: DWord; Loops: Integer; begin Loops := 0; Count1 := GetTickCount(); repeat Count2 := GetTickCount(); inc(Loops); until Count1 \<\> Count2; ShowMessage('C2-C1: ' + IntToStr(Count2-Count1) + #10#13 + 'Loops: ' + IntToStr(Loops)); end; Inte min mening att detta eller föregående inlägg skulle/ska uppfattas som tjat. Bara roligt att diskutera saker som jag tycker är svårt/avancerat. Permalänk: https://www.webforum.nu/p/400327 ## #10 — WiNNe, 2000-09-17T18:42Z Håller med, kul att det finns flera här i Delphi tråden som kan nånting och verkar vara vettigt folk ![](http://program.webforum.nu/wf/smile.gif) I mitt Tetris spel (finns på www.winne.net) använder jag, precis som alla andra källkoder över spel jag sett, GetTickCount för att hålla ordning på sakerna i main loopen. Här är ett urklipp ur den: ////////////////////////////////////////////////////////////////////////// // WinMain, Initialization, message loop /////////////////////////////////////////////////////////////////////////// Var aMSG : MSG; i : integer; KEYBOARD_DOWN: boolean; Begin If InitApp(GetModuleHandle(nil), SW_SHOW) \<\> DD_OK then Exit; thisTickCount := GetTickCount; lastTickCount := ThisTickCount; \[Snip\] While True do Begin If PeekMessage(aMsg, 0, 0, 0, PM_NOREMOVE) then Begin If not GetMessage(aMsg, 0, 0, 0) then Exit; TranslateMessage(aMsg); DispatchMessage(aMsg); End Else If (g_bActive) then Begin thisTickCount := GetTickCount; If Mode=GAMEMODE Then Begin if (thisTickCount - lastTickCount ) \> TIMER_RATE Then Begin lastTickCount := ThisTickCount; If Check_Collision(test,0,20) Then begin Konvert; \[Snip\] UpdateFrame; End; End Else Begin WaitMessage; End; End; End. Tror inte att om inte GetTickCount skulle varit noggrann att det fungerat bra i spel då det i så fall hade varit hackit eller i alla fall oregelbundet. Då övergången till Exclusive DirectX mode ger bättre kontroll över processorn (windows stör inte så mycket) så fungerar GetTickCount utmärkt. När man kör ditt exempel i windows så kan ju windows själv ibland få för sig att göra andra saker mitt i körningen och därför ge olika resultat hela tiden. Permalänk: https://www.webforum.nu/p/400328 ## #11 — jt, 2000-09-17T19:01Z Koden i mitt exempel kommer från Ms Knowledge base för att räkna ut noggranheten på dylika API. Använder inte Direct X så jag har ingen aning om detta. Men nu pratade vi om tidsmättning i windows ;-). Permalänk: https://www.webforum.nu/p/400329 ## #12 — jt, 2000-09-17T19:16Z Nu börjar jag faktisk bli tjatig ;-). Men detta är nog den enda delphi tråd på WF som jag lärt mig något från. " The GetCurrentTime() and GetTickCount() functions are identical. Each returns the number of milliseconds (+/- 55 milliseconds) since the user started Windows, and the return value of each function is declared to be a DWORD. " Permalänk: https://www.webforum.nu/p/400330 ## #13 — WiNNe, 2000-09-19T17:59Z Hmmm, måste helt enkelt vara så att det är annorlunda när man kör i DirectX mode då. Med sådan dålig noggrannhet skulle nog inte mitt spel fungera så värst bra... Ladda hem och testa det, vetja... (www.winne.net) Jag e riktigt nöjd med det :) Permalänk: https://www.webforum.nu/p/400331 ## #14 — jt, 2000-09-19T18:46Z Ska testa tetrix i morgon på jobbet :). Där jag har lite snabbare uppkopling. Tror knappast min gammla dator(P133 32MB :( ) har directx 7. Permalänk: https://www.webforum.nu/p/400332 ## #15 — WiNNe, 2000-09-19T21:35Z Det går ju alltid att lägga in DX7 även på en såpass gammal dator. Tänk på om du kör det på jobb att DX7 inte finns till NT4 (det vanligaste jobb-OSet) och därför funkar inte heller mitt spel för NT4. Mycket Nöje... :) ps. jag vet att det blev stort, c:a 9MB, men musiken är en MP3 låt som jag ville behålla i bra kvalité så då var det värt det... Och innan ni börjar (an)klaga på att låten är riktig med en visserligen relativt okänd artist (för mig iaf) så är det en kraftigt re-mixad version gjord av en polare och det gör det faktiskt hur lagligt som helst. :) Permalänk: https://www.webforum.nu/p/400333 ## #16 — WiNNe, 2000-09-19T21:36Z Hmmm, lite off-topic där visst... Vi kanske ska starta en egen diskussionstråd Jt ??? :) Permalänk: https://www.webforum.nu/p/400334 ## #17 — Karge, 2000-09-20T06:08Z Hej. Tack allesammans för era inlägg. Jag lyckades lösa problemet med QueryPerformanse som tidsmätare. Använder mig av INT64 variabel.Denna tidsmätning skall inte vara till spel utan mätning av frekvens in på parallellporten. Detta för styr & reglerändamål. Funktionen GetTickCount är ej tillräcklig för denna mätning. Frågan är om funktionen QueryPerformanse tillsammans med Win9x har tillräcklig precision. Har provat med polling vilket ej givit tillfredställande resultat. Håller på att lära mig assembler och därmed kunna använda mig utav hårvaruinterupts. Permalänk: https://www.webforum.nu/p/400335 --- Tråden på webben: https://www.webforum.nu/amne/programmering/27820-tidsmätning