Методические указания по выполнению задания
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.
Дата добавления: 2019-12-09; просмотров: 517;
Поиск по сайту
Узнать еще
- Булевы функции, способы их задания. Элементарные функции. Алгебра логики, ее формулы
- В случае векторного способа задания движения вектор скорости точки равен первой производной по времени от ее радиус-вектора
- Визуально – логические задания.
- Географические указания.
- Геоморфология ее предметы и задания
- Глава 7. ОБЩИЕ ТРЕБОВАНИЯ ПО ВЫПОЛНЕНИЮ РАБОТ ПОВЫШЕННОЙ ОПАСНОСТИ
- Глава 9. Этиология / анализ условий возникновения: методические положения
- Графики - задания пусков блоков
Публикации по технике и механике
Публикации по биологии
Публикации по информатике
Публикации по строительству
Публикации по физике
Публикации по химии
Публикации по электронике
Публикации по искусству
Публикации по истории
Публикации по медицине
