Размещение изображений на форме в Visual Basic. (Урок информатики в 10 классе)

№ п/п

Наименование структурных элементов урока.

Время

Деятельность учащихся

Организационный момент

1-2 мин

Готовятся к уроку

Мобилизация знаний учащихся для выполнения практической работы. Работа по кластеру.

7-10 мин

Участвуют в беседе, отвечают устно на вопросы преподавателя.

Практическая работа

20-25 мин

Практическая работа на компьютере.

Тест по теме: «Элементы управления». Самопроверка тестов.

5-7

мин

Отвечают письменно.

Проверяют свои тесты.

Рефлексия

1-2 мин

Дают оценку своей работе на уроке.

Элемент управления

Свойство

Назначение

Image

Графический образ (рисунок)

Picture

Stretch

Visible

PictureBox

графическое

окно

AutoSize

Left

Top

Width

Height

1. b

1. a

1. b

1. b

1. c

1. с

1. a

1. a

1. b

1. a

Фамилия Имя

Оценка результатов работы

Практическая работа







Освоение теоретического материала







Выполнение теста

9-10 б



6-8 б



1-5 б



УЭ

Содержание учебного материала

Управление обучением

0

знать:

• обозначение ЭУ Image, Picture;

• свойства ЭУ Image, Picture;

• как сохранить проект.

уметь:

• создавать новый проект в среде VB;

• размещать ЭУ Image, Picture на форме;

• сохранять проект;

• анализировать результаты.

• Предварительно создайте на Рабочем столе папку с названием Исчезающие картинки.
• Запустите Visual Basic.
• Создайте интерфейс проекта «Исчезающие картинки».

интерфейс проекта:

Для размещения картинок воспользуйтесь ЭУ Image

• выделите прямоугольную область на форме, в списке свойств Properties найдите свойство Stretch и выберите для него значение True (изображение масштабируется в соответствии с размерами ЭУ Image)

• в списке свойств Properties найдите свойство Picture и, щелкнув на кнопку , укажите расположение файла картинки (\Рабочий стол\Картинки)

Щелкнув по одной из картинок дважды, перейдите в окно кода. Введите код:

Private Sub Image1_Click()

Image1.Visible = False

Image2.Visible = True

End Sub

---------------------------

Private Sub Image2_Click()

Image1.Visible = True

Image2.Visible = False

End Sub

Выпишите в таблицу назначение свойств Picture, Stretch, Visible

Запустите проект на выполнение. Поочередно понажимайте левой кнопкой мыши на изображения яблока и перца. Остановите программу.

Вывод: управление объектами в процессе работы программы Visual Basic происходит путем изменения их свойств.

Сохраните проект в папке Исчезающие картинки, для этого в меню File (Файл) выберите команду Save Project As... (Сохранить проект как...). Подтвердите предлагаемые имена файлов Form1.frm (Первое окно приложения) и Project1.vbp (Проект приложения).

• Предварительно создайте на Рабочем столе папку с названием Движущийся автомобиль.
• Запустите Visual Basic.
• Создайте интерфейс проекта «Движущийся автомобиль».

Окно формы Form1 увеличьте по ширине почти до полной ширины экрана Вашего дисплея, а по высоте уменьшите примерно в два раза.

Разместите рисунок с помощью ЭУ PictureBox

• выделите прямоугольную область на форме, в списке свойств Properties найдите свойство AutoSize и выберите для него значение True (изображение масштабируется в соответствии с размерами ЭУ PictureBox)

• в списке свойств Properties найдите свойство Picture и, щелкнув на кнопку , укажите расположение файла картинки (\Рабочий стол\Картинки)

• в списке свойств Properties найдите свойство BorderStyle присвойте ему значение 0-None

Вызовите окно программного кода для этого рисунка и в процедуру Picture1_Click впишите строки:

For n = 1 To 500 

Picture1.Left = Picture1.Left – 15 

Next

Цикл повторится 500 раз, что приведет к постепенному передвижению картинки влево, так как координата его по горизонтали каждый раз будет уменьшаться на 15 единиц (или на один пиксель экрана).

Left – это одно из много­чис­лен­ных свойств объекта Picture, задающее значение координаты левого края этого объекта.

Для изменения расположения по вертикали существует свойство Top, отвечающее за значение верхнего края объекта. Этими свойствами обладают и другие объекты в Visual Basic.

Запустите программу. При одиноч­ном щелчке мышью по автомобилю, последний будет перемещаться вперед. Закройте приложение. В процедуру Form_Click запишите:

Выпишите в таблицу назначение свойств AutoSize, Left, Top

Сохраните проект вашей программы в папке Движущийся автомобиль. (см. п.5)

• Предварительно создайте на Рабочем столе папку с названием Увеличение объекта.
• Запустите Visual Basic.

• Создайте интерфейс проекта «Увеличение объекта».

Строка Image1.Width = Image1.Width * 1.25 при одиночном щелчке по командной кнопке увеличит значение свойства Width (Ширина) объекта Image1 в 1,25 раза. Вторая строка сработает таким же образом для свойства Height (Высота). В результате размеры изображения увеличатся на 25%.

Выпишите назначение свойств Width, Height

Код программы:

Private Sub Command1_Click()

Image1.Width = Image1.Width * 1.25

Image1.Height = Image1.Height * 1.25

End Sub

Private Sub Command2_Click()

Image1.Width = Image1.Width / 1.25

Image1.Height = Image1.Height / 1.25

End Sub

Private Sub Command3_Click()

End

End Sub

Запустите программу. Проверьте работу кнопок.

Сохраните проект вашей программы в папке Увеличение объекта.
(см. п.5)

Покажите выполненную работу учителю.