Практическая часть

Задание 1. Создание приложение для просмотра картинок.

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

Разработать приложение, позволяющее просматривать картинки (фотографии), размещенные в форме. Для просмотра картинок использовать переключатели. В каждый момент времени должна быть видна только одна картинка. Картинки загружаются не динамически (т.е. изображения загружены при разработке программы).

П римерный внешний вид приложения представлен на Рис.3.1.

Ход работы.

1. Создайте папку Лабораторная_работа_№3, а в ней папку 3.1.

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

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Расположите на форме три компонента OptionButton и 3 компонента Image, свойства которых установите согласно Таблице 3.1 или ориентируясь на внешний вид приложения (Рис.3.1).

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

Компонент	Свойство	Значение
Form1	Caption	Просмотр картинок
	Name	frmФото
	MaxButton, MinButton	False
	Icon	Загрузите любое графическое изображение формата *.ico
OptionButton1	Caption	Картинка 1
	Name	Opt1
OptionButton2	Caption	Картинка 2
	Name	Opt2
OptionButton3	Caption	Картинка 3
	Name	Opt3
Image1 … Image3	Picture	Загрузите любое графическое изображение формата *.jpeg с диска D:\Рабочая\Рисунки
	Stretch	True
	Visible	False
Свойство Font, Width, Height и BackColor установите у компонентов Form и OptionButton по своему усмотрению

5. Щелкните два раза по компоненту Option Button1 («Картинка 1») и напишите обработчик события Click для этой кнопки:

Private Sub Opt1_Click()

Image1.Visible = True 'видна первая картинка

Image2.Visible = False 'вторая картинка невидима

Image3.Visible = False 'третья картинка невидима

End Sub

6. Аналогично напишите обработчики события Click для двух других кнопок:

Private Sub Opt2_Click()

Image2.Visible = True 'видна вторая картинка

Image1.Visible = False 'первая картинка невидима

Image3.Visible = False 'третья картинка невидима

End Sub

Private Sub Opt3_Click()

Image3.Visible = True 'видна третья картинка

Image2.Visible = False 'вторая картинка невидима

Image1.Visible = False 'первая картинка невидима

End Sub

7. Запустите приложение на выполнение (F5). Проверьте его работоспособность.

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

Разработанное приложение работает не совсем эффективно – при запуске приложения всегда выбран компонент OptionButton1 и видна первая картинка. Усовершенствуем приложение.

9. Добавьте на форму два компонента CommandButton и установите свойства приложения согласно Таблице 3.2. После установки свойств форма приобретает вид, как на Рис.3.2.

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

Компонент	Свойство	Значение
OptionButton1…OptionButton3	Visible	False
CommandButton1	Caption	Начать просмотр
	Name	Cmd1
	Style	1-Graphical
CommandButton2	Caption	ВЫХОД
	Name	Cmd2
	Visible	False
	Style	1-Graphical
Свойство Font и BackColor установите у компонентов CommandButton по своему усмотрению

10. Выберите компонент CommandButton1 (кнопка «Начать просмотр»), щелкните по ней два раза и напишите в открывшемся окне программного кода обработчик события Click (необходимые комментарии приведены после знака апострофа):

Private Sub Cmd1_Click()

Opt1.Visible = True 'видна первая кнопка

Opt2.Visible = True 'видна вторая кнопка

Opt3.Visible = True 'видна третья кнопка

Cmd2.Visible = True 'видна кнопка "Выход"

Cmd1.Enabled = False 'кнопка "Начать просмотр" становится недоступной

End Sub

11. Обработчик события Click для второй кнопки («Выход») напишите самостоятельно, применив навыки, полученные при выполнении Лабораторной работы 2.

13. Сохраните форму и проект (выбрав File – Save FrmФото.frm и Save Фото.vbp) в папке 3.1.

14. Проверьте работоспособность проекта, запустив его на выполнение (F5).

15. Создайте exe-файл программы с помощью команды File → Make Фото.exe.

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

17. Запустите на выполнение файл Фото.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения

Задание 2. Изменение приложения для просмотра картинок.

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

Усовершенствовать приложение, созданное в лабораторной работе 3.1 таким образом, чтобы картинки загружались динамически, во время работы приложения.

Ход работы.

1. Создайте папку Лабораторная_работа_№3, а в ней папку 3.2.

2. Скопируйте файлы из папки 3.1 в папку 3.2.

3. Скопируйте в папку 3.2 несколько рисунков для выполнения работы. Можно использовать рисунки из первого задания.

4. Откройте файл Фото.vbp из папки 3.2.

5. Выделяя по очереди компоненты Image1, Image 2 и Image 3, очистите свойство Picture. После очистки в свойстве должна появиться надпись None.

6. Внесите изменения в обработчик события Click по кнопке «Картинка 1»:

Private Sub Opt1_Click()

Set Image1.Picture = LoadPicture("НАЗВАНИЕ_ВАШЕГО_РИСУНКА.jpg")

Image1.Visible = True 'видна первая картинка

Image2.Visible = False 'вторая картинка невидима

Image3.Visible = False 'третья картинка невидима

End Sub

7. Аналогично измените обработчики событий Click для двух других оставшихся кнопок.

8. Сохраните форму и проект (выбрав File – Save FrmФото.frm и Save Фото.vbp) в папке 3.2. На вопрос о перезаписи файла выберите ответ «Да».

9. Проверьте работоспособность проекта, запустив его на выполнение (F5).

10. Создайте exe-файл программы с помощью команды File → Make Фото.exe.

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

12. Запустите на выполнение файл Фото.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения

Подведем итоги

В работе были использованы новые

объекты:

- компонент Image (Изображение)

- компонент OptionButton (Переключатель)

App – хранит информацию о проекте

свойства:

Visible – видимость объекта

Stretch – растягивает изображение по размерам компонента Image

Picture – загружает изображение в компонент Image

Patch – значение объекта App возвращает полное имя текущего каталога

методы:

Set Image1.Picture = LoadPicture (App.Path & ”\Pictures\” & Имя_файла)

Set Image1.Picture = LoadPicture()

Задания для самостоятельного выполнения

1. Составьте конспект по теоретической части лабораторной работы. Выполненное задание покажите преподавателю.

2. Создать приложение «Галерея портретов». Данное приложение содержит серию портретов и краткие сведения о людях, изображенных на них.

3. Создать приложение «Сюжетное фото». Приложение содержит картину без лиц участников, в которую нужно помещать различные фото людей

Вопросы для контроля

1. Какие компоненты позволяют создавать статические изображения в приложении?

2. Как поместить рисунок на форму? Какие методы для этой цели существуют и в чем их отличие?

3. Картинки какого формата может подключать к приложению компонент Image?

4. Какое свойство объекта Image отвечает за масштабирование? За видимость картинки?