Информатика для I курса. Часть I. Никифоров С.Н. - 29 стр.

UptoLike

ВУЗ: 

СПбГАСУ | Санкт-Петербург

Составители: 

Рубрика: 

56 57
В объекте UserForm используются четыре объекта Frame (рам-
ка) (см. рис. 9.5), три из которых переименованы в «Исходные дан-
ные», «Результаты» и «Арифметические действия».
Далее открыть модуль, программно поддерживающий объект
CommandButton1 (в свойстве Caption переименованный в «Вычис-
лить») объекта UserForm, и написать программу, обеспечиваю-
щую организацию взаимодействия выбранных объектов для полу-
чения результатов при
выбранных арифметических операциях.
Программа калькулятора с CheckBox
Private Sub CommandButton1_Click()
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then
MsgBox "Исходные данные введены неверно или не полностью!", , "Введите
числа"
Exit Sub
End If
A = CDbl(TextBox1)
B = CDbl(TextBox2)
If CheckBox1 = True Then TextBox3 = A + B Else TextBox3 = ""
If CheckBox2 = True Then TextBox4 = A - B Else TextBox4 = ""
If CheckBox4 = True Then
If B <> 0 Then TextBox6 = A / B Else TextBox6 = "На ноль не делим!"
Else TextBox6 = ""
End If
If CheckBox3 = True Then TextBox5 = A * B Else TextBox5 = ""
If CheckBox5 = True Then
If A = 0 And B <= 0 Then TextBox7 = "Недопустимые значения!" Else
TextBox7 = A ^ B
Else TextBox7 = ""
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Некоторые комментарии к программе:
калькулятор с CheckBox, в отличие от калькулятора с Op-
tionButton, позволяет вывести одновременно результаты вычисле-
ний всех или части выбранных операций, для чего используются
пять объектов TextBox;
в программе используется функция IsNumeric(TextBox), про-
веряющая, являются ли данные, помещенные в объекте TextBox1
или TextBox2, цифровыми;
в программе
используется функция CDbl(TextBox), обеспе-
чивающая преобразование данных объектов TextBox1 и TextBox2
в цифровые;
в программе обрабатывается ситуация невозможности деле-
ния на ноль;
в программе обрабатывается ситуация невозможности возве-
дения нуля в нулевую степень;
в программе обеспечивается ситуация вывода пустого окна
в случае, если какой-либо CheckBox не выбран;
модуль
объекта CommandButton2, который в свойстве Cap-
tion переименован в «Выход», обеспечивает завершение функцио-
нирования объекта UserForm.
9.3. Логарифмический калькулятор
Создание пользовательской формы организуется следующим
образом:
войти в VBA – Alt-F11;
выбрать Insert (вставка);
выбрать UserForm.
Затем на появившуюся «платформу» объекта UserForm с пане-
ли Toolbox (см. рис. 9.4) последовательно переместить:
два объекта Label;
пять
объектов Textbox;
три объекта CheckBox;
четыре объекта Frame;
два объекта CommandButton,
расположив их, как показано на рис. 9.6.
В объекте UserForm используются четыре объекта Frame (рам-
ка) (см. рис. 9.6), три из которых переименованы в «Исходные дан-
ные», «Результаты» и «Действия».

Страницы