Практическая работа «Принятие решений в VBA»
МДК.01.02 Прикладное программирование
ПМ.01 Разработка программных модулей программного обеспечения для компьютерных систем
Оглавление
Запишите в тетрадь ответы на контрольные вопросы и решения ситуаций.
Цели занятия:
Изучить некоторые возможности
организации диалога с пользователем.
Освоить приемы использования
различных элементов управления.
Изучить некоторые возможности
организации диалога с пользователем.
Освоить приемы использования
различных элементов управления.
1 Создайте книгу Excel, назовите ее Магазин.
2 Первый лист назовите Travel. На этом листе в ячейку А1 будет помещаться номер путешествия, в зависимости от выбранного клиентом элемента OptionButton, а в ячейке В1 будет формироваться стоимость при помощи функции ВЫБОР (рисунок 4).
|
|
A |
B |
C |
D |
E |
F |
|
1 |
2 |
=ВЫБОР($A$1;25;75;40) |
|
|||
|
2 |
|
|
|
|
|
|
|
3 |
|
|
|
|
|
|
Рисунок 4
Цены возьмите из таблицы 8.
Таблица 8
|
Путешествие |
Стоимость |
|
Морской круиз |
$25 |
|
Полет на луну |
$75 |
|
Автопробег |
$40 |
3 Создайте пользовательское диалоговое окно. Разместите три Переключателя в элементе Рамка; затем три Рисунка; Надпись и Поле, в котором будет выводиться цена; одну Кнопку.
4 Установите свойства рисунков, а затем совместите их.
5 Установите свойства Name, Caption для остальных элементов.
6 Добавьте код в вашу программу.
7 Сравните ваш код с примером:
Private Sub btnEnd_Click()
End
End Sub
Private Sub optOcean_Click()
ImgOcean.Visible = True
ImgMoon.Visible = False
ImgCar.Visible = False
Range("Travel!A1").Value = 1
TxtPrace.Value = Range("Travel!В1").Value
End Sub
Private Sub OptMoon_Click()
ImgOcean.Visible = False
ImgMoon.Visible = True
ImgCar.Visible = False
Range("Travel!A1").Value = 2
TxtPrace.Value = Range("Travel!В1").Value
End Sub
Private Sub OptCar_Click()
ImgOcean.Visible = False
ImgMoon.Visible = False
ImgCar.Visible = True
Range("Travel!A1").Value = 3
TxtPrace.Value = Range("Travel!В1").Value
End Sub
8 Проверьте работу программы.
1 В книге Магазин откройте чистый лист, назовите его Suvenir.
2 Создайте структуру таблицы Excel в соответствии с рисунком 5:
|
|
A |
B |
C |
D |
E |
|
1 |
Товар |
Цена |
Стоимость покупки |
Покупка |
Сумма |
|
2 |
1 |
20 |
=ЕСЛИ(D2=ИСТИНА;B2;0) |
|
=СУММ(С1:С5) |
|
3 |
2 |
35 |
=ЕСЛИ(D3=ИСТИНА;B3;0) |
|
|
|
4 |
3 |
17 |
=ЕСЛИ(D4=ИСТИНА;B4;0) |
|
|
|
5 |
4 |
47 |
=ЕСЛИ(D5=ИСТИНА;B5;0) |
|
|
Рисунок 5
3 Создайте пользовательское диалоговое окно и установите свойства элементов управления в соответствии с таблицей 9.
Таблица 9
|
Объект |
Свойство |
Установка |
|
CheckBox |
Name |
chkRose |
|
ControlSource |
Suvenir!d2 |
|
|
CheckBox |
Name |
chkCar |
|
ControlSource |
Suvenir!d3 |
|
|
CheckBox |
Name |
chkClock |
|
ControlSource |
Suvenir!d4 |
|
|
CheckBox |
Name |
chkPicture |
|
ControlSource |
Suvenir!d5 |
|
|
Image |
Name |
(Произвольно) |
|
Picture |
(Произвольно) |
|
|
PictureAlignment |
2 |
|
|
PictureSizeMode |
3 |
|
|
BorderStyle |
0 |
|
|
SpesialEffect |
3 |
|
|
Name |
False |
|
|
CommandButton |
Name |
btnSum |
|
Caption |
Сумма |
|
|
CommandButton |
Name |
btnCancel |
|
Caption |
Сброс |
|
|
TextBox |
Name |
txtSum |
|
UserForm |
Name |
frmSuvenir |
|
Caption |
Сувениры |
4 Добавьте код обработки событий:
Private Sub chkRose _Click()
If chkRose.Value = True Then
ImgRose.Visible = True
Else
ImgRose.Visible = False
End If
End Sub
Private Sub chkCar _Click()
If chkCar.Value = True Then
ImgCar.Visible = True
Else
ImgCar.Visible = False
End If
End Sub
Private Sub chkClock _Click()
If chkClock.Value = True Then
ImgClock.Visible = True
Else
ImgClock.Visible = False
End If
End Sub
Private Sub chkPicture _Click()
If chkPicture.Value = True Then
ImgPicture.Visible = True
Else
ImgPicture.Visible = False
End If
End Sub
Private Sub btnEnd_Click()
End
End Sub
Private Sub btnSum _Click()
TxtSum.Value = Range("Suvenir!g2")
End Sub
Private Sub btnCancel _Click()
ImgRose.Visible = False
ImgCar.Visible = False
ImgClock.Visible = False
ImgPicture.Visible = False
chkRose.Value = False
chkCar.Value = False
chkClock.Value = False
chkPicture.Value = False
End
End Sub
5 Завершите работу с программой.
Запишите в тетрадь ответы на контрольные вопросы и решения ситуаций.
1 В каких случаях применяется элемент управления OptionButton?
2 В каких случаях применяется элемент управления CheckBox?
3 Какие связи устанавливает свойство ControlSource?
4 Ситуация 1: Пользователь желает, чтобы в определенном месте экрана появлялась фотография того или иного сотрудника, отмеченного в списке.
5 Ситуация 2: Пользователь щелкает на кнопке «К оплате», однако сумма на экран не выводится.
Краткое описание материала
Методические рекомендации по выполнению практической работы "Принятие решений в VBA" предназначены для студентов и всех желающих самостоятельно освоить работу в среде Visual Basic for Application. В задании 1 предлагается создать диалоговое окно, в котором при выборе вида путешествия демонстрируется средство передвижения и показывается стоимость.
В задании 2 предлагаетсяиспользовать элементы управления
CheckBox.
При написании кода обработчика событий студент использует структуры принятия решений.
Практическая работа «Принятие решений в VBA»
Курсы по теме
Перейти в каталог курсов- Курс уже прошли 11 человек
- Курс уже прошли 56 человек
- Сейчас обучается 48 человек из 21 региона
- Курс уже прошли 304 человека
- Сейчас обучается 206 человек из 46 регионов
- Курс уже прошли 99 человек
- Сейчас обучается 71 человек из 26 регионов
- Курс уже прошли 2503 человека
- Сейчас обучается 335 человек из 61 региона
- Курс уже прошли 2625 человек
- Сейчас обучается 1171 человек из 80 регионов
Курс повышения квалификации «Внешнеэкономическая деятельность электронного предприятия»
Курс профессиональной переподготовки «Управление сервисами информационных технологий»
Профессия: Менеджер по управлению сервисами ИТ
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Профессия: Учитель информатики в начальной школе
Курс профессиональной переподготовки «Педагогическая деятельность по проектированию и реализации образовательного процесса в общеобразовательных организациях (предмет "Математика и информатика")»
Профессия: Учитель математики и информатики
Курс повышения квалификации «Теоретические и методологические основы преподавания информатики с учётом требований ФГОС ООО»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Профессия: Учитель математики и информатики
Мини-курсы по теме
Перейти в каталог мини-курсов- Курс уже прошли 13 человек
Психология личной эффективности: отдых и преодоление стеснительности
Психоэмоциональное благополучие и развитие: от понимания к практическим решениям
Искусство управления проектными результатами: инструменты наставника
Психолого-педагогические основы профессиональной деятельности педагога в условиях реализации ФГОС
Актуальные направления регулирования, безопасности и управления рисками в ЖКХ
Основы биологии: история науки и методы познания живого
Найдите подходящий для Вас курс
В каталоге 6 792 курса по разным направлениям
Другие материалы
-
Самостоятельная работа по теме "Поиск информации по изображению"
Учебник: «Информатика», Семакин И.Г., Залогова Л.А., Русаков С.В., Шестакова Л.В.
Тема: § 5. Способы поиска в Интернете
-
Презентация по информатике на тему "Информационные процессы"
Учебник: «Информатика», Семакин И.Г., Залогова Л.А., Русаков С.В., Шестакова Л.В.
Тема: § 3. Информационные процессы
-
Рабочая программа по информатике для 11 класса (1 час в неделю)
Учебник: «Информатика (базовый уровень)», Угринович Н.Д.
-
Рабочая программа по информатике для 10 класса (1 час в неделю) по ФГОС
Учебник: «Информатика. Базовый уровень», Босова Л.Л., Босова А.Ю.
-
Рабочая программа по информатике для 9 класса (1 час в неделю) по ФГОС
Учебник: «Информатика», Босова Л.Л., Босова А.Ю.
-
Рабочая программа по информатике для 8 класса (1 час в неделю) по ФГОС
Учебник: «Информатика», Босова Л.Л., Босова А.Ю.
Вам будут интересны эти курсы:
- Курс повышения квалификации «Введение в программирование на языке С (СИ)»
- Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
- Курс повышения квалификации «Облачные технологии в образовании»
- Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
- Курс повышения квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»
- Курс повышения квалификации «Современные тенденции цифровизации образования»
- Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
- Курс повышения квалификации «Специфика преподавания информационных технологий в соответствии с ФГОС СПО»
- Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
- Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»