Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

MIPS и FPS [D7, WinXP]


DIMAL ©   (2007-01-25 08:46:00) 

Как определить количество операций в секунду, выполняемых процессором с плавающей запятой и с целыми числами.


_SuN_   (2007-01-28 18:54:00) [1]

const DelayTime               = 500;

function MCPUUssage.CPURealSpeed: Double;
var th, tl  : DWORD;
   prc, pr : Integer;
begin
prc:=GetPriorityClass(GetCurrentProcess);
pr:=GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
sleep(10);
asm
 dw 310Fh
 mov tl,eax
 mov th,edx
end;
sleep(DelayTime);
asm
 dw 310Fh
 sub eax, tl
 sbb edx, th
 mov tl, eax
 mov th, edx
end;
SetThreadPriority(GetCurrentThread,pr);
SetPriorityClass(GetCurrentProcess,prc);
result:=tl/(1000.0*DelayTime);
end;


Cj   (2007-01-28 17:15:00) [2]

Привилегии возьми


Игорь Шевченко   (2007-01-25 17:40:00) [3]


> Так он же не устанавливается для пользовательских программ


start /realtime разве перестал работать ?


DimaL   (2007-01-25 17:35:00) [4]

Установить бы для процесса приоритет реального времени. Так он же не устанавливается для пользовательских программ.


Сергей М.   (2007-01-25 16:20:00) [5]


> как быть с паралельными процессами?


А нехрена эксперементировать в мультизадачной системе !)

Экспериментируй в системе реального времени, либо используй возможности своей мультизадачной среды по кратковременнойустановке для твоего процесса приоритета, эмулирующего среду реального времени.


Джо   (2007-01-25 15:57:00) [6]

> [2] DimaL   (25.01.07 15:54)
> А как быть с паралельными процессами?

Смириться.


DimaL   (2007-01-25 15:54:00) [7]

А как быть с паралельными процессами?


tesseract   (2007-01-25 10:23:00) [8]

Примерно - написать таймер и выполнить инстркции 10к-10 м раз.


Наверх

Титульная страница Поиск, карта сайта Написать письмо