[delphi] QueryPerformanceCount

[banaan-X]

Kan iemand mij uitleggen hoe je kunt werken met deze functie en QueryPerformanceFrequency? Het doel is de parallelle poort als pulsgenerator laten werken is 0,1 ms nauwkeurig ongeacht wat voor processor de gebruiker heeft.

(zie ook [topic=284715/1/25] )

Ik snap alleen niet hoe je nou met die functie 0,2 ms (bijv) kunt wachten.

[marcusk]

Ik weet niet hoe het met delphi gaat, maar in C krijg je zoiets:

code:

LARGE_INTEGER _freq, _start, _end;
double freq, start, end;
QueryPerformanceFrequency(&_freq);
freq = (double)_freq.QuadPart;
QueryPerformaceCounter(&_start);
start = (double)(_start.QuadPart / freq);
do
{
    QueryPerformaceCounter(&_end);
    end = (double)(_end.QuadPart / freq);
}
while (end - start < 200)
// 0.2 ms verder als het goed is :)

[banaan-X]

Op zaterdag 06 oktober 2001 21:52 schreef marcusk het volgende:
Ik weet niet hoe het met delphi gaat, maar in C krijg je zoiets:

code:

LARGE_INTEGER _freq, _start, _end;
double freq, start, end;
QueryPerformanceFrequency(&_freq);
freq = (double)_freq.QuadPart;
QueryPerformaceCounter(&_start);
start = (double)(_start.QuadPart / freq);
do
{
    QueryPerformaceCounter(&_end);
    end = (double)(_end.QuadPart / freq);
}
while (end - start < 200)
// 0.2 ms verder als het goed is :)

Zal het proberen te vertalen, maar wat zijn die underscores? Pointers?

[marcusk]

Op zaterdag 06 oktober 2001 22:10 schreef banaan-X het volgende:
Zal het proberen te vertalen, maar wat zijn die underscores? Pointers?

nee, gewoon een naam voor de LARGE_INTEGERs, om ze te onderscheiden van de doubles.