Как TTimer только в микросекундах

@codeok · Регистрация: 28.05.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Подскажите наподобие TTimer только в микросекундах. Как такое сделать или есть уже готовые решения?

@esculap_ra · 28.09.2014, 02:25

а он в миллисекундах что ли? вот никогда не мучил такой вопрос.

@northener · 28.09.2014, 02:31

Сообщение от codeok

Подскажите наподобие TTimer только в микросекундах. Как такое сделать или есть уже готовые решения?

Есть куча готовых решений. Но не на персональном компьютере.

@codeok · 28.09.2014, 02:35 **[ТС]**

Сообщение от esculap_ra

а он в миллисекундах что ли?

Да, в миллисекундах. Хотел на канве бегущею строку сделать с таймером, а она медленно пробегает.

@esculap_ra · 28.09.2014, 02:37

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

Добавлено через 2 минуты

Сообщение от codeok

Хотел на канве бегущею строку сделать с таймером,

та ты чейт не так организовал. для бегучки там сотни милисек надо. покажи код.

@northener · 28.09.2014, 02:45

Сообщение от codeok

Да, в миллисекундах. Хотел на канве бегущею строку сделать с таймером, а она медленно пробегает.

Вот отсюда подробнее пожалуйста. Кто медленнее пробегает? И в чём это выражается? И как человеческий глаз может найти разницу между миллисекундами и микросекундами?

@esculap_ra · 28.09.2014, 02:53

короче, я примерно догадываюсь. ты перерисовку делаешь по-пиксельно, и это приводит к затратам машинного времени. нужно просто по таймеру стирать всю сроку и снова ее рисовать. для этого с процедуре отнимаешь символ с головы и клеишь в хвост, а потом копируешь нужную часть (с головы, скажем 100 символов) и отображаешь.

@codeok · 28.09.2014, 03:02 **[ТС]**

Сообщение от esculap_ra

ты перерисовку делаешь по-пиксельно

вот так рисую:

Delphi
1
Canvas.TextOut(x,10,'=>>');

Бежит и не слишком быстро и не слишком медленно. Да и не в этом суть, просто захотелось узнать как задержку в микросекундах делают.

@codeok · 28.09.2014, 03:08 **[ТС]**

Прикрепил файл с проектом. Правда я там все это дело в TCustomControl нахимичел)

@esculap_ra · 28.09.2014, 03:37

походу в языках верхнего уровня это не делается.

raxper · 28.09.2014, 09:52

Анимация вращения

@codeok · 28.09.2014, 17:22 **[ТС]**

raxp, а там нигде не приводится кода процедуры:

Delphi
1
delay_microsec(zadergka);

можете код тут написать?

raxper · 28.09.2014, 17:36

QueryPerformanceFrequency + QueryPerformanceCounter, см. MSDN.

@esculap_ra · 28.09.2014, 18:03

Слушай, codeok, у меня 7-я версия и твой код не работает, да и особо ковыряться неохота. Я бегло посмотрел, и по-моему тут дело не в задержке и в наложении событий ontimer. Попробуй при событии запретить таймер, а когда код отработает, снова разрешить.

@codeok · 28.09.2014, 18:28 **[ТС]**

esculap_ra, Попробовал, все осталось как было. Мне кажется, это из-за таймера все таки. Если ставлю к примеру 55 мс, то как раз секунд за 15 и пробегает(ширина 300 пикселей).

@TooHot · 28.09.2014, 21:30

codeok, насколько я помню, точность таймера порядка 50 миллисекунд. Смысл?

@codeok · 28.09.2014, 23:58 **[ТС]**

Всем спасибо за помощь, нашел вот такую процедуру задержки:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure DelayUS(MicroS:int64); // Ожидание N microSec
var
  Frq_Base, Time_memo, Time_now, dif: Int64;
begin
  if QueryPerformanceFrequency(Frq_Base) then // Частота ПК
    begin
      QueryPerformanceCounter(Time_memo);        // начальное значение
      repeat
      QueryPerformanceCounter(Time_now);
      dif := ((Time_now - Time_memo) * 1000000) div Frq_Base;
      until dif > MicroS;
    end;
end;
 
 
 
Begin
 
DelayUS(4550); // Задержка микросек
 
End;

Правда такой метод процессорные ресурсы компьютера жрет. На моем ноуте core-i3 загрузка ЦП показала 25 процентов и зашумел вентилятор охлаждения.

@northener · 29.09.2014, 01:45

Сообщение от codeok

Правда такой метод процессорные ресурсы компьютера жрет.

И ничего не гарантирует при использовании на практике.

@codeok · 29.09.2014, 03:03 **[ТС]**

Сообщение от TooHot

насколько я помню, точность таймера порядка 50 миллисекунд. Смысл?

Это все приблизительно.

Сообщение от northener

И ничего не гарантирует при использовании на практике.

А какие тогда есть альтернативы? Если они есть конечно.

@mss · 29.09.2014, 09:47

Сообщение от codeok

А какие тогда есть альтернативы? Если они есть конечно

Альтернативы две:
1. Использовать ОС реального времени, коей ни одна Винда (кроме спецверсий а-ля WinCE) не является.
2. Забить на затею как на изначально бессмысленную - человеческий глаз даже в теории не способен различать смену кадров с частотой в миллионные доли секунды.

Новые блоги и статьи Все статьи Все блоги /
Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .	Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .	Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев). Hrethgir 12.06.2025 Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений bytestream 12.06.2025 Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .	Dispose и Finalize в C# stackOverflow 12.06.2025 Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .	Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .	Множества в Python py-thonny 11.06.2025 В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .	Работа с ccache/sccache в рамках C++ Loafer 11.06.2025 Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .

Как TTimer только в микросекундах

Решение

Решение

@codeok 0 / 0 / 0 Регистрация: 28.05.2013 Сообщений: 52

	Как TTimer только в микросекундах 28.09.2014, 02:21. Показов 2478. Ответов 19 Метки нет (Все метки) Здравствуйте. Подскажите наподобие TTimer только в микросекундах. Как такое сделать или есть уже готовые решения? 0

@esculap_ra 462 / 265 / 55 Регистрация: 22.08.2010 Сообщений: 1,204 Записей в блоге: 4
	28.09.2014, 02:25
	а он в миллисекундах что ли? вот никогда не мучил такой вопрос. 0

@esculap_ra 462 / 265 / 55 Регистрация: 22.08.2010 Сообщений: 1,204 Записей в блоге: 4
	28.09.2014, 02:53
	короче, я примерно догадываюсь. ты перерисовку делаешь по-пиксельно, и это приводит к затратам машинного времени. нужно просто по таймеру стирать всю сроку и снова ее рисовать. для этого с процедуре отнимаешь символ с головы и клеишь в хвост, а потом копируешь нужную часть (с головы, скажем 100 символов) и отображаешь. 1

@esculap_ra 462 / 265 / 55 Регистрация: 22.08.2010 Сообщений: 1,204 Записей в блоге: 4
	28.09.2014, 03:37
	походу в языках верхнего уровня это не делается. 1

raxper 10236 / 6614 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	28.09.2014, 09:52
	Сообщение было отмечено codeok как решение Решение Анимация вращения 1

raxper 10236 / 6614 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	28.09.2014, 17:36
	QueryPerformanceFrequency + QueryPerformanceCounter, см. MSDN. 1

@esculap_ra 462 / 265 / 55 Регистрация: 22.08.2010 Сообщений: 1,204 Записей в блоге: 4
	28.09.2014, 18:03
	Слушай, codeok, у меня 7-я версия и твой код не работает, да и особо ковыряться неохота. Я бегло посмотрел, и по-моему тут дело не в задержке и в наложении событий ontimer. Попробуй при событии запретить таймер, а когда код отработает, снова разрешить. 1

@codeok 0 / 0 / 0 Регистрация: 28.05.2013 Сообщений: 52
	28.09.2014, 18:28 [ТС]
	esculap_ra, Попробовал, все осталось как было. Мне кажется, это из-за таймера все таки. Если ставлю к примеру 55 мс, то как раз секунд за 15 и пробегает(ширина 300 пикселей). 0

@TooHot 74 / 62 / 26 Регистрация: 05.08.2014 Сообщений: 218
	28.09.2014, 21:30
	codeok, насколько я помню, точность таймера порядка 50 миллисекунд. Смысл? 1