Методические указания по выполнению задания

<37 38 39 404142 43 >

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.

<37 38 39 404142 43 >

Дата добавления: 2019-12-09; просмотров: 507;