Курсовая работа: Проект программного модуля для нахождения приближенного значения бесконечной суммы

👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

1.1 Математическая модель задачи. 3
2 Проектирование программного модуля. 6
2.1 Структурная диаграмма программного модуля. 6
2.2 Разработка схемы программного модуля и её описание. 7
2.3 Разработка пользовательского интерфейса. 8
3 Реализация программного модуля. 10
4 Тестирование программного модуля. 17
Список использованных источников. 20
Целью данной курсовой работы является разработка программного модуля для вычисления приближенного значения бесконечной суммы с точностью до Е=0.05, если x принимает значения на отрезке [a,b] с шагом h. Для разработки используется табличный процессор Excel и язык программирования Visual Basic for Application.
Данная курсовая работа состоит из 4 разделов.
В разделе «Постановка задачи» описаны: математическая модель задачи, входные и выходные данные, обработка ошибок, которые могут быть допущены при работе с данной программой.
В разделе «Проектирование программного модуля» приведена структурная диаграмма программного модуля, схема программного модуля с ее описанием и описан пользовательский интерфейс.
В разделе «Реализация программного модуля» находится код программы с комментариями к нему и описаны используемые операторы и функции.
В разделе «Тестирование программного модуля» показана работа программы.
Данная сумма представляет собой бесконечный ряд Тейлора. Для достижения заданной точности надо суммировать члены ряда до тех пор, пока очередной член по модулю не будет меньше Е. Для получения следующего члена ряда через предыдущий воспользуемся рекуррентной формулой:
Предусмотреть проверку на допустимость исходных данных и повторение ввода при ошибочных данных;
Ввод исходных данных осуществлять в поля ввода формы.
Таблица сумм бесконечного ряда в зависимости от x;
Все выходные данные выводятся на форму;
Ко всем выходным данным должен быть запрещен доступ со стороны пользователя.
В данной программе реализован следующий способ контроля ввода:
Сначала проверяется, является ли набираемый символ либо цифрой, либо запятой;
Если не является, то набор символа игнорируется;
Если набираемый символ является цифрой, то он вводится в поле ввода;
Если набираемый символ является запятой, то проверяется, является ли она первой вводимой запятой. Если ранее запятые не вводились, то она вводится в поле ввода. В противном случае ввод запятой игнорируется.
Данный способ контроля ввода реализован с помощью функции KeyPress.
Однако пользователь может не ввести в поле ввода данные. В этом случае выдается следующее сообщение:
Если пользователь ввел начало отрезка больше, чем конец отрезка, то в этом случае выдается следующее сообщение:
Рисунок 3. Структурная диаграмма программного модуля.
UserForm1 – пользовательская форма.
UserForm_Initialize() – процедура начальной инициализации пользовательской формы.
CommandButton1_Click() – процедура, срабатывающая при нажатии кнопки «Вычислить сумму», которая считывает исходные данные, производит вычисления и записывает результат.
CommandButton2_Click() – процедура, срабатывающая при нажатии кнопки «Удалить данные», которая осуществляет удаление введенных данных и результатов.
CommandButton3_Click() – процедура, срабатывающая при нажатии кнопки «Выход», которая закрывает приложение.
Sum() – функция определения суммы бесконечного ряда.
2.2 Разработка схемы программного модуля и её описание
Рисунок 4. Схема процедуры обработки кнопки «Вычислить сумму».
Рисунок 5. Схема функции вычисления суммы бесконечного ряда.
2.3 Разработка пользовательского интерфейса
При запуске программы появляется следующее окно (Рис.6). Текстовая информация размещена на элементах управления Label.
В окне программы располагаются ячейки ввода (элементы управления TextBox), таблица результатов (элемент управления ListBox) и график функции, который располагается на элементе управления Image.
После нажатия на кнопку (CommandButton) «Вычислить сумму» считываются данные, производится расчет, выводится результат.
После нажатия на кнопку «Удалить данные» данные и результат стираются.
Dim y As Double 'значение суммы ряда
Dim summa As Double 'значение суммы ряда
Dim MaxIter As Integer 'допустипое число итераций
Dim flag As Boolean 'логическая переменная
Dim usl As Boolean 'логическая переменная
Dim number As String 'строка для проверки вводимого числа
Dim sign As String 'строка для проверки знака вводимого числа
Dim ry As Range 'область данных по y для построения графика
Dim rx As Range 'область данных по x для построения графика
Application.Visible = False 'делаем Excel невидимым
number = "0123456789,-" 'строка для проверки вводимого числа
sign = "-" 'строка для проверки знака вводимого числа
Private Sub CommandButton1_Click() 'Кнопка "Вычислить сумму"
If (TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "") Then
MsgBox ("Введены не все параметры")
'проверяем правильно ли введены данные(a= CDbl(TextBox2.Value)) Then
MsgBox ("Введены неправильно начало и конец отрезка")
'вычисление суммы и запись результатов
ListBox1.List(i, 1) = "Ряд расходится"
CommandButton1.Enabled = False 'делаем кнопку "Вычислить сумму" недоступной
Set ry = Sheets(ActiveSheet.Name).Range(Cells(1, 2), Cells(i, 2))
Set rx = Sheets(ActiveSheet.Name).Range(Cells(1, 1), Cells(i, 1))
ActiveChart.SetSourceData Source:=ry, PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=" & rx.Address(ReferenceStyle:=xlR1C1, external:=True)
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
ActiveChart.Export filename:=CurDir + "\Graf.gif", FilterName:="GIF"
Image1.Picture = LoadPicture(CurDir + "\Graf.gif") 'загружаем в Image1 файл с графиком
Private Sub CommandButton2_Click() 'Кнопка "Удалить данные"
TextBox1.Value = "" 'очищаем TextBox1
TextBox2.Value = "" 'очищаем TextBox2
TextBox3.Value = "" 'очищаем TextBox3
CommandButton1.Enabled = True 'делаем кнопку "Вычислить сумму" доступной
If MsgBox("Закрыть окно?", vbYesNo + vbQuestion, "Завершение работы") = vbYes Then
Public Function Sum(x As Double) As Double 'Функция вычисления суммы бесконечного ряда
Cn = Cn * (x * x / ((2 * n + 2) * (2 * n + 3)))
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Проверка вводимых символов
If InStr(number, Chr(KeyAscii)) = 0 Or (InStr(TextBox1.Text, ",") > 0 And Chr(KeyAscii) = ",") Or (TextBox1.SelStart > 0 And InStr(sign, Chr(KeyAscii)) > 0) Then
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Проверка вводимых символов
If InStr(number, Chr(KeyAscii)) = 0 Or (InStr(TextBox2.Text, ",") > 0 And Chr(KeyAscii) = ",") Or (TextBox2.SelStart > 0 And InStr(sign, Chr(KeyAscii)) > 0) Then
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Проверка вводимых символов
If InStr(number, Chr(KeyAscii)) = 0 Or (InStr(TextBox3.Text, ",") > 0 And Chr(KeyAscii) = ",") Or (TextBox3.SelStart > 0 And InStr(sign, Chr(KeyAscii)) > 0) Then
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Закрытие формы
Select Case MsgBox("Закрыть окно?", vbYesNo + vbQuestion, "Завершение работы")
Для тестирования программы возьмем следующие данные:
Рисунок 7. Пример ввода входных данных.
После нажатия кнопки «Вычислить сумму» мы получаем таблицу результатов, где для каждого значения аргумента рассчитано значение суммы ряда:
Целью данной курсовой работы была разработка программного модуля для вычисления приближенного значения бесконечной суммы с точностью до Е=0.05, если x принимает значения на отрезке [a,b] с шагом h..
Тестирование показало, что результаты, полученные разработанным программным модулем, соответствуют теоретическим расчётам. В программе присутствует обработка ошибок. При вводе ошибочные данные игнорируются, а при отсутствии введенных данных выдаётся сообщение об ошибке. Курсовая работа выполнена в полном объеме в соответствии с заданием.
1 Биллинг В.А. VBA и Office 2000. Офисное программирование. – М.: «Русская редакция», 1999.
2 Гарнаев Ю.А. Использование MS Excel и VBA в экономике и финансах. – СПб: БХВ – Санкт-Петербург, 2002.
3 Гарнаев Ю.А. самоучитель VBA. – СПб: БХВ – Санкт-Петербург, 2002.
4 Васильев А. VBA в Office 2000: учебный курс – СПб: Питер, 2002.
5 Кузьменков В.Г. VBA 2002. – М.: Издательство БИНОМ, 2002.
6 MS Office XP: Разработка приложений/Под ред. Ф.А.Новикова – СПб: БХВ – Санкт-Петербург, 2003.

Название: Проект программного модуля для нахождения приближенного значения бесконечной суммы
Раздел: Рефераты по информатике, программированию
Тип: курсовая работа
Добавлен 16:16:22 06 сентября 2010 Похожие работы
Просмотров: 181
Комментариев: 15
Оценило: 3 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Курсовая работа: Проект программного модуля для нахождения приближенного значения бесконечной суммы
Курсовая Работа На Тему Использование Технологий Росписи По Ткани В Педагогической Работе
Реферат по теме Професійні захворювання вчителя біології
Курсовая работа по теме Проект магистрального нефтепровода
Чего Можно Достичь При Помощи Забастовок Эссе
Курсовая работа по теме Експресіонізм як стильова домінанта у драматичній поемі 'Лісова пісня' Лесі Українки
Agatha mary clarissa
Курсовая работа: Работа с дисками. Скачать бесплатно и без регистрации
Конспекты лекций: Гражданское право зарубежный стран
Анализ Оборотных Активов Курсовая
Реферат: Ошибки бизнес-стратегий
Образцы Заполнения Отчетов По Практике
Автор Сочинения Под Названием Утопия
Как Писать Вывод В Сочинении По Литературе
Топик: Westminster Abbey
Курсовая работа: Оценка финансово-хозяйственной деятельности банка на примере ОАО "Банк ВТБ" в г. Якутске
Реферат: Загрязнение среды свинцом и здоровье населения. Скачать бесплатно и без регистрации
Курсовая работа по теме Денежные сбережения населения и их инвестиционный потенциал. Учет вкладов населения
Туберкулез Реферат Қазақша
Реферат по теме Банковский бизнес и автоматизация
Реферат: Внешняя политика России начала XX века. Скачать бесплатно и без регистрации
Реферат: Марс: красная планета
Реферат: Украинская православная церковь
Доклад: Теофиль-Александр Стейнлен