Работа с таймером

Таймер в режиме разработки программы всегда отображается в форме в виде пиктограммы, но при выполнении он становится «невидимым». Чтобы запустить в программе таймер, вначале нужно написать текст процедуры обработки события Timer, а затем установить значения некоторых свойств. Основные свойства:

1) Interval;

2) Enabled.

Свойство Enabled запускает и останавливает таймер. Если его значение равно True, то по истечении интервала времени будет вызываться процедура обработки события Timer. Значения Interval находятся в диапазоне от 0 до 65535. Если данному свойству присвоить значение 0, элемент управления типа Timer перейдет в неактивное состояние.

Максимальный интервал времени, который позволяет установить таймер, примерно равен одной минуте (65535 мсек). Ниже приведен текст процедуры, которая позволяет расширить диапазон времени.

Пример 6.2.1, позволяющий искусственно изменить интервал до 5 минут. В данном примере каждые 5 минут будет выведено на экран диалоговое окно «Привет». Отсчет времени начинается после загрузки программы либо после нажатия кнопки ОК диалогового окна. В примере используется функция Timer, определяющая количество секунд после полночи.

Dim a As Long

Private Sub Form_Load()

Dim b As Long

a = (Timer + 5 * 60) Mod (3600& * 24)

Timer1.Interval = 10

End Sub

Private Sub Timer1_Timer()

If Timer > a Then

Timer1.Enabled = False

MsgBox "Привет"

Timer1.Enabled = True

a = (Timer + 5 * 60) Mod (3600& * 24)

End If

End Sub