Использование пользовательской формы UserForm

Для вычисления определённого интеграла с использованием пользовательской формы необходимо в среде VBA, применяя объекты панели Toolbox, создать платформу UserForm, как показано на рис. 1.4.1.

Рис. 1.4.1

 

Организация взаимодействия объектов, находящихся на платформе UserForm, определяется модулем, программно поддерживающим объект CommandButton1 (Вычислить).

Для рассматриваемого примера этот модуль имеет вид:

Private Sub CommandButton1_Click()

Dim a As Double

Dim b As Double

Dim n As Integer

If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Or Not IsNumeric(TextBox3) Then

MsgBox " Нецифровые данные"

Exit Sub

End If

a = CDbl(TextBox1)

b = CDbl(TextBox2)

n = CDbl(TextBox3)

If OptionButton1 Then

TextBox4 = Prym(a, b, n)

TextBox5 = Trap(a, b, n)

TextBox6 = Simp(a, b, n)

End If

End Sub

Некоторые комментарии к программе:

 

– фрагмент программы

  If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Or Not IsNumeric(TextBox3) Then

MsgBox " Не цифровые данные"

Exit Sub

End If

проверяет принадлежность данных, вводимых через объекты TextBox 1, TextBox 2 и TextBox 3 к цифровому типу;

– если включён объект OptionButton 1, то в объекты TextBox 4, TextBox 5 и TextBox 6 соответственно выводятся результаты функционирования модулей Prym (a, b, n), Trap (a, b, n) и Simp (a, b, n), то есть значения определённого интеграла, соответствующего варианту задания, вычисленного методом прямоугольников, методом трапеций и методом Симпсона.

Достоинством применения пользовательской формы является то, что в ней можно изменять пределы интегрирования и точность.

На рис. 1.4.2 показан пример увеличения точности вычисления определённого интеграла при разбиении на 10000 прямоугольников, трапеций, криволинейных трапеций. Как видно, значения, полученные в результате вычислений разными методами, сближаются.

Недостатком можно считать то, что вычисления возможны только для одного интеграла, точнее для одной подынтегральной функции.

Рис. 1.4.2

 

Калькулятор для вычисления определённых интегралов

Для вычисления нескольких видов определённого интеграла с использованием пользовательской формы можно предложить калькулятор, показанный на рис. 1.5.1.

Рис. 1.5.1

 

Выбор интеграла осуществляется с помощью объектов OptionButton, при этом в объектах TextBox, обеспечивающих ввод пределов интегрирования и число разбиений, устанавливается некоторый вариант, который при необходимости можно изменить.

Так при выборе интеграла вида

устанавливается вариант расчета при a = 0, b = 1 и   N = 20.

При выборе других интегралов, устанавливаются варианты пределов интегрирования и разбиений в соответствии с модулями, программно поддерживающими объекты OptionButton 2 и OptionButton 3.

Private Sub OptionButton 1_ Click ()

TextBox1 = "0"

TextBox2 = "1"

TextBox3 = "20"

End Sub

Private Sub OptionButton2_Click()

TextBox1 = "0"

TextBox2 = "2"

TextBox3 = "10"

End Sub

Private Sub OptionButton3_Click()

TextBox1 = "0"

TextBox2 = "1,2"

TextBox3 = "12"

End Sub

Результаты вычислений для метода прямоугольников, метода трапеций и метода Симпсона отображаются в соответствующих объектах TextBox в формате с десятью знаками после десятичной точки.

 На рис. 1.5.2 показан пример увеличения точности вычисления определённого интеграла при разбиении на 20000 прямоугольников, трапеций, криволинейных трапеций. Как видно, значения, полученные в результате вычислений разными методами, сближаются.

 

Рис. 1.5.2

       Модуль программно поддерживающий кнопку Вычислить пользовательской формы Вычисление определённого интеграла в VBA имеет вид:

Private Sub CommandButton1_Click()

Dim a As Double

Dim b As Double

Dim n As Integer