 |
Главная |
Методические указания по выполнению задания
 2019-11-13 |
 206 |
 Обсуждений (0) |
из
5.00
|
1. Введем переменные:
NB – название блюда
GB – группа блюд
KP – количество порций
CP – цена за порцию
SZ – сумма заказа
SS – сумма после скидки
2. Запустить программу с помощью команды Пуск – Программы – Microsoft Visual Basic.
3. В ходе визуальной разработки программы необходимо создать элементы управления, определить их свойства соответственно описанию, приведенного в таблице 11.5.
Таблица 11.5 – Объекты и их свойства для создания формы проекта «Пример ветвящегося процесса»
| Объект | Свойства | Значение |
| 1 | 2 | 3 |
| Форма (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 – Описание переменных и создание процедур для создания кода проекта «Пример ветвящегося процесса»
| Данные в строке кода | Коментарий |
| 1 | 2 |
| 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-11-13 |
206 |
Обсуждений (0) |
из
5.00
|
Обсуждение в статье: Методические указания по выполнению задания |
|
Обсуждений еще не было, будьте первым... ↓↓↓ |
Почему 1285321 студент выбрали МегаОбучалку...
Система поиска информации
Мобильная версия сайта
Удобная навигация
Нет шокирующей рекламы