vb課程設(shè)計(jì)報(bào)告(直線擬合)

1、直線擬合 、功能 本題目重要是用于將實(shí)驗(yàn)中得到的具有線性特征的一組數(shù)據(jù)通過(guò)最小二乘法擬合成直 線，求出其直線方程和繪制出該直線的圖形。 、詳細(xì)設(shè)計(jì) 本題目的程序設(shè)計(jì)由三個(gè)窗體組成。 在 Form1 中，有 1 個(gè)框架控件、 1 個(gè)標(biāo)簽控件、 2 個(gè)命令按鈕和 1 個(gè)由 組成的控件數(shù)組。 單選按鈕控件數(shù)組用來(lái)選擇要輸入的數(shù)據(jù)組數(shù)， 當(dāng)選擇好后， 按鈕，就可以進(jìn)入下一個(gè)窗體。單擊“取消”按鈕則退出程序 Form1 的代碼見(jiàn) 附件 。 在 Form2 中有 2 個(gè)命令按鈕、 20 個(gè)文本框（每 10 個(gè)組成一個(gè)控件數(shù)組） 控件和許多直線組成。在文本框中輸入實(shí)驗(yàn)數(shù)據(jù)后，點(diǎn)擊“確定”按鈕，若數(shù)據(jù)沒(méi)有全部

2、輸 入，則出現(xiàn)消息框，提醒沒(méi)有完全輸入。若已經(jīng)完全輸入，則顯示 此同時(shí)，對(duì)實(shí)驗(yàn)數(shù)據(jù)計(jì)算，得出擬合直線的截距和斜率，并在 根據(jù)所得的斜率和截距得到擬合直線方程，并在 中繪出擬合直線和每個(gè)實(shí)驗(yàn)點(diǎn)（用綠色） Form2 的代碼見(jiàn) 附件 。 6 個(gè)單選按鈕 單擊“確定” 、12 個(gè)標(biāo)簽 Form3,隱藏 Form2。與 Form3 的標(biāo)簽控件 1 中體現(xiàn)； Form3 的標(biāo)簽 2 中體現(xiàn)；還可以在 Form3 ，根據(jù)實(shí)驗(yàn)數(shù)據(jù)調(diào)整坐標(biāo)系統(tǒng)，畫(huà)出擬合直線。 三、調(diào)試 VB6.0 ，遇到的第一個(gè)問(wèn)題是全局變量的設(shè)置問(wèn)題。 一開(kāi)始，我是在三樓上機(jī)，用的是 我不知道是我一個(gè)暑假把學(xué)的都忘了，最后終于在課本的幫助

3、下成功做出來(lái)了。 第二個(gè)問(wèn)題是顯示擬合直線。一開(kāi)始，我在 Form3 中畫(huà)了一個(gè)圖片框，運(yùn)行時(shí)總顯示 不了直線， 后來(lái)索性將它刪掉， 再次運(yùn)行時(shí)終于能出現(xiàn)直線， 可是直線的位置與設(shè)想相差太 大了。 連續(xù)嘗試了 1 個(gè)多星期后， 終于明白了， 原來(lái)我直接利用得到的直線方程的點(diǎn)的坐標(biāo) 在窗體上畫(huà)直線是不對(duì)的， 因?yàn)槲宜?huà)的坐標(biāo)軸的單位長(zhǎng)度和窗體的單位長(zhǎng)度不相等，之間 需要一定的轉(zhuǎn)換。于是再次修改代碼，可還是沒(méi)有出現(xiàn)預(yù)想的情況。重新檢查后，沒(méi)有發(fā)現(xiàn) 程序錯(cuò)誤。我又嘗試輸入一組特殊數(shù)據(jù)： （ 1， 3）、（2， 5）、（ 3 ， 7）、（ 4 ， 9）、（5， 11），它 們的擬合直線應(yīng)該是 Y=2X

4、+1, 斜率是 2，截距是 1，可運(yùn)行后的結(jié)果讓我大吃一驚，斜率是 -0.2，截距是 -0.1 。我再次檢查了數(shù)據(jù)計(jì)算部分的代碼，沒(méi)有發(fā)現(xiàn)錯(cuò)誤，請(qǐng)教了好幾位同學(xué) 也沒(méi)有解決問(wèn)題，如此又郁悶了一個(gè)星期。不知什么時(shí)候，心中有種感覺(jué)書(shū)上有錯(cuò)誤。 找來(lái)大學(xué)物理實(shí)驗(yàn)課本， 果不其然， 在第三十七頁(yè)找到類似的公式，經(jīng)計(jì)算，終于發(fā)現(xiàn)課程 m 設(shè)計(jì)課本上第 211頁(yè) “令 M （ X i） i1 m2 m Xi ”中的“ +”號(hào)應(yīng)改為“-”。修改后， 在調(diào)試過(guò)程中再也沒(méi)出現(xiàn)什么大的問(wèn)題。 四、輸入輸出數(shù)據(jù) 當(dāng)選擇 5 組數(shù)據(jù)時(shí)， I ：（ 54， 76）、（65，83）、（ 87，89）、（82，61）、（3

5、4， 22）； ：（34， 56）、（24，89）、 （29，59）、（78，61）、（94， 57）； m ：（58， 26）、（44，77）、 （55，89）、（67，65）、（76， 98）。 運(yùn)行結(jié)果： I ：截距 A=7.9171725 ，斜率 B=0.9041657 ，直線方程為 Y=0.9041657X+7.9171725 ， 坐標(biāo)比例 ：X 1 ：截距 A=74.72493 ，斜率 B=-0.199323 ，直線方程為 Y=74.7293X 0. 1 99323， 坐標(biāo) 比例：X 1 m ： 截距 A=41.1017 ，斜率 B=-0.4983051 ，直線方程為 Y=41.1

6、017X+0.4983051 ，坐 標(biāo)比例： X1 當(dāng)選擇 6 組數(shù)據(jù)時(shí)， I ：（ 54， 76）、（65，83）、（ 87，89）、（82，61）、（34， 22）、（44，88）； ：（34， 56）、（24，89）、 （29，59）、（78，61）、（94， 57）、（44，88）； m ：（58， 26）、（44，77）、 （55，89）、（67，65）、（76， 98）、（44，88）。 運(yùn)行結(jié)果： I ：截距 A=33.64924 ，斜率 B=0.5931818 ，直線方程為 Y=0.5931818X+33.64924 ，坐 標(biāo)比例： X1 ：截距 A=80.64387 ，斜率

7、B=-0.2735675 ，直線方程為 Y=-0.2735675X8+0.64387 ，坐 標(biāo)比例： X1 m ：截距 A=69.0728 ，斜率 B=8.381743E-02 ，直線方程為 Y=8.381743E-02X+69.0728 ， 坐標(biāo)比例：X 1 五、課程設(shè)計(jì)總結(jié) 經(jīng)過(guò)此次程序設(shè)計(jì)， 使我對(duì)許多事情的看法有了改變。記得上學(xué)期學(xué) VB 的時(shí)候， 感覺(jué) VB 很簡(jiǎn)單，老師布置的作業(yè)也很快完成，多余的時(shí)間就在偷偷玩游戲。剛知道自己要做直 線擬合這道題時(shí)，翻了一下書(shū)，感覺(jué)很簡(jiǎn)單，相比選擇難題的同學(xué)，我心中不免有些得意， 心想：快速做完后，再做一個(gè)，說(shuō)不定能得個(gè)優(yōu)。剛開(kāi)始事情就有點(diǎn)不順，但

8、也沒(méi)什么大問(wèn) 題，一直到寫(xiě)完所有程序， 開(kāi)始運(yùn)行的時(shí)候， 才發(fā)覺(jué)最糟糕的事情出現(xiàn)了運(yùn)行中沒(méi)有出 現(xiàn)擬合直線， 其他的問(wèn)題都好辦， 可最終顯示不出擬合直線就是失敗， 眼看著交作業(yè)的日子 越來(lái)越近， 心中卻一點(diǎn)思緒都沒(méi)有， 而此時(shí)我又在金工實(shí)習(xí)， 再加上二級(jí)考試的臨近， 我急 得像熱鍋上的螞蟻， 不知怎么辦才好。 此時(shí)， 我才真正體會(huì)到編寫(xiě)一個(gè)真正有用的程序是多 么的困難，那是要花上許多的心血才得來(lái)的。事情終于有了轉(zhuǎn)機(jī)， 在我棄用圖片框后終于發(fā) 現(xiàn)要顯示滿足要求的直線首先要進(jìn)行坐標(biāo)轉(zhuǎn)換，窗體是以緹為單位，而平面直角坐標(biāo)系以“1” 為單位，二者需要轉(zhuǎn)換。明白這一點(diǎn)之后，我終于能在窗體上顯示出直線了，

9、然而，并非我 所期望的直線。我于是假設(shè)直線斜率為2，截距為1，得到一組數(shù)據(jù)，將它們輸入Form2的 文本框中，結(jié)果發(fā)現(xiàn)得到的直線斜率和截距不是2和1,而是0.02和0.01左右小的數(shù)字， 我暈倒。檢查一便代碼后發(fā)覺(jué)與書(shū)上提供的公式相吻合，我沒(méi)有錯(cuò)，可程序的運(yùn)行結(jié)果卻如 此荒謬，難道注定我此次設(shè)計(jì)不合格，明年再來(lái)一次嗎？后來(lái)，我終于對(duì)書(shū)本產(chǎn)生懷疑，正 是這一懷疑給一切帶來(lái)了生機(jī)，我找出大學(xué)物理實(shí)驗(yàn)課本，找到相關(guān)內(nèi)容，終于發(fā)現(xiàn)程序設(shè) 計(jì)課本錯(cuò)了，一個(gè)減號(hào)被打印成加號(hào)。找到問(wèn)題所在后，一切便盡在掌握之中。 六、窗體圖示 星直線擬合 直線擬臺(tái)程序 請(qǐng)選擇數(shù)據(jù)組敎 4魁 r S鮑 r 6組 r q組 廣

10、T爼 廠1豳 確定 取消 區(qū) 直線擬合 縱鑼鑰管唄 r瀚定 冠直線擬合 七. 附件 Formi: Private Sub Command1_Click()顯示第二個(gè)窗體 Form1.Hide Form2.Show Form3.Hide zxnh = MsgBox(你必須完全輸入所選的項(xiàng)目! Spc(3); Y= & B & X+ & A 在坐標(biāo)圖上打印出點(diǎn)來(lái) 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 +

11、(3700 - 37 * A) / B T = 360 - 37 * A / B 將超出坐標(biāo)軸的線去掉 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 返回第一個(gè)窗體 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： 結(jié)束程序 Private Sub