End Sub. 7. Напишите обработчики событий Click при щелчке на соответствующую кнопку: (необходимые комментарии приведены после знака апострофа):

End If

Else

End Sub

End Sub

End If

Else

End Sub

7. Напишите обработчики событий Click при щелчке на соответствующую кнопку: (необходимые комментарии приведены после знака апострофа):

'щелчок по кнопке "Старт"

Private Sub Command1_Click()

If Command1.Tag = 0 Then 'нажали кнопку "Старт"

Timer1.Enabled = True

Command1.Caption = "СТОП"

Command1.Tag = 1 'теперь Tag = 1, т.е. кнопка Command1 - кнопка "Стоп"

Command2.Enabled = False 'кнопка "Сброс" недоступна

Timer1.Enabled = False

Command1.Caption = "СТАРТ"

Command1.Tag = 0 'теперь Tag = 0, т.е. кнопка Command1 - кнопка "Старт"

Command2.Enabled = True 'кнопка "Сброс" доступна

'щелчок по кнопке "Сброс"

Private Sub Command2_Click()

sec = 0

msec = 0

Label1.Caption = "00:"

Label2.Caption = "00"

8. Напишите обработчик события Timer(), для чего щелкните два раза по компоненту Timer:

Private Sub Timer1_Timer()

If msec < 59 Then

msec = msec + 1

Label2.Caption = Format(msec, "00")

msec = 0

Label2.Caption = Format(msec, "00")

sec = sec + 1

Label1.Caption = Format(sec, "00:")

9. Сохраните проект под именем Секундомер.vbp, а форму под именем frmСекундомер.frm

10. Запустите проект на выполнение и проверьте его функциональность

11. Закройте запущенное приложение.

12. Создайте exe-файл приложения с помощью команды File → Make Секундомер.exe.

13. Выйдите из среды Visual Basic.

14. Запустите на выполнение файл Секундомер.exe и убедитесь в работоспособности exe-файла.

Задание 6. Создание приложения «Просмотр Web-страниц»

Постановка задачи.

Создать приложение, позволяющее по выбору пользователя отображать различные web-страницы, расположенные на компьютере пользователя. Примерный вид приложения приведен на Рис.16.8.

Дата добавления: 2014-12-23