Ввод, вывод
Вывод на форму текстовых сообщений можно производить различными способами:
с помощью элемента управления Label;
с помощью элемента управления TextBox;
используя метод Print;
используя функцию MsgBox
Формат оператора Print:
[имя формы.]Print[[выражение] [{; ,}]]…
Если после выражения стоит “;” то за последним символом предыдущего выражения сразу выводится следующее. Если стоит “,” то вывод производится по зонам, каждая из которых имеет размер 14 символов. Отсутствие после последнего выражения знака переводит позицию вывода в начало следующей строки.
В операторе Print можно использовать форматированный вывод, для чего следует использовать функции:
TAB используется для перемещения курсора в указанную позицию вывода на экран или печати.
TAB(столбец%)
столбец% -номер столбца новой позиции печати.
Пример: РRINT TAB(25); "Текст"
SРC оставляет заданное число пробелов
SРC(n%)
n% число пробелов; значения в диапазоне от 0 до 32767.
Пример: РRINT "Текст1"; SРC(10); "Текст2"
Format – задает формат пользователя
Format(выражение [, format])
В качестве format можно использовать следующие символы:
# позиция цифры
. позиция десятичной точки
, позиция запятой
% - знак процента
> - все прописные буквы
< - все строчные буквы
Например:
MyStr = Format(5459.4, "##,##0.00") ' получим "5,459.40".
MyStr = Format(334.9, "###0.00") ' получим "334.90".
MyStr = Format(5, "0.00%") ' получим "500.00%".
MyStr = Format("HELLO", "<") ' получим "hello".
MyStr = Format("This is it", ">") ' получим "THIS IS IT".
MsgBox(Сообщение$[, ЧисКод1+ЧисКод2][, Заголовок$]) – позволяет выводить сообщениене на форме, а на специальной панели сообщений (Панель сообщений).
Например: bytB=MsgBox(“Уважаемый ” + strA + “, Вы готовы к проверке знаний? ”, 36, “Конец регистрации”)
Появится панель сообщений, в заголовке которой будет написано: Конец регистрации, а на панели Уважаемый , Вы готовы к проверке знаний?
Число 36 обеспечивает вывод информационного окна типа вопрос, которое имеет две кнопки Да и Нет
Аргументы ЧисКод1 и ЧисКод 2 можно менять, тогда изменится внешний вид окна.
ЧисКод1 – определяет вид пиктограммы, которая помещается на панель сообщений, а ЧисКод2 определяет набор кнопок.
ЧисКод1 |
Пиктограмма |
16 |
|
32 |
|
48 |
|
64 |
|
ЧисКод2 |
Набор кнопок |
0 |
Ок |
1 |
Ок, Отмена |
2 |
Стоп, Повтор, Пропустить |
3 |
Да, Нет, Отмена |
4 |
Да, Нет |
5 |
Повтор, Отмена |
Нажатие на кнопку на панели сообщений приводит к вычислению значения функции, которое зависит от нажатой кнопки.
Значения функции MsBox
Нажатая кнопка |
Значение функции |
ОК |
1 |
Отмена |
2 |
Стоп |
3 |
Повтор |
4 |
Пропустить |
5 |
Да |
6 |
Нет |
7 |
Ввод текстовой информации можно производить с помощью элемента управления TextBox или с помощью функции ввода InputBox.
InputBox(приглашение$, Заголовок$, [По умолчанию$]) – позволяет вводить данные с помощью диалоговой панели ввода (Окно ввода).
Например: strA=InputBox(“Введите ваше имя и фамилию:”, “Регистрация”)
Появится окно ввода, в заголовке окна напечатается: Регистрация, в самом окне Введите ваше имя и фамилию: