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

Щоб краще зрозуміти, як працює таймер, ми створимо годинник в заголовку форми:

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.

Можливо, ви помітили, що заголовок додатка злегка мерехтить. Щоб позбавитися від цього неприємного ефекту, слід звести до мінімуму кількість оновлень заголовка в процедурі події Timer:

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 у верхній частині вікна.