Елемент управління Timer (таймер) використовується для виконання дії через певний проміжок часу. Основна властивість елемента - Interval - задає інтервал часу, який визначає, як часто таймер повинен повідомляти додаток. Властивість Interval задається в мілісекундах (1000 мілісекунд = 1 секунді). Хочеться відзначити, що максимально можливе значення даного властивості рівне 65 секундам.
Єдине подія таймера - Timer. Для того, щоб дізнатися як працює ця подія, створіть новий проект, помістіть на форму елемент Timer. Встановіть значення Interval рівним 1000 (1 секунда). У подія Timer1_Timer вставте наступний код:
Далі показані кілька прикладів використання таймера.
Реалізація функції «очікування» в VB
Цей приклад покаже, як можна реалізувати функцію очікування в VB. Спочатку помістіть на форму таймер (Timer1) і встановіть його властивість Enabled = False. Для тестування процедури додайте дві мітки (Label1 і Label2) і командну кнопку (Command1) до форми. Напишіть наступну підпрограму і код події Timer для таймера:
Public Sub Wait (seconds)
Timer1.Enabled = True 'включення таймера
Timer1.Interval = 1000 * seconds 'установка інтервалу для таймера
While Timer1.Interval> 0
DoEvents
Wend
Timer1.Enabled = False 'вимикання таймера
End Sub
Private Sub Timer1_Timer ()
Timer1.Interval = 0
End Sub
Тепер можете використовувати функцію Wait всюди, де потрібно будь-яка затримка, наприклад:
Private Sub Command1_Click ()
Label1.Caption = Now
Wait (5)
Label2.Caption = Now
End Sub
Наприклад, необхідно щоб кожні дві хвилини відбувалося будь-яку подію
Недоліком даного методу є додавання в вашу програму додаткових змінних. До того ж дана програма випробовувалася в режимі тестування, коли навантаження на комп'ютер не було. І незрозуміло, як поведе себе ця програма в реальному режимі роботи.
Dim n As Long, s As Long
Private Sub Form_Load ()
n = 1
End Sub
Private Sub Timer1_Timer ()
s = s + 1
Select Case s
Case 120 * n '120 - число в хвилинах
Form2.Show 'подія: показати форму
n = n + 1
End Select
End Sub
Сайт оптимізовано під роздільну здатність 1024x768