Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.25;
Скачать: CL | DM;

Вниз

О точных временных интервалах ...   Найти похожие ветки 

 
VuDZ ©   (2002-01-25 09:41) [6]

1. вот кусочек из моей проги для определения частоты проца - точность 100%

naked означает, что операторы для входа и выхода из ф-ии пишу я, а не компилятор
__declspec(naked)
__int64 GetCpuTick()
{ __asm {
rdtsc
ret
// тут получается хитрый момент, но факт в том, что
// возвращается сразу кол-во тактов проца прошедшее с моменда
// старта без доп. команд - слава С :)
} }

// с этим, я думаю, разобраться не проблема
double GetCpuFrequency ()
{
__int64 Frequency,
TimerCount1,
TimerCount2,
CpuCount1,
CpuCount2; if (!QueryPerformanceFrequency ((LARGE_INTEGER*) &Frequency)) return 0;

QueryPerformanceCounter ((LARGE_INTEGER*) &TimerCount1);

CpuCount1 = GetCpuTick ();
Sleep (500);
CpuCount2 = GetCpuTick ();
QueryPerformanceCounter ((LARGE_INTEGER*) &TimerCount2);
if (TimerCount1 == TimerCount2) return 0;
return ((double) ((CpuCount2 - CpuCount1) * Frequency) /
(double) (TimerCount2 - TimerCount1));
}


2. итак, мы имеем частоту проца. на основе этого вычисляем кол-во тактов, которое надо ждать, и потом просто ждём.
точность под виндой +/- 100-1000 тактов, всё зависит от привилегий процессора



Страницы: 1 вся ветка

Текущий архив: 2002.04.25;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
3-80768
kserg@ukr.net
2002-04-04 13:12
2002.04.25
DbGridEh - не могу убить маркер сортировки


1-80841
AlexP
2002-04-12 19:54
2002.04.25
Ну где взять?


3-80823
Alexandr_
2002-04-05 15:00
2002.04.25
ODAC. Проблема с чтением из BLOB


1-80876
Minster
2002-04-12 22:57
2002.04.25
Что означает свойство Tag во всех компонентах?


14-81065
Ajax
2002-03-19 19:28
2002.04.25
Delphi 5 и WinXP