|
Для ввода информации в Visual
Basic, могут применить:
-
ввод информации из
текстового поля с использованием функции Val -
функции преобразования строковых величин в числовые;
-
ввод информации из
Диалогового Окна Ввода с использованием функции
InputBox;
-
ввод информации из списка
ListBox или ComboBox;
-
ввод информации из файла.
---Функция Val---
Если символьные величины a =
"10" и b = "28",то Val(a) + Val(b)уже не равно
символьной величине "1028", а равно числу 10+28=38
Функция Val часто применяется
при вводе чисел из ТЕКСТОВОГО ПОЛЯ TextBox, ведь, число
введенное в ТЕКСТОВОЕ ПОЛЕ, это не число, а набор
символов. При помощи функции Val этот символ, введенный
в ТЕКСТОВОЕ ПОЛЕ, нужно превратить в число, и затем это
число можно использовать в арифметических действиях.
ПРИМЕР: Нужно составить
программу, которая вычисляет потенциальную энергию тела,
поднятого над Землей, по формуле E = m*g*h. Где g = 9,8
а масса и высота может быть любым, значения которых
нужно вводить в текстовые поля Text1 и Text2. Ответ
должен выдаваться при нажатии на кнопку ОТВЕТ, с именем
ANSWER.
ПРОЕКТ:
В ФОРМЕ нужно поместить, хотя
бы три текстовых поля Text1, Text2, Text3. Первые две
для ввода массы m и высоты h, а третья для вывода
значения Е.
-
В первые две текстовые поля
нужно вводить данные, значить у них свойство Locked=False,
а в третье поле запретить вносить изменения - Locked=True.
-
В ФОРМЕ нужно поместить
командную кнопку CommandButton дать имя (например,
ANSWER) и связать с ним событий процедуру
возникающую при левом щелчке по кнопке, для решения
задачи, с данными введенными в Text1и Text2, и
вывода результата в Text3.
-
Для создания событийной
процедуры кнопки ANSWER, нужно сделать по нему
двойной левый щелчок и в открывшемся окне КОД,
заполнить процедурную заготовку, до следующего вида.
Private Sub ANSWER_Click()
Text3.Text = Val(Text1.Text) * 9.8 * Val(Text2.Text)
End Sub
Когда вы в текстовое поле1
вводите, например 25, вы думаете ввели число 25, а
машина запоминает два символа "2" и "5" (потому, что
данные ввели в текстовое поле, само название говорит -
символы).
Написав в формуле Val(Text1.Text)
(это говорит компьютеру - символы введенные в Text1
переведи в число) вы получаете в формуле число 25, а не
символы "2" и "5". Аналогично остальное.
---Функция InputBox---
Функция ввода InputBox (ОкноВвода)
- позволяет вводить данные с помощью диалоговой панели
ввода.
Аргументами функции являются
три строки, значением - также строка.
При выполнении функции на
экране появляется ДИАЛОГОВОЕ ОКНО с ТЕКСТОВЫМ ПОЛЕМ.
InputBox ("Приглашение",
"Заголовок (будет печататься в заголовке
окна)", [По умолчанию - это содержание
текстового поля. Если здесь ничего не написано, то
ТЕКСТОВОЕ ПОЛЕ пустое])
ПРИМЕЧАНИЕ: Функцию ввода
InputBox (ОКНО ВВОДА) хорошо применять совместно с
функцией вывода информации MsgBox . Об этой функции
смотри выше.
-
strA = InputBox("Введите
ваше Имя и Фамилию:", "Регитрация") - выводит на
экран окно "Регистрация", с запросом "имени и
фамилии", и с пустым ТЕКСТОВЫМ ПОЛЕМ для его ввода.
Введенное "Имя и Фамилию" присваивает символьной
переменной strA.
-
MsgBox("Уважаемый "
+ strA + ", Вы готовы к проверке знаия?", 36, "Конец
регистрации")
Значение символьной переменной
strA использует в появляющемся ОКНЕ ВЫВОДА MsgBox. (Окно
имеет две кнопки нет и да, так как, стоит цифра 36 (см
табл)).
---Ввод информации из
списка---
Ниже приведен пример
простенькой программы, поясняющий способ ввода
информации из списка ListBox или ComboBox.
Private Sub
Kommand1_Click()
Text3.Text = List1.Index(0) +
List2.Index(7)
End Sub
---Ввод информации из файла---
Например если вы хотите, чтобы в процессе выполнения
программы в Image1 появилось изображение из файла, то
можно использовать его свойство LoadPicture и в
программе набрать следующее: Image1.Picture =
LoadPicture("полный путь к файлу, и даже расширение").
Функций и операторов для работы с файлами много, но в
нашем случае нужно запомнить оператор Open (Открыть):
Open ПОЛНОЕ ИМЯ ФАЙЛА
ВВЕРХ |