ТЕМА № 1. Элемент управления Timer

Задание: разработайте приложение «Секундомер», которое при нажатии на кнопку начинает или приостанавливает отсчет времени в секундах.

Ход работы

1   Создайте на новой форме два текстовых окна для секунд и минут (рис. 17).

Рис. 17. Конструктор формы

2   Создайте элемент управления Timer. Лучше сделать это двойным щелчком мыши на панели с элементами управления, тогда VB создаст элемент управления стандартного размера в центре текущей формы.

3   Попробуйте изменить размер элемента управления Timer, а еще лучше запустите приложение и посмотрите, как он будет выглядеть при этом. Timer необходим, чтобы выполнять какие-либо действия через определенные промежутки времени, поэтому он невидим при работе приложения.

4   Запрограммируйте событие Timer для таймера так, чтобы значение текстового окна секунд увеличивалось на единицу:

Private Sub trmСекундомер_Timer()

            txtСекунды = Val(txtСекунды) + 1

End Sub

5   Создайте и запрограммируйте кнопку, которая будет запускать или останавливать Ваш секундомер. Для запуска и остановки отсчета времени используйте тот факт, что если свойство Interval равно 0, генерирование события Timer прекращается:

Private Sub Command1_Click()

            trmСекундомер.Interval = 1000

End Sub

6   Запустите приложение. Щелкните по кнопке Старт и убедитесь, что значение окна секунд стало увеличиваться на единицу. Подождите одну минуту и убедитесь, что когда достигается предел в 60 сек, значение минут не увеличивается.

Рис. 18. Таймер в работе

Дополнительное задание

Измените приложение так, чтобы время измерялось и в секундах, и в минутах. Сохраните проект.

Контрольные задания

1   Добавьте кнопку Сброс, при нажатии на которую время на секундомере обнулялось бы.

2   Добавьте TextBox для отсчета часов.

3   Добавьте TextBox для отсчета десятых долей секунд.

4   Расширьте Ваше приложение, чтобы оно могло работать как будильник (звук для будильника можно получить с помощью оператора Веер).

Вопросы для самоконтроля

1   Каково основное назначение элемента управления Timer?

2   В каких единицах измеряется его свойство Interval?

3   С помощью какого события элемента управления Timer можно выполнять действия через заданные промежутки времени?

4   Каков стандартный префикс элемента управления Timer?

5   С помощью какой команды можно задать генерирование события Timer элемента управления Timer через каждые 2 секунды?

Скачано с www.znanio.ru