Ввод и вывод информации на языке Visual Basic

Ввод и вывод данных в процессе выполнения проекта может производиться различными способами:

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