5. Таймеры

Элемент управления таймер (timer)

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

5.1 Свойства и события таймера

Стандартные свойства таймеров Name и Enabled. Самое важное свойство объектов этого типа Interval. Интервал (в мс) между двумя событиями может принимать любые значения в диапазоне от 0 до 65535. Интервал, равный нулю, отключает таймер. Если вам нужно, чтобы события от таймера возникали n раз в секунду, то для подсчета значений свойства Interval можно пользоваться формулой 1000/n. Например, чтобы система генерировала события таймера 2 раза в секунду, в свойство Interval надо записать число 500 (т.е. 1000/2).

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

5.2 Проект Metronome

В этом проекте на основе двух объектов – таймера и линейки прокрутки – создается модель метронома.

На форме в новом проекте поместим горизонтальную линейку прокрутки и таймер. У левого конца линейки прокрутки разместите метку, введите в ее свойство Caption строку Медленно. Аналогичную метку вставьте у правого конца линейки и определите ее свойство Caption как строку Быстро. Свойство Name формы, таймера и линейки прокрутки оставим данное по умолчанию этим элементам Visual Basic, соответственно Form1, Timer1, Hscroll1. Свойству Caption формы присвойте значение Метроном. Вот приблизительно что у вас должно получиться:

Установите свойство таймера Interval на значение 1000. Присвойте следующие значения свойствам горизонтальной линейки прокрутки:

Свойство	Значение
LargeChange	100
Max	300
Min	1500
SmallChange	25
Value	1000

Теперь составим процедуру Change для линейки прокрутки, которая должна синхронизировать таймер с линейкой прокрутки.

Privat Sub Hscroll1_Change( )

Timer1.Interval = Hscroll1.Value

End Sub

Вторая процедура Timer для объекта таймер должна формировать “удары” метронома (динамик вашего компьютера будет издавать сигналы “бип”).

Private Sub Timer1_Timer( )

Beep

End Sub

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

6. Задания

а). Выберите тему для проекта, описанного в пункте 1.4 настоящего занятия и выполните его. Интересные проекты обязательно будут размещены на сервере.

б). Выполните проект, описанный в пункте 2.1 настоящего занятия. Картинки тематически могут быть другие, но обязательно обрабатывайте события Click и DblClick метки и меняйте в коде значения свойства Caption метки, используйте описанные в пункте 2 свойства метки. Интересные проекты будут размещены на сервере.