Olen tässä parikuukautta "värkännyt" windows ohjelmaa joka hakee PC:n laitteiston tiedot.Ja cpu:n nopeuden tunnistuksessa tuli pienoinen ongelma.Eli tiedän että Nt:versioissa(ei 95,98:ssa) rekisteristä voi suoraan lukea cpu nopeuden mutta miten millä algoritmilla voisi testata mikä on cpu:n nopeus/tyyppi.Ja vielä eri prosessori tyypeillä?
-Thanks-
-Thanks-
Vastaukset 5
Vanhimmat
Tässä on Delphi/Pascal koodi jolla saat tarkan nopeuden:
function GetCPUSpeed: Double;
const
DelayTime = 500;
var
TimerHi, TimerLo: DWORD;
PriorityClass, Priority: Integer;
begin
PriorityClass := GetPriorityClass(GetCurrentProcess);
Priority := GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
Sleep(10);
asm
dw $310F
mov TimerLo, eax
mov TimerHi, edx
end;
Sleep(DelayTime);
asm
dw $310F
sub eax, TimerLo
sbb edx, TimerHi
mov TimerLo, eax
mov TimerHi, edx
end;
SetThreadPriority(GetCurrentThread, Priority);
SetPriorityClass(GetCurrentProcess, PriorityClass);
Result := TimerLo / (1000.0 * DelayTime);
end;
Thanks..Johan alkoi workkimaan oli saman tyyppinen kyhäillelmä mut nyt toimii.#:)
no huhhuh, jopas oli käsittämätöntä paskaa.
a) tuo luottaa siihen, että nukkuminen on 1ms/tick. ihan ok, olettaen, että mennään oikeasti realtimessä, mutta overheadiä tulee kuitenkin. noppeja lentää ja rajusti.
b) realtime EI kytke interrupteja pois, eli tuossa voi tapahtua vaikka mitä vittua välissä. voi herran jumala, ei tuollaista paskaa voi oikeasti käyttää.
järkevämpi tapa on laskea jollekin käskylle esim. 1000 iter. ja sitten scaalata cpu:n (amd, intel) mukaan. jos kiinnostaa, linukasta löytyy kohtalaisen järkevä bogomips-funkkari.
eli siis tuo perustuu siihen, että cpu:sta saa ulos sen, montako tikkiä on tällä hetkellä tikutettu.
Windowsissa, ainakin NT:ssä ja XP:ssä on mahdotonta saada tarkkaa nopeutta ellei ohjelma ole 0 priviledge levelillä. Jos yrittää pysäyttää muita säikeitä, kytkeä keskeytykset pois tai käyttää I/O:ta niin heti ohjelma kaatuu.