Ход работы. 12. Для кнопки «Остановить анимацию» щелкните по ней два раза и в открывшемся окне напишите следующий программный код:

End Sub

End Sub

End Sub

12. Для кнопки «Остановить анимацию» щелкните по ней два раза и в открывшемся окне напишите следующий программный код:

Private Sub cmdОстановить_Click()

Animation1.Stop

13. В окне программного кода выберите объект Form и событие Unload. Для данного события напишите следующий программный код:

Private Sub Form_Unload(Cancel As Integer)

Animation1.Close

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

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

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

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

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

18. Запустите на выполнение файл AVIPlayer.exe и убедитесь в работоспособности exe-файла.

13. Внешний вид приложения во время работы приведен на Рис.16.6.

Задание 5. Создание приложения «Секундомер»

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

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

1. В папке Лабораторная_работа_№16 создайте папку 16.5.

2. Запустите программу Microsoft Visual Basic 6.0.

3. Расположите на форме 2 компонента Label, 2 компонента CommandButton, 1 компонент Timer.

4. Установите свойства компонентов в соответствии с Таблицей 16.2, или ориентируясь на Рис.16.7.

Таблица 16.2 – Свойства компонентов приложения «Секундомер»

Компонент	Свойство	Значение
Form1	Caption	Секундомер
Name	frmСекундомер
MaxButton, MinButton	False
Icon	Загрузите любое графическое изображение формата *.ico
Label1	Caption	00:
Label2	Caption
Timer	Interval
CommandButton1	Caption	СТАРТ
CommandButton2	Caption	СБРОС
Свойство Font и BackColor установите у компонентов по своему усмотрению Свойство Style у компонентов CommandButton установите равным 1 - Graphical

5. Опишите переменные в разделе глобальных объявлений:

Dim msec As Integer, sec As Integer

6. Обнулите переменные при загрузке приложения:

Private Sub Form_Load()

msec = 0

sec = 0

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