Состав сооружений: решетки и песколовки: Решетки – это первое устройство в схеме очистных сооружений. Они представляют...
Своеобразие русской архитектуры: Основной материал – дерево – быстрота постройки, но недолговечность и необходимость деления...
Топ:
Проблема типологии научных революций: Глобальные научные революции и типы научной рациональности...
Марксистская теория происхождения государства: По мнению Маркса и Энгельса, в основе развития общества, происходящих в нем изменений лежит...
Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...
Интересное:
Подходы к решению темы фильма: Существует три основных типа исторического фильма, имеющих между собой много общего...
Инженерная защита территорий, зданий и сооружений от опасных геологических процессов: Изучение оползневых явлений, оценка устойчивости склонов и проектирование противооползневых сооружений — актуальнейшие задачи, стоящие перед отечественными...
Влияние предпринимательской среды на эффективное функционирование предприятия: Предпринимательская среда – это совокупность внешних и внутренних факторов, оказывающих влияние на функционирование фирмы...
Дисциплины:
2021-04-18 | 90 |
5.00
из
|
Заказать работу |
|
|
Для вычисления определённого интеграла с использованием пользовательской формы необходимо в среде 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
|
|
Папиллярные узоры пальцев рук - маркер спортивных способностей: дерматоглифические признаки формируются на 3-5 месяце беременности, не изменяются в течение жизни...
Археология об основании Рима: Новые раскопки проясняют и такой острый дискуссионный вопрос, как дата самого возникновения Рима...
Особенности сооружения опор в сложных условиях: Сооружение ВЛ в районах с суровыми климатическими и тяжелыми геологическими условиями...
История развития пистолетов-пулеметов: Предпосылкой для возникновения пистолетов-пулеметов послужила давняя тенденция тяготения винтовок...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!