vb课程设计报告(直线拟合)

直线拟合 一 功能 本题目重要是用于将实验中得到的具有线性特征的一组数据通过最小二乘法拟合成直 线 求出其直线方程和绘制出该直线的图形 二 详细设计 本题目的程序设计由三个窗体组成 在Form1中 有 1 个框架控件 1 个标签控件 2 个命令按钮和 1 个由 6 个单选按钮 组成的控件数组 单选按钮控件数组用来选择要输入的数据组数 当选择好后 单击 确 定 按钮 就可以进入下一个窗体 单击 取消 按钮则退出程序 Form1 的代码见附件附件 在Form2中有 2 个命令按钮 20 个文本框 每 10 个组成一个控件数组 12 个标签 控件和许多直线组成 在文本框中输入实验数据后 点击 确定 按钮 若数据没有全部 输入 则出现消息框 提醒没有完全输入 若已经完全输入 则显示 Form3 隐藏 Form2 与此同时 对实验数据计算 得出拟合直线的截距和斜率 并在 Form3 的标签控件 1 中体 现 根据所得的斜率和截距得到拟合直线方程 并在 Form3 的标签 2 中体现 还可以在 Form3 中绘出拟合直线和每个实验点 用绿色 根据实验数据调整坐标系统 画出拟合直 线 Form2 的代码见附件附件 三 调试 一开始 我是在三楼上机 用的是 VB6 0 遇到的第一个问题是全局变量的设置问题 我不知道是我一个暑假把学的都忘了 最后终于在课本的帮助下成功做出来了 第二个问题是显示拟合直线 一开始 我在 Form3 中画了一个图片框 运行时总显示 不了直线 后来索性将它删掉 再次运行时终于能出现直线 可是直线的位置与设想相差 太大了 连续尝试了 1 个多星期后 终于明白了 原来我直接利用得到的直线方程的点的 坐标在窗体上画直线是不对的 因为我所画的坐标轴的单位长度和窗体的单位长度不相等 之间需要一定的转换 于是再次修改代码 可还是没有出现预想的情况 重新检查后 没 有发现程序错误 我又尝试输入一组特殊数据 1 3 2 5 3 7 4 9 5 11 它们的拟合直线应该是 Y 2X 1 斜率是 2 截距是 1 可运行后的结果让我大 吃一惊 斜率是 0 2 截距是 0 1 我再次检查了数据计算部分的代码 没有发现错误 请 教了好几位同学也没有解决问题 如此又郁闷了一个星期 不知什么时候 心中有种感觉 书上有错误 找来大学物理实验课本 果不其然 在第三十七页找到类似的公式 经 计算 终于发现课程设计课本上第 211 页 令 中的 m i iXX m m i i M 1 2 2 1 号应改为 修改后 在调试过程中再也没出现什么大的问题 四 输入输出数据 当选择 5 组数据时 54 76 65 83 87 89 82 61 34 22 34 56 24 89 29 59 78 61 94 57 58 26 44 77 55 89 67 65 76 98 运行结果 截距 A 7 9171725 斜率 B 0 9041657 直线方程为 Y 0 9041657X 7 9171725 坐标比例 1 截距 A 74 72493 斜率 B 0 199323 直线方程为 Y 74 7293X 0 199323 坐 标比例 1 截距 A 41 1017 斜率 B 0 4983051 直线方程为 Y 41 1017X 0 4983051 坐 标比例 1 当选择 6 组数据时 54 76 65 83 87 89 82 61 34 22 44 88 34 56 24 89 29 59 78 61 94 57 44 88 58 26 44 77 55 89 67 65 76 98 44 88 运行结果 截距 A 33 64924 斜率 B 0 5931818 直线方程为 Y 0 5931818X 33 64924 坐 标比例 1 截距 A 80 64387 斜率 B 0 2735675 直线方程为 Y 0 2735675X8 0 64387 坐标比例 1 截距 A 69 0728 斜率 B 8 381743E 02 直线方程为 Y 8 381743E 02X 69 0728 坐标比例 1 五 课程设计总结 经过此次程序设计 使我对许多事情的看法有了改变 记得上学期学 VB 的时候 感 觉 VB 很简单 老师布置的作业也很快完成 多余的时间就在偷偷玩游戏 刚知道自己要 做直线拟合这道题时 翻了一下书 感觉很简单 相比选择难题的同学 我心中不免有些 得意 心想 快速做完后 再做一个 说不定能得个优 刚开始事情就有点不顺 但也没 什么大问题 一直到写完所有程序 开始运行的时候 才发觉最糟糕的事情出现了 运 行中没有出现拟合直线 其他的问题都好办 可最终显示不出拟合直线就是失败 眼看着 交作业的日子越来越近 心中却一点思绪都没有 而此时我又在金工实习 再加上二级考 试的临近 我急得像热锅上的蚂蚁 不知怎么办才好 此时 我才真正体会到编写一个真 正有用的程序是多么的困难 那是要花上许多的心血才得来的 事情终于有了转机 在我 弃用图片框后终于发现要显示满足要求的直线首先要进行坐标转换 窗体是以缇为单位 而平面直角坐标系以 1 为单位 二者需要转换 明白这一点之后 我终于能在窗体上显 示出直线了 然而 并非我所期望的直线 我于是假设直线斜率为 2 截距为 1 得到一组 数据 将它们输入 Form2 的文本框中 结果发现得到的直线斜率和截距不是 2 和 1 而是 0 02 和 0 01 左右小的数字 我晕倒 检查一便代码后发觉与书上提供的公式相吻合 我没 有错 可程序的运行结果却如此荒谬 难道注定我此次设计不合格 明年再来一次吗 后 来 我终于对书本产生怀疑 正是这一怀疑给一切带来了生机 我找出大学物理实验课本 找到相关内容 终于发现程序设计课本错了 一个减号被打印成加号 找到问题所在后 一切便尽在掌握之中 六 窗体图示 七 附件 Form1 Private Sub Command1 Click 显示第二个窗体 Form1 Hide Form2 Show Form3 Hide zxnh MsgBox 你必须完全输入所选的项目 Spc 3 Y B X A 在坐标图上打印出点来 For n 1 To m Form3 PSet 360 37 X n 5400 37 Y n RGB 0 0 0 Next W 5400 3700 B 37 A R 360 3700 37 A B T 360 37 A B 将超出坐标轴的线去掉 If A 0 Then Form3 Line 360 5400 37 A 4060 W If W 5400 And B 0 Then Form3 Line T 5400 4060 W H8000000F Else Form3 Line 360 5400 37 A B 5400 4060 W If W 5400 And B 0 Then Form3 Line T 5400 4060 W H8000000F End If End Sub 返回第一个窗体 Private Sub Command2 Click Form1 Show Form2 Hide Form3 Hide For n 1 To m Text1 n Text Text2 n Text Next End Sub Form 3 结束程序 Private Sub Command1 C