繪制曲線并求定積分-vb課設(shè)(共12頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上沈 陽 航 空 航 天 大 學(xué) 課程設(shè)計 學(xué) 號29 班 級 姓 名 熊 俊指導(dǎo)教師 楊 煦2013年 6 月 24 日專心-專注-專業(yè)沈陽航空航天大學(xué)課程設(shè)計任務(wù)書學(xué)院：機電工程學(xué)院 專業(yè)：機械師及制造 班級： 學(xué)號：29 題目：繪制曲線并求定積分一、課程設(shè)計時間2013年6月17日6月21日（第17周），共計1周。二、課程設(shè)計內(nèi)容繪制曲線y=x3+1，并用“累計梯形面積”法求定積分 的值，要求所求區(qū)間的面積區(qū)域用藍色填充。用戶界面中的菜單(或命令按鈕)至少應(yīng)包括“輸入a和b的值”、“繪制曲線”、“求定積分”、“退出”4項。三、課程設(shè)計要求程序質(zhì)量：² 貫

2、徹事件驅(qū)動的程序設(shè)計思想。² 用戶界面友好，功能明確，操作方便；可以增加其它功能或修飾。² 代碼應(yīng)適當(dāng)縮進，并給出必要的注釋，以增強程序的可讀性。課程設(shè)計說明書：² 課設(shè)結(jié)束后，上交課程設(shè)計說明書和源程序。課程設(shè)計說明書的內(nèi)容參見提供的模板。四、指導(dǎo)教師和學(xué)生簽字指導(dǎo)教師：_ 學(xué)生簽名：_五、成績六、教師評語目 錄需求分析繪制曲線并求定積分，主要任務(wù)就是把y=x*x*x+1的曲線繪制出來與確定a、b的值后求定積分 的值并把這部分的面積用藍色填充要求：用戶界面中的菜單(或命令按鈕)至少應(yīng)包括“輸入a和b的值”、“繪制曲線”、“求定積分”、“退出”4項能夠打開程序點擊

3、繪制曲線就能把y=x*x*x+1的曲線顯示出來。輸入a、b的值點擊求定積分就能把值顯示并把所對應(yīng)的面積用藍色填充。藍色填充后原來的函數(shù)曲線保留。設(shè)計分析（1） 基本原理：“累計梯形面積”法求定積的值與用圖形操作技術(shù)繪制圖形與填充顏色。（2） 總體設(shè)計：填充顏色 計算定積分繪制曲線（3）詳細設(shè)計：開始設(shè)計界面繪制圖形輸入a、b的值填充所求區(qū)域求定積分結(jié)束關(guān)鍵技術(shù)1用"累計梯形面積"法求定積分Function fun#(x#) '函數(shù)過程 fun = x * x * x + 1End FunctionFunction jifen#(ByVal a#, ByVal b#,

4、 ByVal n&) '函數(shù)過程Dim sum#, s#, h#, x# '變量聲明 h = (b - a) / n '"累計梯形面積"法求定積分 For i = 0 To n - 1 x = a + i * h s = h * (fun(x) + fun(x + h) / 2 sum = sum + s Next ijifen = sum '面積總和賦值到j(luò)ifenEnd Function2繪制圖形Private Sub command1_click() Form1.Scale (-7.5, 10)-(7.5, -10) DrawW

5、idth = 2 '設(shè)置繪制的線寬 Line (-7.3, 0)-(7.3, 0): Line (0, 9.5)-(0, -9.5) CurrentX = 7.3: CurrentY = 0.2: Print "X" '標記X軸 CurrentX = 0.5: CurrentY = 9.3: Print "Y" '標記Y軸 For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i Next i For x = -7 To 7

6、Step 0.005 y = x * x * x + 1 PSet (x, y) Next xEnd Sub窗體-查詢：2填充所求區(qū)域For x = a To b Step 0.005 Form1.Line (x, 0)-(x, x * x * x + 1), vbBlue '用藍色直線填充積分面積區(qū)域 Next x窗體-查詢：總結(jié) 這次課設(shè)我的題目是繪制曲線并求定積分，通過這次課設(shè)讓我了解了VB與數(shù)學(xué)知識之間有很大的聯(lián)系，比如這個題目就要用數(shù)學(xué)中的累計面積法求定積分，讓我學(xué)到編寫程序要簡單易懂，但要達到效果。界面安排要得當(dāng)，達到美光。不然雜亂無章，自己也無法看懂，更談何給他人講解呢。

7、 在課設(shè)過程中，我遇到了重重困難，例如：在繪制圖形時，圖像不能顯示，界面過小不能顯示全部內(nèi)容，運行另一指令，把前面的圖像覆蓋了，而且缺少了左半部分，通過老師的指點和自己查閱資料，修改了部分程序，界面修改下合理化，最終順利的完成了任務(wù)。 同時我也了解了VB的出現(xiàn)是一場技術(shù)革命，它在生活中各個方面都能發(fā)揮巨大的作用，所以，學(xué)好VB是社會發(fā)展的需要。完整的源程序Private Sub Command2_Click()End End SubFunction fun#(x#) fun = x * x * x + 1End FunctionFunction jifen#(ByVal a#, ByVal b

8、#, ByVal n&) Dim sum#, s#, h#, x# h = (b - a) / n For i = 0 To n - 1 x = a + i * h s = h * (fun(x) + fun(x + h) / 2 sum = sum + s Next ijifen = sum End FunctionPrivate Sub Command3_Click() Dim a%, b% a = Val(Text1.Text) b = Val(Text2.Text) Text3.Text = jifen(a, b, 100) Form1.Scale (-7.5, 10)-(7.

9、5, -10) Line (-7.3, 0)-(7.3, 0): Line (0, 9.5)-(0, -9.5) For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i Next i For x = -7 To 7 Step 0.005 y = x * x * x + 1 PSet (x, y) Next x For x = a To b Step 0.005 Form1.Line (x, 0)-(x, x * x * x + 1), vbBlue Next xEnd SubPrivat

10、e Sub command1_click() Form1.Scale (-7.5, 10)-(7.5, -10) DrawWidth = 2 Line (-7.3, 0)-(7.3, 0): Line (0, 9.5)-(0, -9.5) CurrentX = 7.3: CurrentY = 0.2: Print "X" CurrentX = 0.5: CurrentY = 9.3: Print "Y" For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i Next i For x = -7 To 7 Step 0.005 y = x * x * x + 1 PSet (x, y) Next xEnd Sub參考文