5.4. Ввод и вывод данных


            Ввод и вывод данных в процессе выполнения проекта может производиться различными способами. Наиболее часто для этого используются функции Окно ввода (InputBox) и Окно сообщений (MsgBox), а также значения свойства Text текстовых полей.

            Проект 5.3. «Проверка знаний».  Разработаем проект, который позволит контролировать знания. Алгоритм контроля должен последовательно реализовывать следующие операции:

-          задать (напечатать) вопрос;

-          запросить ответ и запомнить введенное с клавиатуры значение;

-          полученный ответ сравнить с правильным и, в зависимости от выполнения или невыполнения этого условия, реализовать различные действия.

            Регистрация. Сначала реализуем регистрацию проверяемого с использованием функций InputBox и MsgBox.

Проект «Проверка знаний».

1

Разместить на форме кнопку cmd1 и начать создание событийной процедуры cmd1_Click().

2

С помощью функции InputBox запросить имя и фамилию и присвоить ее значение строковой переменной strA, а с помощью функции MsgBox, вывести результаты регистрации:

 

Private Sub cmd1_Click()

strA = InputBox("Введите ваше имя и фамилию:", "Регистрация")

bytB = MsgBox("Уважаемый  " + strA + ", Вы готовы к проверке знаний?", 36, "Конец регистрации")

End Sub

3

Запустить проект и щелкнуть по кнопке Начать проверку.

На появившемся диалоговом окне Регистрация ввести в  текстовое поле имя и фамилию.

            В функции MsgBox второму аргументу присвоено числовое значение, которое одновременно задает тип выводимого информационного окна и набор размещенных на нем кнопок. 

4

Число 36 обеспечивает вывод информационного окна типа Вопрос, которое имеет две кнопки Да и Нет.

            Щелчок по одно из кнопок приводит к возвращению функцией определенного числового значения (Да – 6, Нет – 7), которое присваивается числовой переменной bytB

5

С помощью условного оператора можно реализовать либо выход из программы (щелчок по кнопке Нет), либо продолжение работы и переход к проверке знаний (щелчок по кнопке Да):

If bytB = 7 Then End

 

            Проверка знаний. Вопрос задается с помощью функции InputBox, проверка правильности ответа производиться с помощью оператора условного перехода If-Then-Else, а вывод информации о правильности или неправильности ответа с помощью функции MsgBox в форме оператора (бесскобочная запись) и числовым значением аргумента 0, что обеспечивает вывод информационного окна с одной кнопкой OK.

6

Ввести в событийную процедуру программный код, реализующий проверку знаний в виде последовательности  вопросов. В переменной bytN накапливать количество неправильных ответов:

 

strC = InputBox("Чему равен 1 байт?:", "Первый вопрос")

If strC = "8 бит" Then MsgBox "Правильно!", 0, "Первый вопрос"

Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1

strC = InputBox("Переведите десятичное число 5 в двоичную систему счисления:", "Второй вопрос")

If strC = "101" Then MsgBox "Правильно!", 0, "Второй вопрос"

Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1

MsgBox "Уважаемый  " + strA + ", Вы сделали " + Str(bytN) + " ошибок!", 0, "Конец опроса"

7

Запустить проект, пройти регистрацию и ответить на вопросы. Результат будет выведен с помощью информационного окна функции MsgBox.

 

            Вывод результатов контроля знаний можно реализовать также с использованием текстовых полей.

8

Разместить на форме два текстовых поля txtName и txtError и две поясняющие метки lblName и lblError.

9

Присвоить свойству Text текстовых полей значения переменных strA (содержит регистрационные данные) и bytN (содержит количество ошибок):

 

txtName.Text = strA

txtError.Text = Str(bytN)

10

Запустить проект, пройти регистрацию и проверку знаний.

На форме появятся результаты.

11 Сохранить проект в файле prj3.vbp.

  

Задания для самостоятельного выполнения (Ответы)

5.12. Создать проект вычисления факториала числа. Предусмотреть визуализацию процесса вычисления факториала.

5.13. Создать проект, выводящий в текстовые поля текущее время и дату.