Практическая работа. Программирование на vb6.0. Создание проектов с использованием функций ввода и вывода данных

Практическая работа 5, 11 класс, VB6
Учитель Кравченко Лора Викторовна
Общеобразовательная школа № 1, г. Горловка, 2008 год.


Фамилия Класс Дата



Практическая работа №5

Тема: «Создание проектов с использованием функций
ввода и вывода данных».

Цели:
По завершении работы вы сможете:
Вводить данные и получать сообщения, используя встроенные системные функции InputBox и MsgBox.

Ход работы

Встроенные функции.

Системные функции – функции, действие которых напрямую зависит от работы системы Windows.

Функция InputBox служит для ввода данных пользователем через системное окно.
Функция MsgBox служит для выдачи сообщений пользователю через системное окно.
Работа этих функций сопровождается появлением на экране окна ввода (см. рис.1) и окна сообщения (см. рис.2). MsgBox
заголовок





приглашение Рис.1 поле ввода текст Рис.2
InputBox

Функция Окно ввода (InputBox):

Правило:

InputBox (Приглашение [, Заголовок] [, НачЗначение ])
Приглашение - это любой текст, который должен, по замыслу программиста, находиться в Окне ввода. Его назначение – служить подсказкой пользователю, какую информацию он должен ввести в специальное поле ввода, находящееся в этом окне.
Необязательный аргумент – Заголовок – это надпись в строке заголовка Окна ввода.
НачЗначение – это значение, которое будет введено автоматически (по умолчанию) – если пользователь будет с этим согласен.
Возвращаемым значением данной функции является информация, вводимая пользователем. Visual Basic автоматически приписывает этой информации тип String.

Функция Окно сообщения (MsgBox).
Правило:

MsgBox (Текст [, Опция] [, Заголовок])

Это традиционная форма синтаксиса, когда функция возвращает значение, которое затем как-то используется (например, присваивается переменной).
Существует упрощенная форма синтаксиса, когда функция не возвращает никакого значения, а действует просто как оператор – выдает информацию в Окне сообщения. В этом случае в записи функции отсутствуют скобки:

MsgBox Текст [, Опция] [, Заголовок]

Текст – это строка сообщения, ради получения которого данная функция и применяется. Текст может содержать до 1024 символов!
Опция – см. дополнительный материал к практической работе.
Действие функции MsgBox таково: когда доходит очередь до её выполнения, на экране появляется Окно сообщения. Если используется бесскобочная форма синтаксиса, нажатие кнопки ОК просто завершает работу функции. А если используется форма со скобками, то значение функции присваивается какой-нибудь переменной.

Пример.
Пусть экранная форма вашего приложения содержит одно текстовое поле и командную кнопку ПУСК. После щелчка этой кнопки должно появиться Окно ввода для ввода фамилии пользователя. После ввода своей фамилии пользователь должен щелкнуть кнопку ОК на этом окне. Окно ввода исчезнет. Текстовое поле на экранной форме будет заполнено (рис.3)
Помимо этого должно появиться Окно сообщения с текстом:
«Замечательная фамилия »

Программный код:

Private Sub Command1_Click()
Dim Фамилия As String
Фамилия = InputBox("Введите, пожалуйста, свою фамилию:", "Ввод фамилии")
Text1.Text = Фамилия
MsgBox "Замечательная фамилия " & Фамилия
End Sub
Вначале появится окно:



После нажатия кнопки ПУСК появится Окно Ввода:



После нажатия кнопки ОК появится Окно сообщения:

и в первоначальном окне заполнится текстовое поле:









Задание на практическую работу:

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

1 вариант У = (х3 + 2) 4х
2 вариант У = х2 + 3 (х + 2)
Здесь запишите свой программный код:










Задание для успешно справившихся

Разработайте приложение, которое будет являться вашей визитной карточкой. Через Окно ввода введите свою фамилию, имя, отчество, класс. После заполнения соответствующих окон должно появиться Окно сообщения с приветствием ученику: «Добро пожаловать, Грабко Антон Иванович, на урок информатики!».

Контрольные вопросы

В каких случаях удобно использовать для ввода данных системное Окно ввода? _________________________________________________________ ________________________________________________________________________________________________________________________________________________________________________________________________
Какой тип автоматически присваивается информации, вводимой пользователем в Окно ввода? ____________________________________ ________________________________________________________________________________________________________________________________________________________________________________________________
Что происходит в результате работы следующей программы? (Поясните назначение каждой строки).

Private Sub ПУСК_Click() ___________________________________
Dim Фамилия As String, Имя As String, Отчество As String ____________________________________________________________
Фамилия = InputBox ("Введите, пожалуйста, свою фамилию:", _
"Ввод фамилии") ___________________________________________ ____________________________________________________________
Имя = InputBox(“Введите, пожалуйста, своё имя:», _
«Ввод имени») _____________________________________________ ____________________________________________________________
Отчество = InputBox(“Введите, пожалуйста, своё отчество:», _
«Ввод отчества») ___________________________________________ ____________________________________________________________
Text1.Text = Фамилия: Text2.Text = Имя: Text3.Text = Отчество __ ____________________________________________________________
End Sub __________________________________________________


Оценка:


(Теория + Практика) / 2 = Итог


+ =










Заголовок 1 Заголовок 2 Заголовок 3 Заголовок 4 Заголовок 5HYPER15Основной шрифт абзаца

Приложенные файлы

  • doc file56
    Размер файла: 246 kB Загрузок: 1

Добавить комментарий