1. Введем переменные:
VT - Вес туши
PP - % потерь при холодной обработке
NZ - Норма закладки
KP - Количество порций
2. Запустить программу с помощью команды Пуск – Программы – Microsoft Visual Basic.
3. В ходе визуальной разработки программы необходимо создать элементы управления, определить их свойства соответственно описанию, приведенного в таблице 11.3.
Таблица 11.3 – Объекты и их свойства для создания формы проекта «Пример линейного процесса»
Объект
| Свойства
| Значение
|
1
| 2
| 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 – Описание переменных и создание процедур для создания кода проекта «Пример линейного процесса»
Данные в строке кода
| Коментарий
|
1
| 2
|
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.