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. Войти в VBAAlt - 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. Войти в VBAAlt - 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; просмотров: 205; Мы поможем в написании вашей работы!






Мы поможем в написании ваших работ!