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

1. Что такое переменные и область их определения?

2. Какие бывают массивы (статические, динамические массивы)?

3. Как объявить переменную или массивов?

4. Создайте программный код, содержащий одномерный массив из пяти элементов.

5. Какие конструкции языка позволяют изменить порядок операций?

6. Охарактеризуйте конструкции языка, позволяющие неоднократно повторять операции.

7. Создайте программный код с использованием конструкции If … Then.

8. Создайте программный код с использованием конструкции Select Case.

9. Создайте программный код с использованием циклической конструкции.

5. Управление программой по событиям

Программный код Visual Basic состоит из процедур обработки событий. Основными событиями являются события щелчка мыши, перемещение мыши, события клавиатуры. Список событий активного объекта можно просмотреть в Редакторе кода.

Лабораторное занятие № 5

Цель занятия: ознакомить студентов с основными событиями Visual Basic.

Задание 1. События щелчка мыши Click

Создайте новый проект. Разместите на форме элемент управления Image1 и управляющую кнопку Command1 (рис. 28).

Присвойте свойству Visible объекта Image1 значение False.

Рис. 28. Окно формы Событие щелчка мыши.

Используя свойство Picture объекта Image1, выберите из Фотогаллереи файл Teksture.jpg (VB Учебные \ Фотогаллерея \ Текстура ).

Чтобы картинка полностью вписывалась в объект Image1, установите значение свойства Stretch – True.

Создайте код приведённый ниже.

Обратите внимание на то, что событие щелчка мыши свойственно не только объекту управляющей кнопке Command1, но и изображению размещённому в окне Image1.

Option Explicit

'Общая процедура визуализации объекта Image1

Sub Pictu()

Image1.Visible = True

End Sub

'Вызов процедуры

Private Sub Command1_Click()

Pictu

End Sub

'Гашение изображения при щелчке по картинке

Private Sub Image1_Click()

Image1.Visible = False

End Sub

Сохраните проект. Выполните компиляцию. Закройте Visual Basic. Проверьте работоспособность приложения.

Загрузите файл Проект1.vbp (VB Учебные \ Проекты \ 10 Картинки).

Измените программный код таким образом, чтобы картинки появлялись на экране при щелчке мыши по поверхности формы.

Закройте Visual Basic без сохранения проекта.

Задание 2. События клавиатуры KeyPress

Создайте интерфейс приложения (рис. 29).

Присвойте свойствам объектов значения, приведённые в таб. 7.

Таблица 7

Объект	Свойства	Значение свойства
Label1	Caption	Вычисление площади круга и длины окружности
Label2	Caption	Введите радиус и нажмите клавишу Enter
Label3	Caption	Площадь круга
Label4	Caption	Длина окружности
Label5	Caption	R=
Label6	Caption	S=
Label7	Caption	L=
Label8	Caption	СБРОС !
Shape1	Shape	3 – Circle
Text1	MaxLength	2
Text2	Text
Text3	Text
Text4	Text

Рис. 29. Окно формы Циркуль.

Создайте программный код.

Option Explicit

Const pi = 3.14159 'Объявление константы

Dim R%, S%, l% 'Объявление переменных

'Процедура инициализации объектов

Private Sub Label8_Click()

Тext2.Text = ""

Тext 3.Text = ""

Тext 4.Text = ""

End Sub

'Процедура обработки события: нажатие клавиши Enter

Private Sub Тext1_KeyPress(KeyAscii As Integer)

'Анализ кода клавиши

If KeyAscii = 13 Then

If Тext1.Text = "" Then ‘Анализ введённой информации

Else

R = CInt(Тext1)

'Вычисление площади круга и длины окружности

S = pi * R ^ 2: l = 2 * pi * R

Тext2.Text = CStr(R)

Тext3.Text = CStr(S)

Текст4.Text = CStr(Int(l))

End If

End If

End Sub

Сохраните проект. Выполните компиляцию.

Закройте Visual Basic.

Проверьте работоспособность приложения.

Откройте проект Циркуль.vbp ( VB Учебные \ Проекты \ 04 Окружность ).

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

Закройте Visual Basic без сохранения проекта.