Private Sub CommandButton2_Click()
Unload Me
End Sub
Некоторые комментарии к программе:
– В программе используется функция IsNumeric ( TextBox 1) проверяющая являются ли данные, помещенные в объекте TextBox 1 или TextBox 2 цифровыми;
– В программе используется функция CDbl ( TextBox ), обеспечивающая преобразование данных объектов TextBox 1 и TextBox 2 в цифровые;
– В программе обрабатывается ситуация невозможности деления на ноль;
– В программе обрабатывается ситуация невозможности возведения нуля в нулевую степень;
– Модуль объекта CommandButton 2, который в свойстве Caption переименован в “Выход”, обеспечивает завершение функционирования объекта UserForm .
Калькулятор с CheckBox
Создание пользовательской формы организуется следующим образом:
1. Войти в VBA – Alt - F 11;
2. Выбрать Insert (вставка);
3. Выбрать UserForm.
Затем на появившуюся “платформу” объекта UserForm с панели Toolbox, рис. 9.4, последовательно переместить:
два объекта Label;
семь объектов Textbox;
пять объектов CheckBox;
четыреобъекта Frame;
два объекта CommandButton ,
расположив их, как показано на рис. 9.5.
Рис. 9.5.
В объекте UserForm используются четыре объекта Frame (рамка), рис. 9.5, три из которых переименованы в “Исходные данные”, “Результаты” и “Арифметические действия”.
Далее открыть модуль, программно поддерживающий объект CommandButton 1 (в свойстве 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 , в отличие от калькулятора с OptionButton , позволяет вывести одновременно результаты вычислений всех или части выбранных операций, для чего используются пять объектов TextBox ;
– В программе используется функция IsNumeric ( TextBox ) проверяющая являются ли данные, помещенные в объекте TextBox 1 или TextBox 2 цифровыми;
– В программе используется функция CDbl ( TextBox ), обеспечивающая преобразование данных объектов TextBox 1 и TextBox 2 в цифровые;
|
|
– В программе обрабатывается ситуация невозможности деления на ноль;
– В программе обрабатывается ситуация невозможности возведения нуля в нулевую степень;
– В программе обеспечивается ситуация вывода пустого окна в случае, если какой-либо CheckBox невыбран;
– Модуль объекта CommandButton 2, который в свойстве Caption переименован в “Выход”, обеспечивает завершение функционирования объекта UserForm .
Логарифмический калькулятор
Создание пользовательской формы организуется следующим образом:
1. Войти в VBA – Alt - F 11;
2. Выбрать Insert (вставка);
3. Выбрать UserForm.
Затем на появившуюся “платформу” объекта UserForm с панели Toolbox, рис. 9.4, последовательно переместить:
два объекта Label;
пять объектов Textbox;
три объекта CheckBox;
четыреобъекта Frame;
два объекта CommandButton ,
расположив их, как показано на рис. 9.6.
Рис. 9.6.
В объекте UserForm используются четыре объекта Frame (рамка), рис. 9.6, три из которых переименованы в “Исходные данные”, “Результаты” и “Действия”.
Далее открыть модуль, программно поддерживающий объект CommandButton 1 (в свойстве Caption переименованный в “Вычислить”), объекта UserForm и написать программу, обеспечивающую организацию взаимодействия выбранных объектов для получения результатов при выбранных математических операциях.
|
|
Дата добавления: 2019-03-09; просмотров: 261; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!