VB 7. Элемент управления Timer

Лабораторная работа №7

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

Инструментарий:

объект свойство name
форма
текстовое поле (textbox) txtSeconds
текстовое поле (textbox) txtMinutes
таймер (timer) tmrSecundomer
кнопка (button)  
vb 2008 секундомер
Форма «Секундомер»

Выполнение:

  1. Создайте на новой форме два текстовых окна: для секунд (txtSeconds) и минут (txtMinutes).
  2. Для свойства text обеих текстовых полей в окне свойств установите значение 0.
  3. Создайте элемент управления Timer (tmrSecundomer).

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

  1. Запрограммируйте событие Tick для таймера так, чтобы значение текстового окна секунд увеличивалось на единицу:
Private Sub TmrSecundomer_Tick(…
 txtSeconds.Text = txtSeconds.Text + 1
End Sub

Событие Tick происходит по истечении времени в миллисекундах, указанного в свойстве Interval.

  1. Создайте и запрограммируйте кнопку, которая будет запускать или останавливать Ваш секундомер. Для запуска и остановки отсчета времени используйте тот факт, что изначально таймер заблокирован, т.е. его свойство Enabled равно false. Чтобы запустить таймер необходимо установить это свойство в значение true и наоборот.
  2. Для корректного выполнения необходимо в текстовых окнах установить значение 0 (в свойстве text задать 0).
  3. Запустите приложение. Щелкните по кнопке Старт и убедитесь, что значение окна секунд стало увеличиваться на единицу.
Дополнительное задание.

  1. Измените приложение так, чтобы время изменялось и в секундах и в минутах.
  2. Добавьте кнопку Сброс, при нажатии на которую время на секундомере обнулялось бы.
  3. Расширьте Ваше приложение, чтобы оно могло работать как будильник (звук для будильника можно получить с помощью оператора Beep – короткий звуковой сигнал).
Вопросы для самоконтроля:

  1. Каково основное назначение элемента управления Timer?
  2. В каких единицах измеряется его свойство Interval?
  3. С помощью какого события элемента управления Timer можно выполнять действия через заданные промежутки времени?
  4. Каков стандартный префикс элемента управления Timer?
  5. С помощью какой команды можно задать генерирование события Tick элемента управления Timer через каждые 2 секунды?

Если что-либо в уроке осталось непонятным, предлагаем просмотреть видео-урок по работе с элементом Timer в Visual Basic:
youTube

* При использовании материалов обязательна ссылка на источник: Майер С.Ф., «MS Visual Basic 2008» — Учебно-методическое пособие : Южный федеральный университет. – Ростов-на-Дону, 2017. – 92 с.