9.2.3. Создание простых приложений

Цель занятия. Освоить приемы работы с элементами управления Lable и TextBox; научится выполнять простейшие вычисления с использованием этих Управ­­лений.

Теоретические вопросы:

1. Для чего предназначены Управления Lable и TextBox?

2. Перечислите основные свойства, события и методы этих Управлений.

3. Какие префиксы добавляются к именам этих Управлений?

4. Какие знаки служат для соединения содержимого текстовых полей?

5. Для чего нужны комментарии при записи кода программы, и с какого знака начинается комментарий?

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

Процедуры обработки событий

Private Sub cmdClear_Click() 'Что делать, когда будет нажата кнопка очистки?

txtHello.Text = " " 'Очистка поля для вывода Приветствия и Года рождения.

txtYear.Text = " " 'Очистка поля для ввода Количества лет.

txtName.Text = " " 'Очистка поля для ввода Имени.

txtPatronymic.Text = " " 'Очистка поля для ввода Отчества.

txtSurname.Text = " " 'Очистка поля для ввода Фамилии.

End Sub

Private Sub cmdExit_Click() 'Что делать при нажатии кнопки Выход?

End 'Завершние выполнения проекта,

'переход из режима Пуск в режим Создание.

End Sub

Private Sub cmdHello_Click() 'Что делать при нажатии кнопки Привет?

'Склеивание значения текстовых полей заком +.

'Пробел и _ служат для разбивки строки кода.

txtHello.Text = "Добрый день, " + " " + txtSurname + _

" " + txtName + " " + txtPatronymic + " !"

End Sub

Private Sub cmdYear_Click() ' Что делать, при нажатии кнопки Год рожд?

txtHello.Text = " " ' Очищается текстовое поле для приветствия.

x = Val(txtYear.Text) ' Число введенное в поле Возраст преобразуется из тестового

' в числовое и присваивается переменной x.

y = 2002 - x ' Вычисляется год рождения.

Text = "году" ' Переменной Text присваивается слово Году.

' Вывод года рождения, склеивание выполняется знаком &.

txtHello.Text = "Вы родились в " & Str(y) & " " & Text

End Sub

Задача 2. Разработайте приложение «Калькулятор», которое выполняет четыре арифметических действия.

Порядок выполнения работы

1. Откройте новый проект.

2. Разместите на нем управляющие элементы, как показано на рисунке 9.9.

3. Задайте самостоятельно свойства элементов управления. Для изменения раз­мера шрифта надписей на кнопках используйте свойство Font, предварительно выделив все 4 кнопки.

4. Перейдите в окно кода и заполните про­це­дуру для кнопки <+>.

Процедура обработки события для кнопки Плюс

Private Sub cmdПлюс_Click()

txtРезультат.Text = Val(txtЧисло1.Text) + Val(txtЧисло2.Text)

End Sub

5. Запишите процедуры для кнопок <Вычитание>, <Произведение>, <Частное>.

6. Сохраните проект под именем Calc.vba в папке вашей подгруппы, предварительно создав для него отдельную папку Calc, и закройте его (Файл / Удалить программу).

Задача 3. Сделайте копию проекта «Калькулятор». Разместите на нем кнопку возведения в квадрат числа из верхнего текстового поля, кнопку для очистки всех текстовых полей и кнопку выхода из программы (рисунок 9.10). Создайте исполняемый загрузочный файл.

Порядок выполнения работы

1. Откройте свою папку с проектами и сделайте копию папки с проектом Calc.vba. Переименуйте папку КопияCalc, дав ей другое имя Calc2. Откройте проект Calc из скопированной папки.

2. Разместите дополнительные элементы управления на форме, задайте их свойства, напишите процедуры.

3. Проверьте работу калькулятора и сохраните проект.

4. Для запуска калькулятора не из среды Visual Basic выберите команду меню Файл, затем Создать \ Calc.exe.

5. Закройте Visual Basic и запустите свой калькулятор, щелкнув по файлу Calc.exe.

Задача 4. Усовершенствуйте калькулятор таким образом, чтобы:

• при нажатии на клавишу вычитания эта клавиша прыгала в другое место калькулятора и на ней вместо минуса появлялся текст типа «Я устала вычитать» или «Не трогай меня – я нервная!»;

• при нажатии на клавишу <Очистка> клавиша вычитания возвращалась на свое место и принимала свой прежний вид;

• при нажатии на кнопку закрытия окна в режиме Run открывалось окно с сообщением «Указания».