Методические указания по выполнению задания
1. Введем переменные:
NB – название блюда
GB – группа блюд
KP – количество порций
CP – цена за порцию
SZ – сумма заказа
SS – сумма после скидки
2. Запустить программу с помощью команды Пуск – Программы – Microsoft Visual Basic.
3. В ходе визуальной разработки программы необходимо создать элементы управления, определить их свойства соответственно описанию, приведенного в таблице 11.5.
Таблица 11.5 – Объекты и их свойства для создания формы проекта «Пример ветвящегося процесса»
Объект | Свойства | Значение |
Форма (Form) | Name | frmPrimer2 |
Caption | Пример ветвящегося процесса | |
BackColor | По желанию (целесообразно определять с помощью вкладки Palette) | |
Этикетка (Label) | Name | lblNB |
Caption | Название блюда: | |
Font | MS Sans Serif, Bold (полужирный), 8 пунктов | |
BackColor | Аналогичный выбранному цвета формы (целесообразно определять с помощью вкладки Palette) | |
Текстовое поле (TextBox) | Name | txtNB |
Text | ||
Этикетка (Label) | Name | lblGB |
Caption | Группа блюд: | |
Font | MS Sans Serif, Bold (полужирный), 8 пунктов | |
BackColor | Аналогичный выбранному цвета формы (целесообразно определять с помощью вкладки Palette) | |
Текстовое поле (TextBox) | Name | txtGB |
Text | ||
Этикетка (Label) | Name | lblKP |
Caption | Количество порций: | |
Font | MS Sans Serif, Bold (полужирный), 8 пунктов | |
BackColor | Аналогичный выбранному цвета формы (целесообразно определять с помощью вкладки Palette) | |
Текстовое поле (TextBox) | Name | txtKP |
Text | ||
Этикетка (Label) | Name | lblCP |
Caption | Цена за порцию: | |
Font | MS Sans Serif, Bold (полужирный), 8 пунктов | |
BackColor | Аналогичный выбранному цвета формы (целесообразно определять с помощью вкладки Palette) | |
Текстовое поле (TextBox) | Name | txtCP |
Text | ||
Этикетка (Label) | Name | lblSZ |
Caption | Сумма заказа: | |
Font | MS Sans Serif, Bold (полужирный), 8 пунктов | |
BackColor | Аналогичный выбранному цвета формы (целесообразно определять с помощью вкладки Palette) | |
Этикетка (Label) | Name | lblSS |
Caption | Сумма после скидки: | |
Font | MS Sans Serif, Bold (полужирный), 8 пунктов | |
BackColor | Аналогичный выбранному цвета формы (целесообразно определять с помощью вкладки Palette) | |
Командная кнопка (Command Button) | Name | cmdR |
Caption | Расчет | |
Font | MS Sans Serif, полужирный курсив, 8 пунктов | |
Командная кнопка (Command Button) | Name | cmdО |
Caption | Очистка | |
Font | MS Sans Serif, полужирный курсив, 8 пунктов | |
Командная кнопка (Command Button) | Name | cmdV |
Caption | Выход | |
Font | MS Sans Serif, полужирный курсив, 8 пунктов | |
Картинка (PictureBox) | Name | picRest |
Вставить картинку по смыслу |
4. Вывести окно кода с помощью команды: View - Code
5. Для создания кода программы необходимо ввести описание переменных, создать процедуры (см. табл. 11.6)
Таблица 11.6 – Описание переменных и создание процедур для создания кода проекта «Пример ветвящегося процесса»
Данные в строке кода | Коментарий |
Option Explicit Dim NB, GB, KP, CP, SZ, SS | Данный оператор определяет, что в программе запрещено использование необъявленных переменных Объявление переменных |
Private Sub cmdV_Click() | Заголовок процедуры, которая выполняется при нажатии кнопкой мыши на кнопке cmdV (Выход) |
End | Конец работы программы |
End Sub | Конец процедуры cmdExit_Click. |
Private Sub cmdО_Click() | Заголовок процедуры, которая выполняется при нажатии кнопкой мыши на кнопке cmdО (Очистка) |
txtNB.Text = "" | Свойство Text текстового поля txtNB (для ввода назвния блюда NB) присваивается значение “└┘“ (пустая строка). |
txtGB.Text = "" | Свойство Text текстового поля txtGB (для ввода группы блюд - GB) присваивается значение “└┘“ (пустая строка). |
txtKP.Text = "" | Свойство Text текстового поля txtKP (для ввода количество порций - KP) присваивается значение “└┘“ (пустая строка). |
txtCP.Text = "" | Свойство Text текстового поля txtCP (для ввода цена за порцию – CP) присваивается значение “└┘“ (пустая строка). |
lblSZ.Caption = "Сумма заказа:" | Свойство Caption этикетки lblSZ (для ввода суммы заказа – SZ) присваивается значение “Сумма заказа:“ |
lblSS. Caption = "Сумма со скидкой:" | Свойство Caption этикетки lblSS (для ввода сумма после скидки – SS) присваивается значение “Сумма со скидкой“ |
End Sub | Конец процедуры cmdО_Click. |
Private Sub cmdR_Click() | Заголовок процедуры, которая выполняется при нажатии кнопкой мыши на кнопку cmdR (Расчет) |
NB=txtNB.Text | Переменной NB присваивается значение свойства Text объекта txtNB – текстовое значение, которое введено с помощью клавиатуры. |
GB=txtGB.Text | Переменной GB присваивается значение свойства Text объекта txtGB – текстовое значение, которое введено с помощью клавиатуры. |
CP = Val(txtCP.Text) | Переменной CP присваивается значение свойства Text объекта txtCP – значение числа, которое введено с помощью клавиатуры. Функция Val преобразовывает текстовое значение в числовое. |
KP = Val(txtKP.Text) | Переменной KP присваивается значение свойства Text объекта txtKP – значение числа, которое введено с помощью клавиатуры. Функция Val преобразовывает текстовое значение в числовое. |
SZ=KP*CP | Переменной SZ присваивается результат расчета суммы заказа. |
If (GB=“холодные закуски”) And (KP>2) Then | Проверка условия задачи: если заказано более двух порций из группы «холодные закуски» |
SS=SZ*0.9 | Переменной SS присваивается значение SZ*0.9, т.е. скидка составляет 10% |
Else | Иначе |
If (GB=“десерт”) And (KP>3) Then | Проверка условия задачи: если заказано более трех порций из группы «десерт» |
SS=SZ*0.85 | Переменной SS присваивается значение SZ*0.85, т.е. скидка составляет 15% |
Else | Иначе |
SS=SZ | Переменной SS присваивается значение переменной SZ, т.е. сумма со скидкой равна сумме заказа . |
End If | Завершение оператора If |
End If | Завершение оператора If |
lblSZ.Caption=”Сумма заказа:”+Str(SZ) | Свойству Caption этикетки lblSZ присваивается значение SZ, которое функцией str преобразовывается из числового типа в текстовый. |
lblSS.Caption=”Сумма со скидкой:”+Str(SS) | Свойству Caption этикетки lblSS присваивается значение SS, которое функцией str преобразовывается из числового типа в текстовый. |
End Sub | Конец процедуры cmdR_Click. |
6. Для запуска программы на выполнение используется команда Run - Start. В случае выявления ошибок можно завершить выполнение программы командой Run - End, внести необходимые исправления в программу.
7. Чтобы сохранить проект необходимо выполнить команду File - Save Project As. При сохранении проекта записываются такие файлы: файл формы (файлы с расширением FRM) и файл проекта (файл с расширением VBP) сам прект.
8. Для создания исполняющего файла программы необходимо выполнить команду File - Make <Пример 2>. exe.
Дата добавления: 2019-12-09; просмотров: 516;