Лабораторная работа № 13

Тема «ВВОД ФАМИЛИИ ИМЕНИ И ОТЧЕСТВА»

Цель работы: Познакомиться с элементами управления Visual Basic 6.0 TextBox, научиться пользоваться элементами управления и их свойствами

Задачи: Создать по пунктам лабораторной работы 3 текстовых, в которые с помощью InputBox заносится информация.

Ход работы:

1. Готовимся к работе

Откройте VB. Затем на форме разместим три поля и одну командную кнопку.

Пусть кнопка называется ПУСК. Переходим в окно кода кнопки и записываем код программы. Трем переменным (Фамилия, Имя, Отчество) присваиваем тип String.

Затем в эти переменные помещаем соответствующие сообщения, например «Введите, пожалуйста, Вашу фамилию» через функцию InputBox и т.д.

2. Приступаем к программированию

В итоге должен получиться следующий код:

Private Sub ПУСК_Click()

Dim Фамилия As String, Имя As String, Отчество As String

Фамилия = InputBox("Введите,пожалуйста, Вашу фамилию:", "Ввод фамилии")

Имя = InputBox("Введите,пожалуйста, Ваше имя:", "Ввод имени")

Отчество = InputBox("Введите,пожалуйста, Ваше отчество:", "Ввод отчество")

Text1.Text = Фамилия: Text2.Text = Имя: Text3.Text = Отчество

End Sub

После щелчка по кнопке ПУСК должна появиться форма для ввода фамилии, после того как ввели фамилию и щелкнули по кнопке ОК, появляется форма для ввода имени, затем отчества. После того как введены фамилия, имя и отчество они отображаются в форме, где расположены три поля и кнопка.

Осталось сохранить проект и откомпилировать. И все!

Для самостоятельной работы

Создать вид анкеты, куда данные будут вводиться с помощью InputBox.

Лабораторная работа № 14

Тема: «СТРОКА И СТОЛБИК»

Цель работы: Познакомиться с элементами управления Visual Basic 6.0 CommandButton, TextBox, научиться пользоваться элементами управления и их свойствами

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

Ход работы:

1. Готовимся к работе

Для начала запустим VB. После этого на форме расположим в столбик друг за другом четыре текстовых поля, поле метки (Label) и 2 командных кнопки.

Интерфейс готов. Рассмотрим 2 случая, как должна выглядеть программа: 1 – когда значения ячеек будут помещаться в поле метки в строчку. В этом случае форма будет выглядеть следующим образом (рисунок 1):

Рисунок 1 – Запись в поле метки (справа) конкатенации строк из текстовых полей (слева) без переноса слов на новую строчку

А во втором случае – когда значения в поле метки помещаются с переносом слов. Выглядит это так (рисунок 2):

Рисунок 2 – Запись в поле метки конкатенации строк из текстовых полей с переносом новых слов на новую строку

2. Приступаем к программированию

Разместили на форме 2 кнопки: Первая кнопка для первого случая, когда в поле метка значения помещаются в одну строчку. А вторая кнопка для второго случая – когда значения помещаются в столбик.

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

Private Sub Command1_Click()

Label1.Caption=Text1.Text+ « «+Text2.Text+« «+Text3.Text+« «+Text4.Text

End Sub

Далее приступаем к написанию кода для второй кнопки. Аналогичным образом открываем окно кода для второй кнопки и записываем следующий код:

Private Sub Command2_Click()

Label1.Caption=Text1.Text+Chr(13)+Chr(10)+Text2.Text+Chr(13)+Chr(10)+Text3.Text+ Chr(13)+Chr(10)+Text4.Text

End Sub

Вот и все. Осталось сохранить проект и откомпилировать его.

Для самостоятельной работы

Напишите программу, которая решает задачу. В поле вводится одна строка, содержащая сведения о фамилии, имени и отчестве. В этой строке они разделены пробелами, например: «Иванов Игорь Васильевич». Программа должна поместить в три текстовых поля отдельно фамилию, отдельно имя и отдельно отчество.