End Sub. Введите междузаголовком процедуры Private Sub btnStart_Click и её концом End Sub следующие операторы:

Введите междузаголовком процедуры Private Sub btnStart_Click и её концом End Sub следующие операторы:

StartTime = Time

txtStart.Text = StartTime

tTime= 0

StopTime = 0

txtStop.Text=""

txtTime.Text = ""

В первой строке программного кода используется стандартная функция Time, которая возвращает переменной StartTime значения текущего системного (компьютерного) времени. Кроме функции Time, существуют ещё две функции времени Now (возвращает текущую дату и время) и Date (возвращает текущую дату).

Значение переменной StartTime оператором во второй строке кода выводится в текстовое окно txtStart. Для вывода используется свойство Text текстового окна. Операторами третьей и четвёртой строк программного кода проводится очистка текстовых окон txtStop и txtTime от информации путём присвоения свойству Text значения пустой строки " ".

Выключение секундомера осуществляется нажатием кнопки Стоп. В окне кодов выберите объект btnStop из списка объектов и процедуру Click – из списка процедур. Введите междуоператорами Private Sub btnStop_Click и End Sub следующие операторы:

StopTime= Time

tTime= StopTime – StartTime

txtStop.Text= StopTime

txtTime.Text= tTime

Запуск программы на выполнение.

Запустить приложение можно тремя способами:

· выбрать команду Start из опции основного меню Run;

· нажать функциональную клавишу F5;

· кнопку в окне инструментов.

Запустите приложение и нажмите кнопку Старт, а через некоторое время кнопку Стоп и посмотрите результат.

Выход из приложения также можно осуществить тремя способами:

· выбрать команду End из опции основного меню Run;

· нажать функциональную клавишу F4 совместно с клавишей Alt;

· нажать кнопку End.

Общий вид приложения:

Dim StartTime As Date

Dim StopTime As Date

Dim tTime As Date