Создание программных продуктов для обработки экспериментальных данных

ВВЕДЕНИЕ 7
1 ЦЕЛИ И ЗАДАЧИ РАБОТЫ 8
2 ОСНОВНАЯ ЧАСТЬ 8
2.1.Разработка програмного продукта 8
2.1.1 Разработка интерфейса программы 8
2.1.2 Свойства и расположение обектов 10
2.1.3 Алгоритм 18
2.1.4 Текст программы 26
2.2 Решение в Excel 36
2.3 Решение в MathCad 37
Выводы по работе 39
Список использованных источников 40

Handled = TrueElse e.KeyChar = "," End If End If 'Разрешаем BACKSPACE(удаление) ElseIf Asc(c) = 8 ThenElse 'Запрещаем вводить все остальные символыe.Handled = True End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim min, max As Double Dim s, s1, s2 As String Dim k, f1, f2 As Integer Dim t(ListBox1.Items.Count) As Double Dim y(ListBox1.Items.Count) As Double Dim sigma(ListBox1.Items.Count) As Double Dim yrasch(ListBox1.Items.Count) As Double'Блокируем кнопки "удалить" "добавить" и "упорядочить" пока идет расчет коэффициентовButton1.Enabled = False Button3.Enabled = False Button4.Enabled = False 'Очищаем ListBox2.Items.Clear() ListBox3.Items.Clear() ' заполняеммассивы For i = 0 To ListBox1.Items.Count - 1'выделяем из стороки листбокса нужные нам значения s = ListBox1.Items(i) 'присваиваем переменной с значение элемента листбокса k = Len(s) 'присваиваем переменной k значение длинны строкиFor j = 0 To k - 1 If s(j) = ";" Then 'еслисимволстроки ; s1 = Mid(s, 1, j - 1) s2 = Mid(s, j + 2, k) t(i) = Convert.ToDouble(s1) y(i) = Convert.ToDouble(s2) 'MessageBox.Show(s1, "fghfgh") Exit For End If Next Next 'Расчитаем a и b ab(t, y, ListBox1.Items.Count) 'Посчитаем yрасчипогрешность For i = 0 To ListBox1.Items.Count - 1 yrasch(i) = yr(a, b, t(i)) sigma(i) = (Math.Abs(y(i) - yrasch(i))) / y(i)Next 'Найдем максимальную и минимальную погрешность выведем значения yрасч и сигмаmin = sigma(0) max = sigma(0) For i = 0 To ListBox1.Items.Count - 1 If min > sigma(i) Then min = sigma(i) f1 = i End If If max < sigma(i) Then max = sigma(i) f2 = i End If ListBox2.Items.Add(yrasch(i)) ListBox3.Items.Add(sigma(i))Next 'Выводим минимальную и максимальную погрешностьLabel16.Text = min Label17.Text = max'строим график для у Chart1.Series.Clear() 'удаляем все старые графики Chart1.Legends.Clear() 'удаляем легенду Chart1.Series.Add("y") 'добавляем новый график Chart1.Series("y").ChartType = DataVisualization.Charting.SeriesChartType.Point 'выбираемтипграфикаChart1.Series("y").Color = Color.Red 'Устанавливаем цвет линии (в нашем случае точки)Chart1.ChartAreas("ChartArea1").AxisX.IsMarginVisible = False ' убираемотступпооси X ' рисуемграфик For i = 0 To ListBox1.Items.Count - 1 Chart1.Series("y").Points.AddXY(t(i), y(i)) Next 'Строимграфикдляурасч Chart1.Series.Add("yrasch") 'добавляемновыйграфик Chart1.Series("yrasch").ChartType = DataVisualization.Charting.SeriesChartType.Spline 'устанавливаемеготип Chart1.Series("yrasch").Color = Color.Black 'Устанавливаемцветлинии ' рисуемграфик For i = 0 To ListBox1.Items.Count - 1 Chart1.Series("yrasch").Points.AddXY(t(i), yrasch(i)) Next 'разблокируемкнопки Button1.Enabled = True Button3.Enabled = True Button4.Enabled = True End SubPublic Sub sort(ByVal tt() As Double, ByVal yy() As Double, ByVal n As Integer) Dim buffs As String Dim buff As Double For j = 1 To n - 1 For i = 1 To n - 1 If tt(i) < tt(i - 1) Then buff = tt(i) buffs = ListBox1.Items(i) tt(i) = tt(i - 1) ListBox1.Items(i) = ListBox1.Items(i - 1) tt(i - 1) = buff ListBox1.Items(i - 1) = buffs End If Next Next End Sub Public Sub ab(ByVal tt() As Double, ByVal yy() As Double, ByVal n As Integer) Dim stv2, st, sy, sty As Double'Расчитаем суммы stv2 = 0 st = 0 sy = 0For i = 0 To n - 1 stv2 = stv2 + tt(i) ^ 2 st = st + tt(i) sy = sy + yy(i) sty = sty + tt(i) * yy(i)Next ' Посчитаем коэфициенты а и ba = (sy * stv2 - sty * st) / (n * stv2 - st ^ 2) b = (n * sty - st * sy) / (n * stv2 - st ^ 2) 'Выводим a и b Label6.Text = a Label18.Text = b End Sub Public Function yr(ByVal x As Double, ByVal z As Double, ByVal tt As Double) Dim yras As Double yras = x + z * tt Return yras End Function Friend WithEvents ListBox2 As System.Windows.Forms.ListBox Friend WithEvents ListBox3 As System.Windows.Forms.ListBox Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents Label12 As System.Windows.Forms.Label Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadChart1.Series.Clear() 'удаляем все старые графикиChart1.Legends.Clear() 'удаляемлегенду End Sub ' 'Экспортв ExcelPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click SaveFileDialog1.Filter = "xls files (*.xls)|*.xls|All files (*.*)|*.*" SaveFileDialog1.ShowDialog() End Sub Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk Dim oExcel As Object Dim oBook As Object Dim oSheet As Object Dim sa, sb, sd, sc, c, s, s1, s2 As String Dim k As Integer Dim t(ListBox1.Items.Count) As Double Dim y(ListBox1.Items.Count) As Double 'Открытьновуюкнигу Excel oExcel = CreateObject("Excel.Application")oBook = oExcel.Workbooks.Add 'Добавить заголовки в строку 1oSheet = oBook.Worksheets(1) oSheet.Range("A1").Value = "T" oSheet.Range("B1").Value = "y" oSheet.Range("C1").Value = "Yрасч" oSheet.Range("D1").Value = "Точность"oSheet.Range("F1").Value = "Максимальная точность"oSheet.Range("F2").Value = Label16.TextoSheet.Range("G1").Value = "Минимальная точность"oSheet.Range("G2").Value = Label17.Text oSheet.Range("I1").Value = "a" oSheet.Range("H1").Value = "b" oSheet.Range("I2").Value = Label6.Text oSheet.Range("H2").Value = Label18.Text For i = 0 To ListBox1.Items.Count - 1'выделяем из стороки листбокса нужные нам значения s = ListBox1.Items(i) 'присваиваем переменной с значение элемента листбокса k = Len(s) 'присваиваем переменной k значение длинны строкиFor j = 0 To k - 1 If s(j) = ";" Then 'еслисимволстроки ; s1 = Mid(s, 1, j - 1) s2 = Mid(s, j + 2, k) t(i) = Convert.ToDouble(s1) y(i) = Convert.ToDouble(s2) 'MessageBox.Show(s1, "fghfgh") Exit ForEnd If Next Next 'Передаем значения в ячейкиFor i = 0 To ListBox2.Items.Count - 1 c = Convert.ToString(i + 2) sa = "A" + c sb = "B" + c sc = "C" + c sd = "D" + c oSheet.Range(sc).Value = ListBox2.Items(i) oSheet.Range(sd).Value = ListBox3.Items(i) oSheet.Range(sa).Value = t(i) oSheet.Range(sb).Value = y(i)Next 'Сохранить книгу и закрыть ExceloBook.SaveAs(SaveFileDialog1.FileName) 'SaveFileDialog1.DereferenceLinksoExcel.Quit() End SubEnd Class2.2 Ренение в ExcelВтабличномпроцессореExcelзадача решается с помощью встроенного редактора функций. На рисунке 9 представлено решение данной задачи. На рисунке 10 график зависимости у от Tи yрассчитанное от T построенный в Excel.Рис.9 Решение в ExcelРис 10. Графики зависимостейпостроенные в Excel2.3 Решение в MathCadРис.11 Решение в MathCad Выводы по работеВ ходе проделанной работы былразработан программный продукт для обработки экспериментальных данных. Были построены графические зависимости экспериментальных и расчетных значений от T для их сравнения. Произведены расчеты в Exсelи MathCAD.Получены практические навыки программирования на VisualBasic, работы в Excelи MathCad.Excel и MathCADи разработанная мной программа показали одинаковые в пределах погрешности результаты.Список использованных источников1.Сафронов,И.К.Visual Basic в задачах и примерах / И. К. Сафронов. – СПБ. :БХВ-Петербург, 2008 - 401 с.2.Зиборов,В. В.Visual Basic 2010 на примерах./В. В. .Зиборов. -СПБ. :БХВ-Петербург, 2010 - 336 с.3.КенХайнс , ПаскальПаре , ПатрисПелланд.Переходк Microsoft Visual Studio 2010/КенХайнс , ПаскальПаре , ПатрисПелланд - Microsoft Press A Division of Microsoft Corporation One Microsoft Way Redmond, Washington 98052-6399, 2011 -256c.