- •Учебное пособие
- •Постановка задачи, основы создания информационных структур.
- •Лабораторторное занятие № 1
- •Задание 1
- •Последовательность выполнения задания
- •Задание 2
- •Последовательность выполнения задания
- •Задание 3
- •Задание 4
- •Задание 5
- •Задание 6
- •Задание 7
- •Задание 8
- •Вопросы для самоконтроля:
- •2. Понятие и типы алгоритмов, проектирование алгоритмов прикладных задач.
- •Алгоритмы могут быть представлены:
- •Правила графического отображения алгоритма.
- •Лабораторное занятие № 2
- •Задание 1. Построение линейных алгоритмов
- •Порядок выполнения задания
- •Задание 2. Построение разветвлённых алгоритмов
- •Порядок выполнения задания
- •В окне построения функции введите логическое выражение и его атрибуты в соответствии с рис. 14.
- •Задание 3
- •Задание 4. Построение циклических алгоритмов
- •Порядок выполнения задания
- •Вопросы для самоконтроля:
- •Проект, интерфейс и компоненты visual basic. Проект Visual Basic
- •Интерфейс и компоненты Visual Basic
- •Лабораторное занятие № 3
- •Задание 1. Проект и интегрированная среда разработки Visual Basic
- •Задание 2. Создание интерфейса приложения с использованием визуальных средств программирования
- •Задание 3. Модули, процедуры и функции
- •Вопросы для самоконтроля:
- •Область определения переменных, массивы, конструкции языка Область определения переменных
- •Массивы
- •Конструкции языка
- •Лабораторное занятие № 4
- •Задание 1. Массивы, конструкции языка (ветвление, циклы)
- •Задание 2. Конструкция Select Case
- •Вопросы для самоконтроля:
- •Управление программой по событиям
- •Лабораторное занятие № 5
- •Задание 1. События щелчка мыши Click
- •Задание 2. События клавиатуры KeyPress
- •Задание 3. События перемещения указателя мыши MouseMove
- •Задание 4. События флажков и переключателей
- •Вопросы для самоконтроля:
- •Ввод и вывод информации
- •Лабораторное занятие № 6
- •Задание 1. Создание приложений расчётного характера с использованием текстовых полей для ввода информации
- •Задание 2. Ввод числовой информации с использованием элемента управления Microsoft UpDown
- •Задание 3. Работа с файлами последовательного доступа
- •Вопросы для самоконтроля
- •Типы проектов
- •Лабораторное занятие № 7
- •Задание 1. Модальная форма
- •Задание 2. Создание mdi – проекта с использованием мастера приложений, редактирование главного меню
- •Задание 3. Использование стандартных элементов управления Microsoft при создании проектов Visual Basic
- •Вопросы для самоконтроля
- •Рекомендации по программированию на vb
- •Приложение 1. Типы данных
- •Приложение 2. Конструкции языка
- •Конструкция If … Then
- •Конструкция Select Case
Задание 2. Конструкция Select Case
Создайте новый проект. Разместите на форме семь меток (Label 1 – 7), одно текстовое поле и управляющую кнопку Command1 (рис. 27).
Присвойте свойствам объектов значения, приведённые в таблице 6. Программный код должен реагировать на нажатие любой клавиши – событие KeyPress. Это событие выбирается из списка событий, который размещён в правой верхней части Редактора кода.
Таблица 6
Объекты |
Свойства |
Значения |
Форма1 |
Caption |
Дни недели |
Label1 – Label7 |
Caption |
Понедельник – Воскресенье |
Visible |
False |
|
Label8 |
Caption |
Номер дня недели |
Text1 |
Text |
0 |
MaxLength |
1 |
|
Command1 |
Caption |
Сброс |
Рис. 27. Окно формы Дни недели.
При этом на экране должен появляться тот день недели, номер которого указан в текстовом окне.
Этот алгоритм рассмотрен во втором разделе (лабораторное занятие 2, задание 4).
Управляющая кнопка Сброс (Command1) используется для восстановления свойств меток (Label1 – 7). Эту операцию в дальнейшем будем называть инициализацией.
Создайте программный код приведённый ниже.
Option Explicit
' Общая процедура инициализации меток
Sub Сброс()
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
End Sub
' Вызов общей процедуры
Private Sub Command1_Click()
Сброс
End Sub
'Нажатие на клавишу
Private Sub Text1_KeyPress(KeyAscii As Integer)
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 = True
End Select
End If
End Sub
Сохраните проект. Выполните компиляцию. Закройте Visual Basic. Проверьте работоспособность приложения.
Загрузите файл Проект1.vbp (VB Учебные \ Проекты \ 06 Дни недели).
Ознакомьтесь с программным кодом.
Определите, какие новые элементы управления использованы в этом проекте.
Закройте Visual Basic без сохранения проекта.