Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

О таймере

Delphi , Компоненты и Классы , TTimer

О таймере

Компонент ttimer (таймер) служит для отсчета интервалов реального времени. Его свойство interval определяет интервал временив миллисекундах , который должен пройти от включения таймера до наступления события ontimer. Таймер включается при установке значения true в его свойство enabled. Единожды включенный таймер все время будет возбуждать события ontimer до тех пор, пока его свойство enabled не примет значения false.
Следует учесть, что в силу специфики реализации стандартного аппаратного таймера ibm-совместимого компьютера минимальный реально достижимый интервал отсчета времени не может быть меньше 55 мс (этот интервал называется тиком), более того, любой интервал времени, отсчитываемый с помощью таймера, всегда кратен 55 мс. Чтобы убедиться в этом, проведите эксперимент, в котором подсчитывается среднее время между двумя срабатываниями таймера (timer.dpr):
Начните новый проект с пустой формой и положите на нее компонент ttimer.
Установите в свойство enabled таймера значение false.
Напишите такой модуль главной формы (листинг 4):
Листинг 4
Code:
unit unit1;
 
interface
 
uses
windows, messages, sysutils, classes, graphics, controls, forms,
dialogs, stdctrls, buttons, extctrls;
 
type
tfmexample = class(tform)
panel1: tpanel;
bbrun: tbitbtn;
bbclose: tbitbtn;
edinput: tedit;
lboutput: tlabel;
mmoutput: tmemo;
timer1: ttimer;
procedure bbrunclick(sender: tobject);
procedure timer1timer(sender: tobject);
procedure formactivate(sender: tobject);
private
begtime: tdatetime; // Начальное время цикла
counter: integer; // Счетчик цикла
end;
 
var fmexample: tfmexample;
 
implementation
 
{$r *.dfm}
 
procedure tfmexample.bbrunclick(sender: tobject);
// Запускает таймер. edinput содержит период его срабатывания.
var delay: word;
begin
// Проверяем задание интервала
if edinput.text='' then exit;
try
   delay := strtoint(edinput.text);
except
   showmessage('Ошибка в записи числа');
   edinput.selectall;
   edinput.setfocus;
   exit
end;
counter := 0; // Сбрасываем счетчик
timer1.interval := delay; // Устанавливаем интервал
begtime := time; // Засекаем время
timer1.enabled := true; // Пускаем таймер
screen.cursor := crhourglass
end;
 
procedure tfmexample.timer1timer(sender: tobject);
var h, m, s, ms: word; // Переменные для декодирования времени
const maxcount = 55; // Количество срабатываний таймера
begin
counter := counter + 1; // Наращиваем счетчик срабатываний
if counter=maxcount then // Конец цикла?
begin // - Да
   timer1.enabled := false; // Останавливаем таймер
   // Находим среднее время срабатывания:
   decodetime((time-begtime)/maxcount, h, m, s, ms);
   mmoutput.lines.add( // Выводим результат
   format('Задано %s ms. Получено %d ms.', [edinput.text, ms]));
   edinput.text := ''; // Готовим следующий запуск
   edinput.setfocus;
   screen.cursor := crdefault
end;
end;
 
procedure tfmexample.formactivate(sender: tobject);
begin
edinput.setfocus
end;
 
end.
 
Необходимость нескольких (maxcount) срабатываний для точного усреднения результата связана с тем, что системные часы обновляются каждые 55 мс. После запуска программы и ввода 1 как требуемого периода срабатывания в редакторе mmoutput вы увидите строку
 
Задано 1 ms. Получено 55 ms.
 
в которой указывается, какое реальное время разделяет два соседних события ontimer. Если вы установите период таймера в диапазоне от 56 до 110 мс, в строке будет указано 110 ms и т.д. (в силу дискретности обновления системных часов результаты могут несколько отличаться в ту или иную сторону).
 
В ряде практически важных областей применения (при разработке игр, в системах реального времени для управления внешними устройствам и т.п.) интервал 55 мс может оказаться слишком велик. Современный ПК имеет мультимедийный таймер, период срабатывания которого может быть от 1 мс и выше, однако этот таймер не имеет компонентного воплощения, поэтому для доступа к нему приходится использовать функции api.
 
Общая схема его использования такова. Сначала готовится процедура обратного вызова (call back) с заголовком:
Code:
procedure timeproc(uid, umsg: uint; dwuser, dw1, dw2: dword); stdcall;
 
Здесь uid — идентификатор события таймера (см. об этом ниже); umsg — не используется; dwuser — произвольное число, передаваемое процедуре в момент срабатывания таймера; dw1, dw2 — не используются.
Запуск таймера реализуется функцией:
 
Code:
function timesetevent(udelay, uresolution: uint; lptimeproc: pointer; dwuser: dword; fuevent: uint): uint; stdcall; external 'winmm.dll';
 
Здесь udelay — необходимый период срабатывания таймера (в мс); uresolution — разрешение таймера (значение 0 означает, что события срабатывания таймера будут возникать с максимально возможной частотой; в целях снижения нагрузки на систему вы можете увеличить это значение); lptimeproc — адрес процедуры обратного вызова; dwuser — произвольное число, которое передается процедуре обратного вызова и которым программист может распоряжаться по своему усмотрению; fuevent — параметр, управляющий периодичностью возникновения события таймера: time_oneshot (0) — событие возникает только один раз через udelay миллисекунд; time_periodic (1) — события возникают периодически каждые udelay мс. При успешном обращении функция возвращает идентификатор события таймера и 0, если обращение было ошибочным.
 
Таймер останавливается, и связанные с ним системные ресурсы освобождаются функцией:
 
Code:
function timekillevent(uid: uint): uint; stdcall; external 'winmm.dll';
 
Здесь uid — идентификатор события таймера, полученный с помощью timesetevent.
В следующем примере (timer.dpr) иллюстрируется использование мультимедийного таймера (листинг 5).
 
Code:
unit unit1;
 
interface
 
uses
windows, messages, sysutils, classes, graphics, controls, forms,
dialogs, stdctrls, buttons, extctrls;
 
type
tfmexample = class(tform)
panel1: tpanel;
bbrun: tbitbtn;
bbclose: tbitbtn;
edinput: tedit;
lboutput: tlabel;
mmoutput: tmemo;
procedure bbrunclick(sender: tobject);
procedure formactivate(sender: tobject);
end;
 
var fmexample: tfmexample;
 
implementation
 
{$r *.dfm}
// Объявление экспортируемых функций:
 
function timesetevent(udelay, ureolution: uint; lptimeproc: pointer;
dwuser: dword; fuevent: uint): integer; stdcall; external 'winmm';
 
function timekillevent(uid: uint): integer; stdcall; external 'winmm';
 
// Объявление глобальных переменных
var
ueventid: uint; // Идентификатор события таймера
begtime: tdatetime; // Засекаем время<
counter: integer; // Счетчик повторений
delay: word; // Период срабатывания
 
procedure proctime(uid, msg: uint; dwuse, dw1, dw2: dword); stdcall;
// Реакция на срабатывание таймера (процедура обратного вызова)
var h, m, s, ms: word; // Переменные для декодирования времени
const maxcount = 55; // Количество повторений
begin
timekillevent(ueventid); // Останавливаем таймер
counter := counter+1; // Наращиваем счетчик
if counter=maxcount then // Конец цикла?
begin // - Да: декодируем время
   decodetime((time-begtime)/maxcount, h, m, s, ms);
   fmexample.mmoutput.lines.add( // Сообщаем результат
   format('Задано %s ms. Получено %d ms',
   [fmexample.edinput.text,ms]));
   fmexample.edinput.text := ''; // Готовим повторение
   fmexample.edinput.setfocus
end
else // - Нет: вновь пускаем таймер
   ueventid := timesetevent(delay,0,@proctime,0,1);
end;
 
procedure tfmexample.bbrunclick(sender: tobject);
// Запускает таймер. edinput содержит требуемый период.
begin
// Проверяем задание периода
if edinput.text='' then exit;
try
   delay := strtoint(edinput.text)
except
   showmessage('Ошибка ввода числа');
   edinput.selectall;
   edinput.setfocus;
   exit
end;
counter := 0; // Сбрасываем счетчик
begtime := time; // Засекаем время
// Запускаем таймер:
ueventid := timesetevent(delay,0,@proctime,0,1);
if ueventid=0 then
   showmessage('Ошибка запуска таймера')
end;
 
procedure tfmexample.formactivate(sender: tobject);
begin
edinput.setfocus
end;
 
end.
 
Источник: http://www.delphi.h5.ru/

Статья О таймере раздела Компоненты и Классы TTimer может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TTimer ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Rambler's Top100
25.06.2019 04:36:45/0.012537002563477/0