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

End Sub

End If

End Select

Private Sub Text1_KeyPress(KeyAscii As Integer)

End Sub

Сброс

End Sub

Option Explicit

' Общая процедура инициализации меток

Sub Сброс()

Label1.Visible = False

Label2.Visible = False

Label3.Visible = False

Label4.Visible = False

Label5.Visible = False

Label6.Visible = False

Label7.Visible = False

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

Private Sub Command1_Click()

'Нажатие на клавишу

Dim dn% 'Объявление переменной день недели

If Text1 <> "" Then 'Если информация введена, тогда

dn = CInt(Text1) 'она присваивается переменной dn,

Select Case dn 'которая используется для анализа

Case 1 'Понедельник

Label1.Visible = True

Case 2 'Вторник

Label2.Visible = True

Case 3 'Среда

Label3.Visible = True

Case 4 'Четверг

Label4.Visible = True

Case 5 'Пятница

Label5.Visible = True

Case 6 'Суббота

Label6.Visible = True

Case 7 'Воскресенье

Label7.Visible = Tr ue

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

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

Ознакомьтесь с программным кодом.

Определите, какие новые элементы управления использованы в этом проекте.

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

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

1. Что такое переменные и область их определения?
2. Какие бывают массивы (статические, динамические массивы)?
3. Как объявить переменную или массивов?
4. Создайте программный код, содержащий одномерный массив из пяти элементов.
5. Какие конструкции языка позволяют изменить порядок операций?
6. Охарактеризуйте конструкции языка, позволяющие неоднократно повторять операции.
7. Создайте программный код с использованием конструкции If … Then.
8. Создайте программный код с использованием конструкции Select Case.
9. Создайте программный код с использованием циклической конструкции.

1. УПРАВЛЕНИЕ ПРОГРАММОЙ ПО СОБЫТИЯМ

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

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

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

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

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

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

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

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

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

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

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