Таймер независяший от частоты проца (Delphi)

[Dozent]

Здраствуйте, я понимаю что про таймеры было создано много тем но ответа вних на мою проблему я пока не нашёл...

Подскажите плз код точного ну или приблизитлеьно точного таймера не зависяшего от тактовой частоты проца, ну или хотябы который будит подстраиватся под эту частоту, обычный компоменнт TTimer неустраивает, т.к. указаное на моём компе время в 10 сек на другом компе пролетело за одну!

Есть мног овариантов с вычислением тактовой частоты и тд но какой самый оптимальный прошу помоши...
Заранее благодарен.

[Alex Cones]

TTimer неустраивает, т.к. указаное на моём компе время в 10 сек на другом компе пролетело за одну!

Такого не может быть. Скорее всего в Interval Вы задали 10. А нужно 10000, так как значение в миллисекундах.

[BOBAH13]

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

Здраствуйте, я понимаю что про таймеры было создано много тем но ответа вних на мою проблему я пока не нашёл...

Подскажите плз код точного ну или приблизитлеьно точного таймера не зависяшего от тактовой частоты проца, ну или хотябы который будит подстраиватся под эту частоту, обычный компоменнт TTimer неустраивает, т.к. указаное на моём компе время в 10 сек на другом компе пролетело за одну!

Есть мног овариантов с вычислением тактовой частоты и тд но какой самый оптимальный прошу помоши...
Заранее благодарен.

Могу предположить, что если возникает подобный вопрос, то скорее всего выхода два:
1. Вы расскажите для чего оно вам надо вообще ?
2. Вообще убрать таймер, и решить по другому пути

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

За свою практику, не видел задачи, чтобы такое понадобилось.

p.s. для информации, "стандартный компонент TTimer" - есть оболочка системы, т.е. HWND (окно) + SetTimer/KillTimer + WM_TIMER

[Dozent]

Инетвал был равен имено 10000 в этом я уверен на все 100%

Надо для отсчёта времени желательно точного...
Нашёл такую реализацию

procedure timer.Execute;
var
 WhEvent: THandle;
 i: integer;
begin
 repeat
 WhEvent := CreateEvent(nil, true, false, 'et');
 for i:=0 to 59 do
     begin
      WaitForSingleObject(WhEvent, 1000);
      Form1.Button3.Caption:=Inttostr(i);
     end;
     
      ...

  until(i=100);
end;

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

А про TTimer я давно заметил за ним такой подвхо, что на разынх компах работает по разнаму и в этом я уверен потмоу что видил своими глазами Не переубдите

[Вавел из ГМТУ]

Ну не знаю, у меня таймер нормально отсчитывает 10 сек, но на таймере я всегда выставляю 1 сек.

А выдержки получаю через блок if и уменьшении переменой. Типа этого:

T := T - 1;
If T < 1 Then Begin
T := 10;
....
End;

[evg_m]

The DispatchMessage function forwards this message when no other messages are in the thread's message queue.

из справки по WM_TIMER
объяснение почему таймер может по разному (до него просто не доходит очередь )

[Пепел Феникса]

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

[Dozent]

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

The DispatchMessage function forwards this message when no other messages are in the thread's message queue.

из справки по WM_TIMER
объяснение почему таймер может по разному (до него просто не доходит очередь )

да я читал что такое что он обрабатывает 5 или 6 посчёту поэтому он не точен... но вроебы вариант описаный мно выше меня вполне устраивает, тестил спец на разных компах тики одинаковые...

не не менял ни чего

[Kukkk]

Программируете внешний порт, вешаете на него установку-электромагнит с контактом и маятник. Пара часов за паяльником и ваш таймер зависит только от широты положения компьютера и высоты над уровнем моря. Если серьезно- Ttimer разве не от системных часов работает? Они за годы сбиваются на секунды, это огромная точность. Куда больше то?

[Dozent]

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

Программируете внешний порт, вешаете на него установку-электромагнит с контактом и маятник. Пара часов за паяльником и ваш таймер зависит только от широты положения компьютера и высоты над уровнем моря. Если серьезно- Ttimer разве не от системных часов работает? Они за годы сбиваются на секунды, это огромная точность. Куда больше то?

если бы небыло никаки хпроблем не бы писал бы наверное
Мб у меня глючиная версия делфи?)