Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Введите междузаголовком процедуры 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 btnStopClick и 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
Дата публикования: 2014-11-02; Прочитано: 293 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!