77978

Возможности Delphi для ввода и отображения дат и времен. Таймер

Лекция

Информатика, кибернетика и программирование

Таймер Компонент Delphi Timer очень простой компонент который не виден на экране но тем не менее Delphi Timer выполняет очень важные функции в программе. Delphi Timer позволяет вводить необходимые задержки между выполнением тех или иных действий. Компонент Timer имеет всего четыре свойства и одно событие и работать с компонентом Delphi Timer очень просто. Свойство Назначение Enbled Включение-выключение таймера Intervl Интервал срабатывания в миллисекундах Nme Имя компонента в программе Tg Произвольный числовой параметр Помещаем...

Русский

2015-02-05

193.5 KB

0 чел.

Возможности Delphi для ввода и отображения дат и времен. Таймер

Компонент Delphi Timer очень простой компонент, который не виден на экране, но, тем не менее, Delphi Timer выполняет очень важные функции в программе . Delphi Timer позволяет вводить необходимые задержки между выполнением тех или иных действий.

Компонент Timer имеет всего четыре свойства и одно событие, и работать с компонентом Delphi Timer очень просто.

Свойство

Назначение

Enabled

"Включение-выключение" таймера

Interval

Интервал срабатывания (в миллисекундах)

Name

Имя компонента в программе

Tag

Произвольный числовой параметр

Помещаем компонент Delphi Timer на форму. Задаем в свойстве Interval нужный интервал времени (измеряется в миллисекундах). Переходим на вкладку Events и видим единственное событие, поддерживаемое компонентом Delphi Timer: OnTimer. Выполнив по нему двойной щелчек, или также двойной щелчек по самомукомпоненту, мы попадаем в сформированный средой Delphi обработчик события, где и введем код, предусматривающий выполнение тех или иных действий.

Так как по умолчанию свойство Enabled установлено в True, то в программе через установленный в свойстве Interval промежуток времени таймер сработает, то есть выдаст событие OnTimer. Будут выполнены необходимые действия. Иногда же запланированные действия должны произойти не автоматически при старте программы, а при выполнении каких-либо других действий. В этом случае необходимо свойство Enabled в Инспекторе Объектов устанавить а False. Затем в необходимый момент нужно выполнить команду:

Timer1.Enabled:=True;

 Учтите, что пока Timer1.Enabled равно True, компонент продолжит генерировать событие OnTimer по истечении каждого промежутка времени, равного значению свойства Interval. Поэтому, если нужно только единичное срабатывание, то таймер нужно остановить, причем сразу же:

 procedure TForm1.Timer1Timer(Sender: TObject);

 begin

 timer1.enabled:=false;

 {необходимые действия}

 end;

end.    

 

Если же запрограммировать "выключение" таймера после выполнения предусмотренных в программе действий, то при дастаточном малом по сравнению с продолжительностью необходимых действий значении свойства Interval таймер вновь сработает, и это может помешать ходу программы.

Компонент Delphi Timer не является очень точным и не подходит дя измерения малых промежутков времени. Его точность порядка 50 миллисекундах. В качестве примера приведу простую программу, отображающую текущее время.

На форме будут только компонент Label и собственно наш компонент Delphi Timer. Свойство Timer можно оставить равным 1000, но раньше на более медленных компьютерах приходилось отображать время несколько раз в секунду показания "плавали", что было хорошо заметно на глаз. Размер шрифта возьмем побольше – 50, и подберем шрифт BellMT. Растянем на всю форму: Align=alClient. Запишем код:

 procedure TForm1.Timer1Timer(Sender: TObject);

 begin

 label1.Caption:=timetostr(now);

end;

end.

 Now – это системная функция, возвращаюшая текущую дату-время в соответствующем формате TDateTime. Если преобразовывать ее в строку функцией TimeToStr, то она вернет текущее время, если DateToStr, то текущую дату. Если хотим отображать в нашей программе и дату тоже, достаточно поставить еще один компонент Label, и функцией DateToStr передавать в него дату.

 


 

А также другие работы, которые могут Вас заинтересовать

82122. Здоровий спосіб життя – це модно 70.5 KB
  Мета: Здійснювати пропаганду здорового способу життя; розширити та закріпити знання про пагубний вплив наркотиків тютюнопаління алкоголю на організм людини. Виховувати у учнів негативне відношення до застосування алкогольних напоїв наркотиків та та тютюнопаління, бажання і вміння вести здоровий спосіб життя...
82123. Зелені друзі 528 KB
  А зараз ми з вами спробуємо порівняти дерево і людину. Для цього ми розділимось на чотири групи кожна отримає запитання на яке дасть повну відповідь: Що спільного між людиною і деревом Чим відрізняються дерево і людина Яке значення дерева в житті людини Яке значення людини в житті дерев...
82124. Земля – наш космічний дім 63.5 KB
  Закріпити і перевірити знання учнів по темі; підвести підсумок пошуковій роботі; висвітлити значення океанів та використання їх багатств людиною; сприяти розвитку пам’яті, спостережливості; виховувати бережливе ставлення до природних багатств.
82125. Презентація проекту «Земля – наш дім» 41 KB
  Усі ми живі творіння природи на планеті Земля її біологічні мешканці і нам необхідно берегти свою Землю бо у космосі така одна. Світ-загадка лежить під ногами у нас: Форму кулі Земля наша має. Ось вирішили зробити колективну роботу Земля наш спільний дім а також композицію Рідна Земля намалювавши улюблені...
82126. Живе слово поета 72.5 KB
  Звучить музика Ведучий 1 Добрий день шановні друзі гості вчителі Ведучий 2 Ми вітаємо вас на нашому шкільному святі Живе слово поета О слово рідне Шум дерев Музика зір блакитнооких Шовковий спів снопів широких Дніпра між ними левій рев. 1 Художнє слово мов ота живинка Без нього ніби ти і не живеш...
82127. О.Буцень «Чи є зима?» 54.5 KB
  Мета: вчити дітей правильного і виразного читання; розширювати кругозір учнів; розвивати пізнавальні інтереси, усне мовлення, уяву, спостережливість; вдосконалювати техніку читання; виховувати любов до зимової пори, відчуття краси і неповторної зимової природи.
82128. Как зимуют птицы и звери. Забота людей о птицах и зверях зимой 429 KB
  Цель: учить устанавливать взаимосвязь между изменениями в неживой природе жизнью растений и жизнью животных; продолжить формировать умения сравнивать животных по их существенным признакам классифицировать их; обобщать полученную информацию; закреплять навыки работы в в группах...
82129. Конкурсно-розважальна програма для перших класів 45.5 KB
  Їжте діти апельсин Будете здорові як мій син Думаю що вам теж не завадять вітаміни які є у апельсині. То ж пограємо у гру Передай апельсин Апельсин тримаємо підборіддям передаємо наступним гравцям команди руками не допомагаємо. У кого падає апельсин той покидає гру.
82130. КАК ЗИМУЮТ ЗВЕРИ И ПТИЦЫ 56 KB
  Оборудование: видеофильм Как зимуют звери и птицы картина Зимний пейзаж музыка Сказочная волшебная зимняярисунки птиц фотоальбом Животные Украины опорные схемы проектор компьютер маски животных карточки для самостоятельной работы учащихся карта Двуречанского района выставка книг.