Обмен информацией между терминалами через разделяемую память - очень просто и наглядно. - страница 3
Вы упускаете торговые возможности:
- Бесплатные приложения для трейдинга
- 8 000+ сигналов для копирования
- Экономические новости для анализа финансовых рынков
Регистрация
Вход
Вы принимаете политику сайта и условия использования
Если у вас нет учетной записи, зарегистрируйтесь
Вопрос был не про это - капитан Очевидность! :).
Я как бы хотел узнать, как удалось повысить точность измерения времени работы проги выше миллисекунды?
Приемчики типа - запустим сравниваемое тысячу или миллион раз и бум засекать разницу, а потом утверждать, что разницу во времени следует делить на миллион - меня не устраивает в этом примере.
Здесь большее время обе проги будут спать...а не работать.
Что же мы меряем?
И с такой "точностью"...
;)
Велки спасибо!
Minimum supported client
Точно не помню эти API функции давно было. Если надо кому,то разобраться можно.
Вот что в моих кодах Делфи
t1, t2, Res: TLargeInteger;
bOK:BOOL;
Q_T:Extended;
procedure StartTimer;
begin
bOK := QueryPerformanceFrequency(Res);
if bOK then
QueryPerformanceCounter(t1);
end;
procedure StopTimer;
begin
if bOK then
QueryPerformanceCounter(t2);
end;
Начало обработки
StartTimer;
........... Некий код время работы которого хотим замерить
StopTimer;
Q_T:=((t2-t1)/res)*1000000;
StatusBar1.Panels[5].Text:='Время выполнения '+FloatToStrF(Q_T,ffNumber,6,0)+' µs';
Q_T:=((t2-t1)/res)*1000000;
StatusBar1.Panels[5].Text:='Время выполнения '+FloatToStrF(Q_T,ffNumber,6,0)+' µs';
Так и думал.
Это и смутило...
;)