Властивості таймерів
Як видно з наступної таблиці, у таймера відносні мало властивостей:
-
Enabled
Index
Interval
Left
Name
Parent
Tag
Тор
Якщо не рахувати властивості Name (імена таймерів рекомендується забезпечувати префіксом tmr), в цьому списку є лише дві корисні властивості - Enabled і Interval. Насправді, таймер починає робити щось корисне лише після того, як буде задано значення останньої властивості (передбачається, що властивість Enabled має набутого за умовчанням значення True). Властивості Left і Тор надмірні - конкретне положення таймера на формі не має ніякого значення. Значення властивості Interval задається в мілісекундах. Іншими словами, щоб таймер відлічував секунди, їх число необхідно помножити на 1000. Після закінчення заданого терміну (за умови, що таймер не був заблокований) елемент генерує подію Timer. Для цього він часто перевіряє показання системних годинників.
ПІДКАЗКА. Значення властивості Interval задається в мілісекундах. Щоб таймер відлічив певну кількість секунд, необхідно задати для властивості Interval кількість секунд, помножену на 1000. Врахуйте, що властивість Interval може набувати значень від 0 (відключення таймера) до 65 535 (65,5 с).
Події таймерів
Із таймерами пов'язана всього одна подія - Timer. Як було сказано раніше, воно настає після закінчення заданого інтервалу, визначуваного властивістю Interval. Щоб воно не сталося після закінчення зазначеного терміну, задайте властивості Enabled таймера значення False.
Методи таймерів
Таймери не мають ніяких методів.
Робота з таймером
Щоб краще зрозуміти, як працює таймер, ми створимо годинник в заголовку форми:
1. Створіть новий проект командою File > New Project і виберіть значок Standard EXE.
2. Задайте властивості Name форми Form1 значення frmMain, а властивості Caption-значення пропишіть текст «Годинник».
3. Розмістите таймер на формі frmMain. Задайте властивості Name значення tmrTime.
4. Задайте властивості Interval значення 500. Стан системного годинника перевірятиметься кожні півсекунди. Цей інтервал був вибраний через те, що таймер Visual Basic не відрізняється особливою точністю, проте для нашого застосування підійде і він.
5. Додайте наступний фрагмент в секцію(Declarations) форми frmMain:
Option Explicit
Private OldCaption As String
6. Додайте наступний фрагмент в процедуру події Form_Load:
Private Sub Form_Load()
OldCaption = Me.Caption
End Sub
7. Тепер додайте наступний фрагмент в процедуру події Timer таймера:
Private Sub tmrTimer_Timer() Dim msg As String
msg = OldCaption & «: « & Time$ Caption = msg
End Sub
8. Збережете додаток і Запустіть його командою Run > Start. Зразковий вид вікна додатка показаний на мал. 3.12.
М
Мал. 3.12. Додаток - Годинник.
Private Sub tmrTimer_Timer()
Dim msg As String
msg = OldCaption & «: « & Time$
If msg<>Caption Then
Caption = msg
End If
End Sub
Оператор If..Then перевіряє, чи змінився час, який повертається функцією Time$. Якщо рядок msg відрізняється від Caption, ми оновлюємо властивість Caption відповідно до нового значення часу. Інакше ми нічого не робимо і не] змінюваний Caption - мерехтіння зникає.
ПІДКАЗКА. Ви можете скористатися функцією Format, щоб змінити формат представлення часу. Ця функція отримує ряд іменованих параметрів, а також деякі параметри, які ви визначаєте самі. Її можливості не обмежуються форматуванням дати і часу - ця функція працює з числами і рядками. Функція Format детально описана в електронній документації - знайдіть розділ Format Function і клікніть на посиланні See Also у верхній частині вікна.