Как создать больше таймеров?

[jone]

Сообщение от Аватар

Ну да, а обращаться к этой функции с какой частотой? Или в бесконечном цикле, загрузив процессор на 100%

опа хорошая идея с бесконечным циклом
на ядра мне пофиг у меня топовый системник

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

почему не использовать ассемблер?
пишу код по памяти, возможны ошибки

function GetTSC() : Int64;
asm
    RDTSC
end;

функция вернет кол-во тактов процессора.
Вычисляем значение, вычитаем из него прошлое.
Получаем кол-во тактов прошедших с последнего момента
1 такт ~ 500 наносекунд

*сори асм не знаю

Как сделать чтобы выполнялось действие с такой скоростью ?

Сообщение от ACE Valery

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

Мне просто нужна большая скорость выполнения моего события

  for i := 0 to 4900 do
  begin
  timer := TTimer.Create(nil);
  timer.Interval := 1;
  timer.Enabled := true;
  timer.OnTimer :=tmr1Timer;
   // caption:=IntToStr(i);
     end;

Как видишь каждому таймеру присаевается одно и тоже действие

[evg_m]

Мне просто нужна большая скорость выполнения моего события

Скорость выполнения определятся не таймером а КОДОМ обработки.
самая быстрая скорость обработки пустая процедура, если код сложный то скорость уменьшается.

Для наиболее быстрого инициирования событий (MyEvent) нужен не таймер а цикл

while not terminated do MyEvent;

Быстрее чем работает процессор скорость не получить.
from raxp 1 такт процессора 500 наносекунд.
НО и то при условии что никто другой(другие программы в т.ч. сама и Windows для своих нужд) на заберет процессор.

[jone]

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

Скорость выполнения определятся не таймером а КОДОМ обработки.
самая быстрая скорость обработки пустая процедура, если код сложный то скорость уменьшается.

Для наиболее быстрого инициирования событий (MyEvent) нужен не таймер а цикл

while not terminated do MyEvent;

Быстрее чем работает процессор скорость не получить.
from raxp 1 такт процессора 500 наносекунд.

програма ступарится, да скорость раз в 1000 быстрее

ступарение избежал

begin
 while not Application.Terminated do
 begin
   Application.ProcessMessages;
      btn2.Click;
 end;
end;

[evg_m]

а теперь зачем вам нажимать(имитировать нажатие) кнопку (Btn2.Click) если с тем же и даже большим успехом (не нужно будет тратить время на обработку собственно сообщений нажатия кнопки) можно всю логику (код обработки) из OnBtn2Click вынести(перенести) в отдельную процедуру MyEvent. и вызывать ее.

[Stilet]

как сделать больше таймеров)

for i:=0 to мегафинтильон do begin
 with TTimer.Create(self) do begin
  interval:=i;
  OnTimer:=Тут имя процедуры обработчика;
  enabled:=true;
 end;
end;

Как видишь каждому таймеру присаевается одно и тоже действие

Стоп! Тебе не таймеры нужно.
Давай задачу в студию подробно.

[raxp]

from evg-m, все процессоры разные и 1 такт процессора не равен 500 нс, и вообще пройдите по ссылке. А тему в топку, это прикол какой-то.

[Arigato]

А я понял, чего хочет ТС, тут не прикол, он серьезно.
Допустим, наш таймер срабатывает раз в миллисекунду. Два таких таймера должны (по мнению ТС) вызывать событие два раза в миллисекунду - каждый по одному разу в миллисекунду. То есть 1000 таймеров должны вызывать событие раз в микросекунду. Тогда ТС нужно создать миллион таймеров, и событие будет срабатывать раз в наносекунду! Таким образом его событие будет работать даже быстрее, чем физические возможности процессора. Я думаю, человек может претендовать на Нобелевскую премию!

[netpolice]

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

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

[Arigato]

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

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

Ничего, квантовые компьютеры уже на подходе, так и пригодятся таймерные вычисления Джона

[netpolice]

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

Ничего, квантовые компьютеры уже на подходе, так и пригодятся таймерные вычисления Джона

А че... Может мы находимся при создании новой науки. Над Джоном Булеем тоже посмеивались.... (Может реинкарнация?)