Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
Поперечные профили набережных и береговой полосы: На городских территориях берегоукрепление проектируют с учетом технических и экономических требований, но особое значение придают эстетическим...
Топ:
Оценка эффективности инструментов коммуникационной политики: Внешние коммуникации - обмен информацией между организацией и её внешней средой...
Комплексной системы оценки состояния охраны труда на производственном объекте (КСОТ-П): Цели и задачи Комплексной системы оценки состояния охраны труда и определению факторов рисков по охране труда...
Характеристика АТП и сварочно-жестяницкого участка: Транспорт в настоящее время является одной из важнейших отраслей народного хозяйства...
Интересное:
Лечение прогрессирующих форм рака: Одним из наиболее важных достижений экспериментальной химиотерапии опухолей, начатой в 60-х и реализованной в 70-х годах, является...
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Аура как энергетическое поле: многослойную ауру человека можно представить себе подобным...
Дисциплины:
2021-04-18 | 91 |
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 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!