Читайте также:
|
|
Ввод и вывод данных в процессе выполнения проекта может производиться различными способами:
1) вывод на форму методом Print, как в предыдущих программах;
2) с помощью всплывающих окон ввода и вывода информации. Для этого используются функции Окно ввода (InputBox) и Окно сообщений (MsgBox);
3) с помощью текстовых полей, применяя значения свойства Text.
Рассмотрим эти способы.
Диалоговое окно ввода информации InputBox
Это окно (рисунок 1) позволяет ввести определенную информацию, которая затем используется программой, и нажать кнопки выбора действия.
Рисунок 1 – Вид окна ввода
Функция InputBox имеет следующий синтаксис:
InputBox (prompt [, title] [, default] [, xpos] [, ypos] [, helpfile, context])
Где prompt – текст сообщения в диалоговом окне с максимальной длиной 1024 символа;
title – текст заголовка диалогового окна;
default – значение текстового поля ввода по умолчанию. Если параметр отсутствует, строка остается пустой;
xpos, ypos – позиция по горизонтали и вертикали левого верхнего угла диалогового окна относительно левого верхнего угла экрана. По умолчанию присваивается значение, соответствующее середине экрана;
helpfile, context – ссылка на файл и содержание справочной системы.
Диалоговое окно вывода сообщения MsgBox
Диалоговое окно сообщения вызывается из программы командой MsgBox или с помощью аналогичной функции MsgBox. Отличаются они только наличием или отсутствием круглых скобок. Большинство компонентов этой функции совпадают по значению с InputBox. Функция MsgBox имеет следующий синтаксис:
MsgBox (prompt[, buttons] [, title] [, helpfile, context])
где buttons – числовое выражение, которое задает параметры для кнопок управления и значков в диалоговом окне и составлено из констант, указанных в таблице 2.2. Если значение не указано, то по умолчанию присваивается 0. Для задания нескольких параметров кнопок и значков одновременно соответствующие константы складываются.
Таблица 2 – Константы параметров для значков окна вывода MsgBox
Константа | Значение | Тип сообщения |
vbExclamation | Предупреждение | |
vbQuestion | Запрос | |
vbInformation | Информация | |
vbCritical | Ошибка |
В диалоговых окнах сообщения можно управлять отображаемыми в окне сообщения кнопками и реакцией на их нажатие при открытии окна. Для этого используются константы из таблицы 2.3.
Таблица 3 – Константы параметров наличия кнопок в окне вывода MsgBox
Константа | Значение | Кнопки в диалоговом окне |
vbOkOnly | OK | |
vbOkCancel | OK, Отмена | |
vbAbortRetryIgnore | Стоп, Повтор, Пропустить | |
vbYesNoCancel | Да, Нет, Отмена | |
vbYesNo | Да, Нет | |
vbRetryCancel | Повтор, Отмена |
3 Методика и порядок выполнения работы
1. Изучите теоретическое обоснование.
2. Выполните пример 1: Для любых значений х и у, введенных с клавиатуры в текстовые поля, вычислить значения функций .
Алгоритм решения задачи представлен на рисунке 2.
Для создания приложения:
· Загрузите интегрированную среду Visual Basic.
· Разместите на форме кнопку запуска перетащив с панели инструментов элемент CommandButton и в свойствах объекта Name задайте имя Сmd1 с надписью «Пуск» в свойстве Caption.
· В соответствии с рисунком 3 разместите на форме четыре элемента и задайте им имя x, y, z,f.
Для этого: на Панели инструментов щелкните и растяните на форме окошки с меткой произвольной формы. В окне Свойства объекта установите значения свойств: BackColor (цвет фона) – серый, ForeColor (цвет надписи) – черный, Font – размер шрифта 18, Alignment (выравнивание) – Сenter.
Рисунок 3 – Вид формы для примера 1
В свойстве Caption напишите «х=» для первого элемента «у=» для второго, «Результат z=» - для третьего, «Результат F=» - для четвертого. Для фиксирования выбранных значений щелкните на свободном месте формы. Справа от созданной метки растяните на форме текстовое поле Textl, используя кнопку на Панели инструментов. В окне Свойств объекта оставьте Text1 в свойстве Name и удалите его из свойства Text для первого окна, для второго проделайте то же самое, но только оставьте Text2, для третьего – Text3, для четвертого – Text4. Можно также произвольно изменить значения свойств: ForeColor, Font, Alignment.
Аналогично разместите на форме еще два элемента TextBox и задайте им имена y, z. В результате форма примет вид, представленный на рисунке 3.
· Дважды щелкните по командной кнопке с надписью Пуск для ввода программного кода:
Private Sub Cmd1_Click()
Dim x, y, z, f As Single
z = 0.5 * Sin(x ^ 3) + 2.5 * Exp(2 * y)
f = (4 * x - z ^ (1 / 3)) / Sqr(y)
Print "z="; z
Print "f="; f
End Sub
Пояснение: в роли перемененных могут выступать свойства различных объектов VB, например, свойство Text объекта Текстовое поле. Такие переменные записываются с применением точки, например: х.Text, у.Text. Тип любого свойства изменять нельзя, – он жестко закреплен за данным свойством, например, свойство Caption (надпись на объекте) имеет тип String. Тип String имеет и свойство Text объекта Текстовое поле. Поэтому «числа», которые вводятся в текстовые поля, – это не числа, а всего лишь строки цифр. Для того чтобы использовать эти «числа» в арифметических действиях, их нужно преобразовать в «настоящие» числа. Делается с помощью функции Val. Обратное преобразование (числа в строку) производится с помощью функции Str: если z1 – это число, то Str(z1) – это строка символов. При преобразовании строки в число производится ее просмотр слева направо до первого неправильного символа.
· Запустите приложение на выполнение, щелкнув по кнопке (Start) в командной строке. Исправьте ошибки. Если ошибок нет, на экране появится разработанная форма. В текстовое поле х и поле у введите любые числовые значения для вычисления по указанным формулам. Щелкните по командной кнопке Пуск, выполнится процедура Cmd1_Click и в поле z и f появится результат. Значение z и f будут выведены на форму, и в окна. Завершите работу программы с помощью кнопки (End).
3. Выполните пример 2.
Разработать проект для вычисления значения функций , для любых значений х и у, введенных с использованием Окна ввода (InputBox). Вывести значения с использованием Окна сообщения (MsgBox).
Для создания приложения:
· Разместите на форме кнопку Сmd2_Click() с соответствующими заданием свойств нового объекта, по аналогии с кнопкой «Пуск», только с именем – Cmd2, и надписью «Пуск2».
Рисунок 4 – Вид формы для примера 2
· Создайте для командной кнопки Сmd2 программный код:
Private Sub Cmd2_Click()
Dim x, y, z, f As Single
x = InputBox("Введите х")
y = InputBox("Введите y")
z = 0.5 * Sin(x ^ 3) + 2.5 * Exp(2 * y)
f = (4*x - z^(1/3)) / sqr (y)
MsgBox z,, "Вывод значения функции z "
MsgBox f,, "Вывод значения функции f "
End Sub
· Запустите приложение. Сравните результаты с примером 1.
Дата добавления: 2015-08-03; просмотров: 162 | Нарушение авторских прав
<== предыдущая страница | | | следующая страница ==> |
Математическое выражение Запись на Visual Basic | | | Задания |