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


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; просмотров: 502;


Поиск по сайту:

Воспользовавшись поиском можно найти нужную информацию на сайте.

Поделитесь с друзьями:

Считаете данную информацию полезной, тогда расскажите друзьям в соц. сетях.
Poznayka.org - Познайка.Орг - 2016-2024 год. Материал предоставляется для ознакомительных и учебных целей.
Генерация страницы за: 0.008 сек.