 |
Главная |
Методические указания по выполнению задания
 2019-11-13 |
 177 |
 Обсуждений (0) |
из
5.00
|
1. Введем переменные:
VT – вес туши
VGM – вес готового мяса
KP – количество порций
VGP – вес готовой порции
2. Запустить программу с помощью команды Пуск – Программы – Microsoft Visual Basic.
3. В ходе визуальной разработки программы необходимо создать элементы управления, определить их свойства соответственно описанию, приведенного в таблице 11.7.
Таблица 11.7 – Объекты и их свойства для создания расчетной формы проекта «Пример с элементами управления»
| Объект | Свойства | Значение |
| 1 | 2 | 3 |
| Форма (Form) | Name | frmR |
| Caption | Расчетная форма | |
| BackColor | По желанию (целесообразно определять с помощью вкладки Palette) | |
| Этикетка (Label) | Name | lblVT |
| Caption | Вес туши: | |
| Font | MS Sans Serif, Bold (полужирный), 8 пунктов | |
| BackColor | Аналогичный выбранному цвета формы (целесообразно определять с помощью вкладки Palette) | |
| Горизонтальная полоса прокрутки (HscrollBar) | Name | HsbVT |
| Min | 30 | |
| Max | 400 | |
| SmallChange | 1 | |
| Флажок (CheckBox) | Name | ChkK |
| Caption | Высшая категория | |
| BackColor | По желанию (целесообразно определять с помощью вкладки Palette) | |
| Font | MS Sans Serif, обычный, 8 пунктов | |
| Выпадающий список (ComboBox) | Name | cboNZ |
| Text | Норма закладки: | |
| List | 350 г, 250 г, 150 г | |
| Группа (Frame) | Name | fraSP |
| Caption | Степень прожарки | |
| Font | MS Sans Serif, курсив, 8 пунктов | |
| Переключатель (Option Button) | Name | Opt1 |
| Caption | Rare | |
| Font | MS Sans Serif, обычный, 8 пунктов | |
| Value | True | |
| Переключатель (Option Button) | Name | Opt2 |
| Caption | Medium | |
| Font | MS Sans Serif, обычный, 8 пунктов | |
| Переключатель (Option Button) | Name | Opt3 |
| Caption | Welldone | |
| Font | MS Sans Serif, обычный, 8 пунктов | |
| Командная кнопка (Command Button) | Name | cmdR |
| Caption | Расчет | |
| Font | MS Sans Serif, Bold (полужирный), 8 пунктов | |
| Командная кнопка (Command Button) | Name | cmdО |
| Caption | Очистка | |
| Font | MS Sans Serif, Bold (полужирный), 8 пунктов | |
| Командная кнопка (Command Button) | Name | cmdInfo |
| Caption | Информация об авторе | |
| Font | MS Sans Serif, Bold (полужирный), 8 пунктов | |
| Этикетка (Label) | Name | lblVP |
| Caption | Время приготовления: | |
| Font | MS Sans Serif, полужирный курсив, 8 пунктов | |
| Этикетка (Label) | Name | lblKP |
| Caption | Количество порций: | |
| Font | MS Sans Serif, полужирный курсив, 8 пунктов | |
| Этикетка (Label) | Name | lblVGP |
| Caption | Вес готовой порции: | |
| Font | MS Sans Serif, полужирный курсив, 8 пунктов |
4. Далее необходимо добавить к проекту еще одну форму командой меню Project – Add Form, создать форму информационного сообщения в соответствии с таблицей 11.8.
Таблица 11.8 – Объекты и их свойства для создания информационной формы проекта «Пример с элементами управления»
| Объект | Свойства | Значение |
| 1 | 2 | 3 |
| Форма (Form) | Name | frmInfo |
| Caption | Информация об авторе | |
| BackColor | По желанию (целесообразно определять с помощью вкладки Palette) | |
| Этикетка (Label) | Name | lblInfo |
| Caption | Программа разработана студентом группы____ | |
| Font | MS Sans Serif, полужирный курсив, 8 пунктов | |
| BackColor | Аналогичный выбранному цвета формы (целесообразно определять с помощью вкладки Palette) | |
| Командная кнопка (Command Button) | Name | cmdOk |
| Caption | Ok | |
| Font | MS Sans Serif, Bold (полужирный), 8 пунктов |
5. Вывести окно кода с помощью команды: View - Code
6. Для создания кода программы к расчетной форме необходимо ввести описание переменных, создать процедуры (см. табл. 11.9)
Таблица 11.9 – Описание переменных и создание процедур для кода расчетной формы проекта «Пример с элементами управления»
| Данные в строке кода | Коментарий |
| 1 | 2 |
| Option Explicit Dim VT, VGM, VGP, NZ, KP As Integer | Данный оператор определяет, что в программе запрещено использование необъявленных переменных Объявление переменных, переменная KP принимает целое значение |
| Private Sub cmdInfo_Click() | Заголовок процедуры, которая выполняется при нажатии кнопкой мыши на кнопке cmdInfo (Информация об авторе) |
| frmR.Hide | К форме frmR применяется метод Hide – форма исчезает с экрана. |
| frmInfo.Show | К форме frmInfo применяется метод Show – форма появляется на экране. |
| End Sub | Конец процедуры cmdInfo_Click. |
| Private Sub cmdО_Click() | Заголовок процедуры, которая выполняется при нажатии кнопкой мыши на кнопке cmdО (Очистка) |
| lblVT.Caption = "Вес туши:" | Свойство Caption этикетки lblVT (для отображения веса туши VT) присваивается текстовое значение “Вес туши:“ |
| lblVP.Caption="Время приготовления:" | Свойство Caption этикетки lblVP (для вывода времени приготовления) присваивается текстовое значение “Время приготовления:“ |
| lblKP.Caption = "Количество порций:" | Свойство Caption этикетки lblKP (для вывода количества порций) присваивается текстовое значение “Количество порций:“ |
| lblVGP.Caption="Вес готовой порции:" | Свойство Caption этикетки lblVGP (для вывода веса готовой порции) присваивается текстовое значение “Вес готовой порции:“ |
| cboNZ.Text = «Норма закладки» | Свойство Text выпадающего списка cboNZ (для выбора нормы закладки) |
| End Sub | Конец процедуры cmdО_Click. |
| Private Sub hsbVT_Change() | Заголовок процедуры, которая выполняется, если бегунок изменил место расположения на полосе прокрутки– произошло событие Change. |
| VT = hsbVT.Value | Переменной VТ присваивается значение свойства Value полосы прокрутки, которое соответствует текущему месту размещения бегунка. |
| lblVT.Caption = «Вес туши:» + Str(VT) | Свойству Caption этикетки lblVТ для вывода сообщения о выбраном весе туши присваивается соответствующее значение – “Вес туши: VТ”. |
| End Sub | Конец процедуры hsbVT_Change |
| Private Sub hsbVT_Scroll() | Заголовок процедуры, которая выполняется во время перемещения бегунка по полосе прокрутки – происхоит событие Scroll. |
| hsbVT_Change | Выполняется процедура hsbVТ_Change, связанная с изменением положения на полосе. |
| End Sub | Конец процедуры hsbVT_Scroll |
| Private Sub cmdR_Click() | Заголовок процедуры, которая выполняется при нажатии кнопкой мыши на кнопку cmdR (Расчет) |
| If chkK.Value = 1 Then | Если свойство Value флажка chkK (Высшая категория) имеет значение 1 (включен), то |
| VGM = VT * 0.1 * 1000 | Переменной VGM присваивается значение равное 10% от веса туши в граммах |
| Else | Иначе |
| VGM = VT * 0.07 * 1000 | Переменной VGM присваивается значение равное 7% от веса туши в граммах |
| End If | Конец If |
| If cboNZ.Text = «350 г» Then | Если свойство Text выпадающего списка cboNZ (Норма закладки) имеет значение 350 г, то |
| NZ=350 | Переменной NZ присваивается значение 350 |
| Else | Иначе |
| If cboNZ.Text = "250 г" Then | Если свойство Text выпадающего списка cboNZ (Норма закладки) имеет значение 250 г, то |
| NZ=250 | Переменной NZ присваивается значение 250 |
| Else | Иначе |
| If cboNZ.Text = "150 г" Then | Если свойство Text выпадающего списка cboNZ (Норма закладки) имеет значение 150 г, то |
| NZ=150 | Переменной NZ присваивается значение 150 |
| EndIf | Конец If |
| EndIf | Конец If |
| EndIf | Конец If |
| If opt1.Value = TrueThen | Если свойство Value переключателя opt1 (Rare) в группе fraSP имеет значение True (переключатель в положении включено), то |
| lblVP.Caption=»Время приготовления: 5 минут» | Свойству Caption этикетки lblVP присваивается текстовое значение в виде сообщения «Время приготовления: 5 минут» |
| VGP=NZ*0.8 | Переменной VGP присваивается значение равное норме закладки с учетом процента ужарки 20% |
| Else | Иначе |
| If opt2.Value = True Then | Если свойство Value переключателя opt2 (Medium) в группе fraSP имеет значение True (переключатель в положении включено), то |
| lblCHP.Caption=«Время приготовления: 12-15 минут» | Свойству Caption этикетки lblVP присваивается текстовое значение в виде сообщения «Время приготовления: 12-15 минут» |
| VGP=NZ*0.7 | Переменной VGP присваивается значение равное норме закладки с учетом процента ужарки 30% |
| Else | Иначе |
| lblCHP.Caption=«Время приготовления: 20 минут» | Свойству Caption этикетки lblVP присваивается текстовое значение в виде сообщения «Время приготовления: 20 минут» |
| VGP=NZ*0.6 | Переменной VGP присваивается значение равное норме закладки с учетом процента ужарки 40% |
| End If | Конец If |
| End If | Конец If |
| KP = VGM / NZ | Переменной KP присваивается значение равное весу готового мяса, деленного на норму закладки |
| lblKP.Caption = «Количество порций:» + Str(KP) | Свойству Caption этикетки lblKP для вывода сообщения о количестве порций присваивается соответствующее значение – “Количество порций: KP”. |
| lblVGP.Caption=«Вес готовой порции:» + Str(VGP) | Свойству Caption этикетки lblVGP для вывода сообщения о весе готовой порции присваивается соответствующее значение – “Вес готовой порции: VGP”. |
| End Sub | Конец процедуры cmdR_Click. |
7. Для создания кода программы к расчетной форме необходимо ввести описание переменных, создать процедуры (см. табл. 11.10)
Таблица 11.10 – Описание переменных и создание процедур для кода информационной формы проекта «Пример с элементами управления»
| Данные в строке кода | Коментарий |
| 1 | 2 |
| Private Sub cmdOk_Click() | Заголовок процедуры, которая выполняется при нажатии кнопкой мыши на кнопке cmdOk (Ok) |
| End | Конец работы программы |
| End Sub | Конец процедуры cmdОk_Click. |
8. Для запуска программы на выполнение используется команда Run - Start. Запускается та форма, которая была создана первой. В случае выявления ошибок можно завершить выполнение программы командой Run - End, внести необходимые исправления в программу.
9. Чтобы сохранить проект необходимо выполнить команду File - Save Project As. При сохранении проекта записываются такие файлы: файл формы (файлы с расширением FRM) и файл проекта (файл с расширением VBP) сам прект.
10. Для создания исполняющего файла программы необходимо выполнить команду File - Make <Пример 3>. exe.
| 2019-11-13 |
177 |
Обсуждений (0) |
из
5.00
|
Обсуждение в статье: Методические указания по выполнению задания |
|
Обсуждений еще не было, будьте первым... ↓↓↓ |
Почему 1285321 студент выбрали МегаОбучалку...
Система поиска информации
Мобильная версия сайта
Удобная навигация
Нет шокирующей рекламы