計算機應(yīng)用基礎(chǔ)課程設(shè)計程序

1、 計算機應(yīng)用基礎(chǔ)課程設(shè)計課程設(shè)計說明書課 程 名 稱: 計算機應(yīng)用基礎(chǔ)課程設(shè)計 課 程 代 碼: 6011339 題 目: 年級/專業(yè)/班: 學(xué) 生 姓 名: 學(xué) 號: 開 始 時 間: 2013 年 2 月 20日（根據(jù)自己的課表填寫?。┩?成 時 間: 2013 年 3 月 2 日課程設(shè)計成績：學(xué)習(xí)態(tài)度及平時成績（30）技術(shù)水平與實際能力（20）創(chuàng)新（5）說明書（計算書、圖紙、分析報告）撰寫質(zhì)量（45）總 分（100）指導(dǎo)教師簽名： 年 月 日 目 錄 （小三黑體，居中）摘要21 引言31.1問題的提出31.2任務(wù)與分析32 設(shè)計方案42.1程序功能設(shè)計42.1.1程序功能描述42.1.2

2、程序功能結(jié)構(gòu)分析42.2程序界面和代碼設(shè)計62.2.1工程設(shè)計框架62.2.2各界面及代碼設(shè)計6 3 結(jié)果分析 15結(jié)論 19致謝 20參考文獻 21（段落行距為1.5倍行距，未具體指明使用字體的均為小四宋體，以下同） 摘 要 （小三楷體_GB2312加黑，居中）隨著計算機的普及，計算機高級語言已經(jīng)運用到生活中的各個方面，本次課程設(shè)計使用vb語言作為開發(fā)工具，進行了物體沿曲線運動的程序設(shè)計，該程序能實現(xiàn)物體沿曲線運動功能，計算結(jié)果簡單明了，運行界面清晰實用，操作方便，易于實際處理。（小四楷體_GB2312）關(guān)鍵詞： 動態(tài) 曲線 繪制 （小四楷體_GB2312）1 引 言 （小三黑體）隨著科學(xué)技

3、術(shù)的發(fā)展，計算機已經(jīng)應(yīng)用到生活、工作的各個方面。VB一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的高級程序設(shè)計語言，可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序。本次課程設(shè)計主要內(nèi)容就是使用VB編制簡單、實用的小程序，以鞏固我們所學(xué)的計算機VB語言知識，提高分析問題和解決問題的能力，鍛煉我們獨立動手的能力。1.1 問題的提出 （四號黑體）傳統(tǒng)的物體沿曲線運動的設(shè)計效率低。使用vb操作的設(shè)計能很好的解決這個問題。1.2任務(wù)與分析 （四號黑體）本次課程設(shè)計的題目是“物體沿曲線運動的程序設(shè)計”，主要內(nèi)容是合理使用VB中的隨機文件操作，設(shè)計一些簡單的曲線，實現(xiàn)物體沿該曲線運動的功能。2 設(shè)計方案 （一級標

4、題小三黑體）首先根據(jù)題目要求設(shè)計合理界面，確定哪些控件會用到，要考慮到操作的方便性和美觀性。再按題目的功能要求編寫對象的事件代碼，并其逐一進行調(diào)試和修改。（內(nèi)容為小四宋體，不加粗）2.1程序功能設(shè)計 （四號黑體）2.1.1程序功能描述 （小四號黑體，）根據(jù)設(shè)計要求，程序要達到的功能如下： （1）、用簡單函數(shù)畫出曲線圖； （2）、書寫合適的代碼實現(xiàn)物體沿曲線運動（內(nèi)容為小四宋體，不加粗）2.1.2程序功能結(jié)構(gòu)分析（小四號黑體）根據(jù)上面對系統(tǒng)功能的描述，構(gòu)建出系統(tǒng)的總體功能結(jié)構(gòu)圖，如圖1所示。（注意：所有的圖形都應(yīng)該在圖的正下方標注編號?。?.2程序界面和代碼設(shè)計 （四號黑體）2.2.1工程設(shè)計框

5、架對工程的整體布局。設(shè)計一個窗體，一個模塊，一個工程文件名，各窗體文件名，即你設(shè)計的工程資源管理器窗口，如圖3所示。2.2.2 各界面及代碼設(shè)計（1）歡迎界面歡迎界面如圖4所示。歡迎界面主要代碼如下：（2）主界面一如圖5所示。主界面一主要代碼如下：通用部分的代碼如下：Dim x1, x2, y1, y2 坐標系統(tǒng)的左上角、右下角參數(shù)Dim ZhengXian As Boolean 繪制正弦的標記變量Dim PaoWuXian As Boolean 繪制拋物線的標記變量Dim Xzheng, Xpao Timer事件過程中,兩條曲線的自變量Const Pi As Single = 3.14159

6、26Dim Paobc As Single 繪制拋物線的步長值Private Sub ABOUT_Click()MsgBox (Distort By HuBo.)End Sub 循跡運動Command10_的代碼Private Sub Command10_Click() 循跡Timer1.Enabled = TrueShape2.Visible = TrueTimer1.Interval = 10End Sub停止循跡Command7的代碼Private Sub Command7_Click()Timer1.Enabled = Not Timer1.EnabledIf Command7.Cap

7、tion = 停止循跡 Then Command7.Caption = 繼續(xù)循跡 Exit SubEnd IfIf Command7.Caption = 繼續(xù)循跡 Then Command7.Caption = 停止循跡 Exit SubEnd IfEnd SubForm下的代碼：Private Sub Form_Load()Timer1.Enabled = FalseShape1.Visible = FalseShape2.Visible = FalseXzheng = -360 Timer事件過程中,動態(tài)繪制時,正弦曲線自變量的初始值Xpao = -5 Timer事件過程中,動態(tài)繪制時,拋

8、物線方程自變量的初始值Paobc = 0.01End SubPrivate Sub Command1_Click() 定制正弦曲線坐標系統(tǒng)Shape2.Visible = FalsePicture1.Clsx1 = -360: x2 = 360y1 = 2: y2 = -2Picture1.Scale (x1, y1)-(x2, y2) 定制正弦曲線坐標系統(tǒng)Call zhenxianzuobiaoxitong 調(diào)用繪制正弦坐標系統(tǒng)Timer1.Enabled = False 關(guān)閉計時器Timer1.Interval = 1 設(shè)置計時器時間間隔Xzheng = -360: Xpao = -5 兩

9、條曲線的自變量歸為初始值Picture1.DrawWidth = 3For X = Xzheng To 360 Step 1 Y = Sin(X / 180 * Pi) Picture1.PSet (X, Y), vbRedNext XZhengXian = True 繪制正弦為真PaoWuXian = False 此時繪制拋物線為假End SubSub zhenxianzuobiaoxitong() 繪制正弦坐標系統(tǒng)Picture1.ClsPicture1.Line (-360, 0)-(360, 0) 畫X坐標軸Picture1.Line (0, -2 * 5)-(0, 2 * 5) 畫Y

10、坐標軸For i = -360 To 360 Step 90 畫X坐標軸刻度線 Picture1.Line (i, 0)-(i, 0.1)Next iFor i = -2 To 2 Step 1 畫Y坐標軸刻度線 Picture1.Line (0, i)-(10, i)Next iFor i = -360 To 360 Step 90 打印X坐標軸刻度值 Picture1.CurrentX = i Picture1.CurrentY = -0.2 Picture1.Print iNext iFor i = -2 To 2 Step 1 打印Y坐標軸刻度值 Picture1.CurrentX =

11、 5 Picture1.CurrentY = i If i 0 Then Picture1.Print iNext iEnd Sub拋物線Command3_的代碼：Private Sub Command3_Click()Timer1.Enabled = FalseShape2.Visible = Falsex1 = -5: y1 = 100x2 = 5: y2 = -5Picture1.ClsPicture1.Scale (-5, 100)-(5, -5)Picture1.Line (-5, 0)-(5, 0)Picture1.Line (0, 100)-(0, 0)For i = -5 To

12、 5 Step 1 Picture1.Line (i, 0)-(i, 2)Next iFor i = 0 To 100 Step 20 Picture1.Line (0, i)-(0.1, i)Next iFor i = -5 To 5 Step 1 Picture1.CurrentX = i Picture1.CurrentY = -0.2 Picture1.Print iNext iFor i = 20 To 100 Step 20 Picture1.CurrentX = -0.5 Picture1.CurrentY = i Picture1.Print iNext iXzheng = -

13、360: Xpao = -5 兩條曲線的自變量歸為初始值 For X = Xpao To 5 Step 0.01 Y = 2 * X 2 + 5 Picture1.DrawWidth = 2 Picture1.PSet (X, Y), vbBlueNext XZhengXian = FalsePaoWuXian = TrueEnd SubPrivate Sub Command9_Click() 精確讀數(shù)Shape1.Visible = TrueX = Val(Text1.Text)Shape1.Left = XIf ZhengXian = True Then Y = Sin(X / 180 *

14、 3.1415926)If PaoWuXian = True ThenY = 2 * X 2 + 5 請獨立完善此段程序！End IfY = Round(Y, 4)Text2.Text = YEnd SubPicture1下的代碼：Private Sub Picture1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single) 粗略讀數(shù)Shape1.Visible = TrueShape1.Left = XIf ZhengXian = True Then Y = Sin(X / 180 * 3.14159

15、26)End IfIf PaoWuXian = True Then Y = 2 * X 2 + 5End IfText1.Text = Format(X, #.00)Text2.Text = Format(Y, #.00)End SubPrivate Sub Timer1_Timer() 循跡If ZhengXian = True Then 繪制正弦曲線 Shape2.Visible = False Picture1.Cls Call zhenxianzuobiaoxitong 調(diào)用繪制正弦坐標系統(tǒng) Picture1.DrawWidth = 3 For X = -360 To 360 Step

16、 1 Y = Sin(X / 180 * Pi) Picture1.PSet (X, Y), vbRed Next X Xzheng = Xzheng + 1 X = Xzheng If X 360 Then Timer1.Enabled = False: Xzheng = 0 Y = Sin(X / 180 * Pi) Picture1.DrawWidth = 3 Picture1.FillStyle = 0 Picture1.FillColor = vbBlue Picture1.Circle (X, Y), 15, vbBlue End IfIf PaoWuXian = True The

17、n 繪制拋物線 Xpao = Xpao + Paobc X = Xpao If X = 5 Then Xpao = 5: Paobc = -Paobc End If If X -5 Then Xpao = -5: Paobc = -Paobc End If Y = 2 * X 2 + 5 Shape2.Move X - Shape2.Width / 2, Y + Shape2.Height / 2End IfEnd SubPrivate Sub TUICHU_Click()EndEnd Sub3 結(jié)果分析 （一級標題小三黑體）單擊“正弦”，運行結(jié)果如下圖： 圖1，正弦圖單擊“拋物線”，運行結(jié)果如下圖： 圖2，拋物線圖單擊“循跡運動”，運行結(jié)果如下圖： 圖3，正弦函數(shù)下的運動 圖4，拋物線下的運動單擊“停止循跡”，運行結(jié)果如下圖： 圖5，正弦運動下的停止運動 圖6，拋物線運動下的停止運動 結(jié) 論 （小三黑體，居中） 通過本次課程設(shè)計，鞏固了VB語言知識，提高了綜合運用所學(xué)知識解決實際問題的能力。 致 謝 （小三黑體，居中）這次能夠順利的完成這次課程設(shè)計，首先我要感謝教會我用VB語言的老師，以及在課程設(shè)計輔導(dǎo)我的滕艷瓊老師，是他們在我每次感到困難的時候給予我很大的幫助，還