Программа 9. Создание цифровых часов с помощью таймера.

1.Создайте новый проект и щелкните на кнопке управления Timer.
Создайте объект – таймер. Создайте поле Label, как показано на рис. 13.

Рис. 13.

В свойствах установите следующее:

Если надо использовать художественные эффекты, установите для свойства Picture объекта Form путь к нужному файлу графики.

2. Дважды щелкните на объекте Timer и введите следующий оператор

Label1.Caption=Time

3. Запустите программу.

Программа 10. Установка ограничения времени при вводе пароля.

1. Откройте новый проект. Создайте форму как показано на рис. 14.
2. Форма должна содержать Text Box, Label, Command Button, Timer.

Рис. 14.

Установите указанные ниже свойства для вашей программы

Дважды щелкните на объекте Timer и введите операторы:

Private Sub Timer1_Timer()
MsgBox ("Sorry, Your time is up")
End
End Sub

Дважды щелкните на объекте Comand и введите операторы:

Private Sub Command1_Click()
If Text1.Text = "secret" Then
Timer1.Enabled = False
MsgBox ("Welcome to the system")
End
Else MsgBox ("Sorry, friend, I don't know you")
End If
End Sub

Данная программа проверяет, введено ли в поле ввода пароля слово Secret. Если да, то таймер отключается, отображается приглашение и работа программы завершается. Если введен неверный пароль, пользователю выдается уведомление о том, после чего он может ввести пароль. Но ему дается всего 15 секунд. Запустите программу. Введите верный или неверный пароль и посмотрите результаты.