Размещено на http: //www. allbest. ru/

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

ЛИПЕЦКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

КАФЕДРА АВТОМАТИЗИРОВАННЫХ СИСТЕМ УПРАВЛЕНИЯ

Отчет по курсовой работе

по дисциплине

«Программирование на ЯВУ»

«Разработка программного комплекса решения математической задачи численными методами»

Студент Филатов А.А.

Группа АС-09-1

Принял

Ведищев В.В.

Липецк 2010

АННОТАЦИЯ

С.33.Ил.7.Библиогр.: 2назв.

Настоящий отчет является расчетно-пояснительной запиской по проделанной работе «Разработка программного комплекса решения математической задачи численными методами». Программный продукт реализует процесс решения системы линейных уравнений методом Гаусса.

Документ включает описание программы, описание применения, руководство программиста, описание контрольного примера, текст программы, а также блок-схему алгоритма. Содержание указанных разделов соответствует стандартам ЕСПД и СТД АСУ соответствующих наименований.

СОДЕРЖАНИЕ

• АННОТАЦИЯ
• ВВЕДЕНИЕ
• 1.ОПИСАНИЕ ПРОГРАММЫ
• 1.1 Общие сведения
• 1.2 Функциональное назначение
• 1.2.1 Классы решаемых задач
• 1.2.2 Функциональные ограничения
• 1.3 Описание логической структуры
• 1.3.1 Алгоритм используемого метода
• 1.3.2 Структура программы
• 1.4 Используемые технические средства
• 1.4.1 При разработке
• 1.4.2 Минимальные требования
• 1.5 Вызов и загрузка
• 1.6 Входные данные
• 1.7 Выходные данные
• 2. ОПИСАНИЕ ПРИМЕНЕНИЯ
• 2.1. Назначение программы
• 2.1.1 Назначение и возможности программы
• 2.1.2 Ограничения программы
• 2.2. Условия применения
• 2.3. Описание задачи
• 2.4. Входные данные
• 2.5 Выходные данные
• 3. РУКОВОДСТВО ПРОГРАММИСТА
• 3.1 Назначение и условия применения
• 3.1.1 Назначение программы
• 3.1.2 Условия применения программы
• 3.2 Характеристики программы
• 3.3 Обращение к программе
• 3.4 Входные и выходные данные
• 3.4.1 Входные данные
• 3.4.2 Выходные данные
• 3.5 Сообщения
• 4.ОПИСАНИЕ КОНТРОЛЬНОГО ПРИМЕРА
• 4.1 Назначение программы
• 4.2 Целью проведения испытаний
• 4.3 Требования, подлежащие проверке
• 4.4 Технические программные средства, используемые при вводе
• 4.5 Порядок проведения тестирования
• 4.6 Используемые методы тестирования
• 4.6.1 Проверка правильности решения системы линейных уравнений
• 4.6.2 Проверка поведения программы при заведомо неправильных входных данных
• 5. ТЕКСТ ПРОГРАММЫ
• 6. БЛОК-СХЕМА ПРОГРАММЫ
• 6.1 Блок-схема функции Resh(ByVal N As Integer)
• ЗАКЛЮЧЕНИЕ
• БИБЛИОГРАФИЧЕСКИЙ СПИСОК

ВВЕДЕНИЕ

Большинство вычислений в современном мире производится с помощью ПК. Существует большое количество численных методов и разнообразие их программной реализации в той или иной среде, начиная от специализированных математических пакетов, заканчивая многочисленными алгоритмическими языками.

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

Целью данной работы является освоение навыков программирования в визуальной среде, а также оформления документации к разработанному программному продукту в соответствии со стандартами ЕСПД и СТД АСУ.

1. ОПИСАНИЕ ПРОГРАММЫ

1.1 Общие сведения

Наименование программы: решение системы линейных уравнений методом Гаусса (Gauss.exe). Программа написана на объектно-ориентированном языке Visual Basic в среде разработки Microsoft Visual Studio версии 9.0. Программа выполнима в 32-битных версиях операционной системы Microsoft Windows, или, при наличии эмулятора в другой системе. Рекомендуемая операционная система - Windows XP.

1.2 Функциональное назначение

Настоящая программа предназначена для решения системы линейных уравнений, записанной в виде матрицы коэффициентов, стоящих при соответствующих переменных. Используется метод решения системы линейных уравнений методом Гаусса.

программный basic гаусс линейный

1.2.1 Классы решаемых задач

Нахождение решения системы линейных уравнений методом Гаусса.

1.2.2 Функциональные ограничения

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

1.3 Описание логической структуры

1.3.1 Алгоритм используемого метода

Pаключается в сведении системы уравнений вида:

a11x1 + a12x2 + … + a1nxn = b1

an1x1 + an2x2 + … + annxn = bn

к системе уравнений вида:

х1 = b1'

xn = bn'

Это достигается путем элементарных преобразований по алгоритму Гаусса:

1) Переставить строки и столбцы (при необходимости) так, чтобы в левом верхнем углу стоял наибольший по модулю элемент;

2) Разделить первую строку на элемент а11;

3) Умножая первую строку на элементы первого столбца и вычитая полученное из второй, третьей и т.д. строк, получаем столбец из единиц и нулей;

4) Делим вторую строку на новый элемент а22 и повторяем предыдущий пункт;

5) Так далее, пока не получим единицы по диагонали;

6) Числа, стоящие справа от знака равно, составят приблизительное решение системы;

7) Погрешность считается путем подстановки решения в исходную систему и сравнения между полученной левой и правой частями.

1.3.2 Структура программы

Программа состоит из трех основных окон, в каждом из которых пользователь может совершить выход из программы, вызвать справку, или информацию о программе.

В первом окне пользователь должен ввести количество уравнений в системе.

Во втором окне пользователь должен ввести данные решаемой системы.

После нажатия на кнопку решения системы программа проверяет исходные данные и, если они не допустимы, выдает диагностическое сообщение об ошибке.

В третьем окне пользователь получает результат работы программы, в виде значений переменных. Также выводится и погрешность вычислений.

Программа имеет связь с внешними программами. Так, для открытия справки о программе, она вызывает внешнюю программу IEXPLORE.exe и открывает справку в среде этой программы.

1.4 Используемые технические средства

1.4.1 При разработке

При написании программы был использован компьютер следующей конфигурации:

- процессор INTEL CORE QUAD Q6600 2,40 GHz;

- оперативная память DDR2 4 Gb;

- SVGA - графический адаптер;

- минимальный набор периферийного оборудования.

1.4.2 Минимальные требования

Для работы программы необходимо:

- IBM PC совместимый компьютер;

- 32-разрядная среда операционной системы;

- графическая оболочка ОС;

- обработчик hlp-файлов в системе;

- достаточный объем свободной оперативной памяти (около 10Мб при работе в Windows 7 с улучшенным оформлением окна);

- достаточное место на жестком, гибком, сетевом, оптическом или RAM-диске объемом около 200 Кб;

- устройства ввода информации (клавиатура и мышь);

- устройство вывода графической информации с видеоадаптера (монитор, проектор).

1.5 Вызов и загрузка

Для вызова программы необходимо запустить с помощью ОС файл Gauss.exe из текущей папки программы, в которой также должен находиться файл help.mht.

1.6 Входные данные

Коэффициенты при переменных в уравнениях. Данные быть введены в виде десятичной дроби со знаком или без (для отделения дробной части используется знак «,»), с экспонентой (Е или е) или без нее, а также в виде целого числа, которое в ходе программы преобразуется в вещественное.

1.7 Выходные данные

Коэффициенты при соответствующих переменных, а также погрешность на эти коэффициенты, которые могут быть выведены в виде десятичной дроби со знаком (выводится только знак «-», если он есть, знак «+» опускается) (для отделения дробной части используется знак «,»), с экспонентой (Е или е) или без нее, а также в виде целого числа.

2. ОПИСАНИЕ ПРИМЕНЕНИЯ

2.1 Назначение программы

2.1.1 Назначение и возможности программы

Данная программа предназначена для решения системы линейных уравнений методом Гаусса.

В условиях данной конфигурации скорость выполнения программы составляет не более 1 с, объем занимаемой памяти - не более 15 Мб.

2.1.2 Ограничения программы

Программа корректно выполняется только в случае, если задана система линейных линейно независимых уравнений без свободных переменных. Число уравнений не превышает 9.

2.2 Условия применения

Требования к необходимым для данной программы техническим средствам:

- IBM PC совместимый компьютер;

- 32-разрядная среда операционной системы;

- графическая оболочка ОС;

- обработчик mht-файлов в системе;

- достаточный объем свободной оперативной памяти (около 10Мб при работе в Windows XP с улучшенным оформлением окна);

- достаточное место на жестком, гибком, сетевом, оптическом или RAM-диске объемом около 200 Кб;

- устройства ввода информации (клавиатура и мышь);

- устройство вывода графической информации с видеоадаптера (монитор, проектор).

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

2.3 Описание задачи

Процесс разработки интерактивной прикладной программы, осуществляет решение определенной (без свободных переменных) системы линейных линейно независимых уравнений методом Гаусса.

Определение: линейным уравнением называется линейная комбинация вида:

C1x1 + C2x2 + … + Cnxn = b;

где Ci - некоторые коэффициенты при переменных;

xi - переменные первой степени;

b - свободный член.

Определение: линейно независимой системой уравнений называется система уравнений, в которой какое-либо уравнение не может быть линейной комбинацией других уравнений этой же системы.

Определение: определенной системой уравнений называется система уравнений, имеющая строго одно решение.

Метод Гаусса заключается в сведении системы уравнений вида:

a11x1 + a12x2 + … + a1nxn = b1

an1x1 + an2x2 + … + annxn = bn

к системе уравнений вида:

х1 = b1'

xn = bn'

Это достигается путем элементарных преобразований по алгоритму Гаусса:

1) Переставить строки и столбцы (при необходимости) так, чтобы в левом верхнем углу стоял наибольший по модулю элемент;

2) Разделить первую строку на элемент а11;

3) Умножая первую строку на элементы первого столбца и вычитая полученное из второй, третьей и т.д. строк, получаем столбец из единиц и нулей;

4) Делим вторую строку на новый элемент а22 и повторяем предыдущий пункт;

5) Так далее, пока не получим единицы по диагонали;

6) Числа, стоящие справа от знака равно, составят приблизительное решение системы;

7) Погрешность считается путем подстановки решения в исходную систему и сравнения между полученной левой и правой частями.

2.4 Входные данные

Коэффициенты при соответствующих переменных в соответствующих уравнениях. Данные быть введены в виде десятичной дроби со знаком или без (для отделения дробной части используется знак «,»), с экспонентой (Е или е) или без нее, а также в виде целого числа, которое в ходе программы преобразуется в вещественное.

2.5 Выходные данные

Решение - коэффициенты при соответствующих переменных, а также погрешность на эти коэффициенты, которые могут быть выведены в виде десятичной дроби со знаком (выводится только знак «-», если он есть, знак «+» опускается) (для отделения дробной части используется знак «,»), с экспонентой (Е) или без нее, а также в виде целого числа.

3. РУКОВОДСТВО ПРОГРАММИСТА

3.1 Назначение и условия применения

3.1.1 Назначение программы

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

Работу облегчает простой, элегантный и интуитивно понятный интерфейс. Автор стремился сделать программу дружественной к пользователю. Окна не насыщены графикой и ненужными элементами.

3.1.2 Условия применения программы

- IBM PC совместимый компьютер;

- 32-разрядная среда операционной системы;

- графическая оболочка ОС;

- обработчик mht-файлов в системе;

- достаточный объем свободной оперативной памяти (около 10Мб при работе в Windows XP с улучшенным оформлением окна);

- достаточное место на жестком, гибком, сетевом, оптическом или RAM-диске объемом около 200 Кб;

- устройства ввода информации (клавиатура и мышь);

- устройство вывода графической информации с видеоадаптера (монитор, проектор) с разрешением не менее 800х600 точек.

3.2 Характеристики программы

При тактовой частоте процессора 2400 МГц и оперативной памяти DDR2 время работы программы составляет не более 1 с.

При работе пользователя с программой в случае создания им неправильной ситуации выдается сообщение, поясняющее его действия. Проверка данных перед их использованием позволяет не допустить серьезных ошибок в программе.

3.3 Обращение к программе

Работа программы начинается с подачи пользователем ее двоичного кода операционной системе на выполнение (запуска файла Gauss.exe).

Данные в программе вводятся с клавиатуры, доступ к элементам управления возможен с помощью клавиатуры и мыши.

3.4 Входные и выходные данные.

3.4.1 Входные данные.

- коэффициенты при соответствующих переменных в соответствующих

уравнениях, числа вещественные в коде стандарта IBN PC для формата типа double.

3.4.2 Выходные данные.

- решение в виде коэффициентов при соответствующих переменных,

числа вещественные в коде стандарта IBN PC для формата типа double;

- погрешность в виде степени десяти, может использоваться:

1) число вещественное в коде стандарта IBN PC для формата типа double; 2) символьная информация в коде ASCI.

3.5 Сообщения

Сообщения, возникают на экране во время выполнения данной программы в случае четырех возможных ошибок:

1) Пользователь не ввел в какую-либо ячейку коэффициент при переменной:

«Неверный ввод данных. Введено не число, либо значение отсутствует»;

2) Введена система линейно зависимых уравнений: «Данная система линейных уравнений не имеет решения. Возможно, введенные уравнения зависимы.»;

3) Файл со справкой отсутствует в одной папке с программой: «Файл справки не найден».

4. ОПИСАНИЕ КОНТРОЛЬНОГО ПРИМЕРА

4.1 Назначение программы

Программа предназначена для решения системы линейных уравнений методом Гаусса. Программа имеет некоторые ограничения, которые необходимо учитывать пользователю при вводе тех или иных параметров. В любом случае параметры проверяются перед расчетом.

4.2 Целью проведения испытаний

Проверить правильность нахождения решения системы линейных уравнений методом Гаусса.

4.3 Требования, подлежащие проверке

- Правильность нахождения решения системы линейных уравнений;

- Верность выдаваемых сообщений об ошибке или предупредительных сообщений при наличии данных, некорректно введенных пользователем.

4.4 Технические программные средства, используемые при вводе

Технические средства: компьютер типа IBM PC, монитор, мышь и клавиатура.

Программные средства: операционная система Microsoft Windows 7 Ultimate и тестируемая программа.

4.5 Порядок проведения тестирования

- Ввести значения, соответствующие проверяемым требованиям;

- Отследить результаты работы программы;

- Сравнить полученные значения с ожидаемыми результатами.

4.6 Используемые методы тестирования

4.6.1 Проверка правильности решения системы линейных уравнений

Построим таблицу для ввода исходных данных 2х3:

Введем коэффициенты:

2 4 6

-4 2 7

3) Ожидаемое решение:

x1 = -0,8;

x2 = 1,9.

Рассчитаем:

4.6.2 Проверка поведения программы при заведомо неправильных входных данных

Пользователь не ввел в ячейку (2,2) коэффициент при переменной

Пользователь ввел в ячейку (1,2) данные, которые нельзя преобразовать в число:

3. Введена система линейно зависимых уравнений:

4. Файл со справкой отсутствует в одной папке с программой:

5. ТЕКСТ ПРОГРАММЫ

`/*Листинг формы ввода количества уравнений*/

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Hide()

InputData.Show()

End Sub

Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click

End

End Sub

Private Sub ОПрограммеToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОПрограммеToolStripMenuItem.Click

About.Show()

End Sub

Private Sub ВыходToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem1.Click

If My.Computer.FileSystem.FileExists("help.html") Then

If (Shell("explorer help.html", vbMaximizedFocus)) Then

End If

Else

ErrMsg(2)

End If

End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

End

End Sub

End Class

`/*Листинг формы ввода коэффициентов системы уравнений*/

Imports System.Math

Public Class InputData

Public N = Form1.Num.Value, Wwidth, Wheight As Integer

Public InputTex(N * (N + 1)), ResultX(N), MisCalcTex As TextBox

Public LabelX(N * N), ResultLabel(N), MisCalcLab As Label

Function Resh(ByVal N As Integer) As Boolean

Dim i, j, k, CoorY As Integer

Dim Matrix(N, N + 1), x(N), t, pogr, sumB As Double

For i = 0 To N - 1

For j = 0 To N

If (IsNumeric(InputTex(i * (N + 1) + j).Text)) Then

Matrix(i, j) = InputTex(i * (N + 1) + j).Text

Else

ErrMsg(0)

InputTex(i * (N + 1) + j).Focus()

Return False

End If

Next

Next

'MsgBox("" & Matrix(0, 0) & " " & Matrix(0, 1) & " " & Matrix(0, 2) & vbTab & Matrix(1, 0) & " " & Matrix(1, 1) & " " & Matrix(1, 2))

For j = 0 To N - 1

If Matrix(j, j) = 0 Then

k = j

While k < N - 1 And Matrix(k + 1, j) = 0

k = k + 1

End While

If Matrix(k + 1, j) <> 0 Then

For i = 0 To N

t = Matrix(j, i)

Matrix(j, i) = Matrix(k + 1, i)

Matrix(k + 1, i) = t

Next

Else

ErrMsg(1)

Return False

End If

End If

Next

For k = 0 To N - 2

For j = k + 1 To N - 1

If Matrix(k, k) <> 0 Then

t = Matrix(j, k) / Matrix(k, k)

For i = 0 To N

Matrix(j, i) = Matrix(k, i) * t - Matrix(j, i)

Next

Else

ErrMsg(1)

Return False

End If

x(j) = 0

Next

Next

For i = 0 To N - 1

For j = 0 To N

If (Matrix(i, i)) = 0 Then

ErrMsg(1)

Return False

End If

Next

Next

For j = N - 1 To 0 Step -1

t = Matrix(j, N)

For i = j + 1 To N - 1

t = t - Matrix(j, i) * x(i)

Next

x(j) = t / Matrix(j, j)

Next

CoorY = 50

For i = 1 To N

ResultX(i) = New TextBox

ResultX(i).Size = New Size(160, 20)

ResultX(i).Location = New Point(40, CoorY)

ResultX(i).Text = x(i - 1)

ResultX(i).ReadOnly = True

Result.Controls.Add(ResultX(i))

ResultLabel(i) = New Label

ResultLabel(i).Size = New Size(40, 20)

ResultLabel(i).Text = "X" & i & "="

ResultLabel(i).Location = New Point(10, CoorY + 2)

Result.Controls.Add(ResultLabel(i))

CoorY += 30

Next

pogr = 0

sumB = 0

For i = 0 To N - 1

For j = 0 To N

pogr += InputTex(i * (N + 1) + j).Text * x(j)

Next

sumB += InputTex(i * (N + 1) + j - 1).Text

Next

pogr = Abs(Abs(sumB) - Abs(pogr))

pogr = -Int(-Log10(pogr))

MisCalcLab = New Label

MisCalcLab.Text = "Погрешность: 10^"

MisCalcLab.Size = New Size(100, 20)

MisCalcLab.Location = New Point(10, CoorY + 2)

Result.Controls.Add(MisCalcLab)

MisCalcTex = New TextBox

MisCalcTex.Text = pogr

MisCalcTex.Size = New Size(85, 20)

MisCalcTex.Location = New Point(115, CoorY)

MisCalcTex.ReadOnly = True

Result.Controls.Add(MisCalcTex)

Result.Size = New Size(230, 120 + 30 * N)

Return True

End Function

Private Sub InputData_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim i, j, RazX, RazY As Integer

Dim InputL As New Label

Dim Button As New Button

RazY = 50

Wwidth = 80 + 60 * N

If (Wwidth < 220) Then

Wwidth = 220

End If

Wheight = 130 + 30 * N

Me.Size = New Size(Wwidth, Wheight)

InputL.Size = New Size(300, 15)

InputL.Text = "Введите коэффициенты системы:"

InputL.Location = New Point(20, 30)

Me.Controls.Add(InputL)

For i = 0 To N - 1

For j = 0 To N

RazX += 60

InputTex(i * (N + 1) + j) = New TextBox

InputTex(i * (N + 1) + j).Size = New Size(30, 20)

InputTex(i * (N + 1) + j).Location = New Point(RazX - 40, RazY)

Me.Controls.Add(InputTex(i * (N + 1) + j))

If j < N Then

LabelX(i * (N) + j) = New Label

LabelX(i * (N) + j).Text = "X" & (j + 1)

If j = N - 1 Then

LabelX(i * (N) + j).Text &= "="

Else

LabelX(i * (N) + j).Text &= "+"

End If

LabelX(i * (N) + j).Size = New Size(30, 15)

LabelX(i * (N) + j).Location = New Point(RazX - 10, RazY + 3)

Me.Controls.Add(LabelX(i * (N) + j))

End If

Next

RazX = 0

RazY = RazY + 30

Next

Me.Button.Text = "Решить систему"

Me.Button.Size = New Size(100, 30)

Me.Button.Location = New Point(Wwidth / 2 - 55, RazY)

End Sub

Private Sub Button_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click

If (Resh(N)) Then

Me.Hide()

Result.Show()

End If

End Sub

Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click

End

End Sub

Private Sub ОПрограммеToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОПрограммеToolStripMenuItem.Click

About.Show()

End Sub

Private Sub СправкаToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СправкаToolStripMenuItem1.Click

If My.Computer.FileSystem.FileExists("help.html") Then

If (Shell("explorer help.html", vbMaximizedFocus)) Then

End If

Else

ErrMsg(2)

End If

End Sub

Private Sub InputData_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

End

End Sub

End Class

`/*Листинг формы вывода результатов*/

Public Class Result

Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click

End

End Sub

Private Sub ОПрограммеToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОПрограммеToolStripMenuItem.Click

About.Show()

End Sub

Private Sub СправкаToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СправкаToolStripMenuItem.Click

If My.Computer.FileSystem.FileExists("help.html") Then

If (Shell("explorer help.html", vbMaximizedFocus)) Then

End If

Else

ErrMsg(2)

End If

End Sub

Private Sub Result_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

End

End Sub

End Class

`/*Листинг модуля с функцией вывода сообщений об ошибках*/

Module Module1

Function ErrMsg(ByVal Index As Integer) As Boolean

Dim ErrDesc(3) As String

ErrDesc(0) = "Неверный ввод данных. Введено не число, либо значение отсутствует"

ErrDesc(1) = "Данная система линейных уравнений не имеет решения. Возможно, введенные уравнения зависимы."

ErrDesc(2) = "Файл справки не найден"

MsgBox("Ошибка №" & Index + 1 & ": " & ErrDesc(Index), MsgBoxStyle.Information, "Ошибка")

End Function

End Module

6. БЛОК-СХЕМА ПРОГРАММЫ

6.1 Блок-схема функции Resh(ByVal N As Integer)



ЗАКЛЮЧЕНИЕ

Результатом выполнения курсовой работы является программа, позволяющая находить решение системы линейных линейно независимых уравнений без свободных переменных методом Гаусса.

Программный продукт обладает интерфейсом пользователя эстетичного внешнего вида с эргономичным расположением управляющих элементов, содержит систему меню, строго определяющую диалог пользователя с программой, систему помощи, позволяющую пользователю получить справку о текущем состоянии программы, вариантах продолжения работы и о математической основе происходящего. Также имеет место обработчик ошибок пользователя и выполнения с выдачей диагностического сообщения.

Автор стремился сделать программу дружественной к пользователю. Окна не насыщены графикой и ненужными элементами.

Также были написаны некоторые документы, соответствующие заданию кафедры, прилагающиеся к программному обеспечению в соответствии с ЕСПД и СТД АСУ.

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

1) С.Браун. Visual Basic 6: учебный курс /Пер. с англ. -- С-Пб.: "Питер", 1999. -- 576 с.

2) Дж.Крейг, Дж.Уэбб. Microsoft Visual Basic 6. Мастерская разработчика /Пер. с англ. -- М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd." 1999. - 5-е изд., испр. и доп. - 648 с.

Размещено на Allbest.ru