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

1. Введем переменные:

VT - Вес туши

PP - % потерь при холодной обработке

NZ - Норма закладки

KP - Количество порций

2. Запустить программу с помощью команды Пуск – Программы – Microsoft Visual Basic.

3. В ходе визуальной разработки программы необходимо создать элементы управления, определить их свойства соответственно описанию, приведенного в таблице 11.3.

Таблица 11.3 – Объекты и их свойства для создания формы проекта «Пример линейного процесса»

Объект	Свойства	Значение

Форма (Form)	Name	frmPrimer1
Caption	Пример линейного процесса
BackColor	Светло-зелёный (целесообразно определять с помощью вкладки Palette)
Этикетка (Label)	Name	lblVT
Caption	Вес туши:
Font	MS Sans Serif, Bold (полужирный), 8 пунктов
BackColor	Светло-зелёный (целесообразно определять с помощью вкладки Palette)
Текстовое поле (TextBox)	Name	txtVT
Text
Этикетка (Label)	Name	lblPP
Caption	% потерь при холодной обработке:
Font	MS Sans Serif, Bold (полужирный), 8 пунктов
BackColor	Светло-зелёный (целесообразно определять с помощью вкладки Palette)
Текстовое поле (TextBox)	Name	txtPP
Text
Этикетка (Label)	Name	lblNZ
Caption	Норма закладки:
Font	MS Sans Serif, Bold (полужирный), 8 пунктов
BackColor	Светло-зелёный (целесообразно определять с помощью вкладки Palette)
Текстовое поле (TextBox)	Name	txtNZ
Text
Командная кнопка (Command Button)	Name	cmdR

Caption	Расчет
Font	MS Sans Serif, Bold (полужирный), 8 пунктов
Этикетка (Label)	Name	lblMes
Caption
Font	MS Sans Serif, Bold (полужирный курсив), 8 пунктов
BackColor	Светло-зелёный (целесообразно определять с помощью вкладки Palette)
Командная кнопка (Command Button)	Name	cmdО
Caption	Очистка
Font	MS Sans Serif, Bold (полужирный), 8 пунктов
Командная кнопка (Command Button)	Name	cmdV
Caption	Выход
Font	MS Sans Serif, Bold (полужирный), 8 пунктов

4. Вывести окно кода с помощью команды: View - Code

5. Для создания кода программы необходимо ввести описание переменных, создать процедуры (см. табл. 11.4)

Таблица 11.4 – Описание переменных и создание процедур для создания кода проекта «Пример линейного процесса»

Данные в строке кода	Коментарий

Option Explicit Dim VT, PP, NZ, KP	Данный оператор определяет, что в программе запрещено использование необъявленных переменных Объявление переменных
Private Sub cmdV_Click()	Заголовок процедуры, которая выполняется при нажатии кнопкой мыши на кнопке cmdV (Выход)
End	Конец работы программы
End Sub	Конец процедуры cmdExit_Click.
Private Sub cmdО_Click()	Заголовок процедуры, которая выполняется при нажатии кнопкой мыши на кнопке cmdО (Очистка)
txtVT.Text = "_└┘"	Свойство Text текстового поля txtVT (для ввода веса туши VT) присваивается значение “_└┘“ (пустая строка).
txtPP.Text = "_└┘"	Свойство Text текстового поля txtPP (для ввода % потерь при холодной обработке - PP) присваивается значение “_└┘“ (пустая строка).
txtNZ.Text = "_└┘"	Свойство Text текстового поля txtNZ (для ввода нормы закладки - NZ) присваивается значение “_└┘“ (пустая строка).
txtKP.Text = "_└┘"	Свойство Text текстового поля txtKP (для ввода количества порций – KP) присваивается значение “_└┘“ (пустая строка).
lblMes.Caption="_└┘"	Свойство Caption этикетки lblMes (для ввода сообщения) присваивается значение “_└┘“ (пустая строка).
End Sub	Конец процедуры cmdО_Click.
Private Sub cmdR_Click()	Заголовок процедуры, которая выполняется при нажатии кнопкой мыши на кнопку cmdR (Расчет)
VT = Val(txtVT.Text)	Переменной VT присваивается значение свойства Text объекта txtVT – значение числа, которое введено с помощью клавиатуры. Функция Val преобразовывает текстовое значение в числовое.
PP = Val(txtPP.Text)	Переменной PP присваивается значение свойства Text объекта txtPP – значение числа, которое введено с помощью клавиатуры. Функция Val преобразовывает текстовое значение в числовое.
NZ = Val(txtNZ.Text)	Переменной NZ присваивается значение свойства Text объекта txtNZ – значение числа, которое введено с помощью клавиатуры. Функция Val преобразовывает текстовое значение в числовое.
KP=(VT-VT*PP/100)/NZ	Переменной КР присваивается результат расчета количества порций.
txtKP.Text = Str(KP)	Свойству Text объекта txtКР присваивается значение переменной КР. С помощью функции Str выполняется преобразование числового значения переменной в текстовый.
lblMes.Caption=”Приятного аппетита!”	В результате расчета выводится сообщение в виде надписи.
End Sub	Конец процедуры cmdR_Click.

6. Для запуска программы на выполнение используется команда Run - Start. В случае выявления ошибок можно завершить выполнение программы командой Run - End, внести необходимые исправления в программу.

7. Чтобы сохранить проект необходимо выполнить команду File - Save Project As. При сохранении проекта записываются такие файлы: файл формы (файлы с расширением FRM) и файл проекта (файл с расширением VBP) сам прект.

8. Для создания исполняющего файла программы необходимо выполнить команду File - Make <Пример 1>. exe.

<37 38 394041 42 43 >

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