我的vb課程設(shè)計(jì)

1、 成 績 評(píng) 定 表學(xué)生姓名張宇班級(jí)學(xué)號(hào) 1201050117專 業(yè)機(jī)械電子工程課程設(shè)計(jì)題目控件繪制機(jī)械零件圖評(píng)語組長簽字：成績?nèi)掌?20 年 月 日課程設(shè)計(jì)任務(wù)書學(xué) 院機(jī)械工程學(xué)院專 業(yè)機(jī)械電子工程學(xué)生姓名張宇班級(jí)學(xué)號(hào)1201050117課程設(shè)計(jì)題目控件繪制機(jī)械零件圖實(shí)踐教學(xué)要求與任務(wù):要求：掌握如何使用“PictureBox”控件,“TextBox”控件，“CommandButton” 控件，“Label”控件繪制機(jī)械零件圖。同時(shí)，熟練掌握Line函數(shù)的屬性及基本用法，要求尺寸參數(shù)通過文本框輸入，程序運(yùn)行界面如圖所示。 學(xué)習(xí)要點(diǎn)：1. “PictureBox”控件的應(yīng)用2. “TextBo

2、x”控件的應(yīng)用3. “CommandButton”控件的應(yīng)用4. “Label”控件的應(yīng)用工作計(jì)劃與進(jìn)度安排:1、 題目分析，相應(yīng)控件的查找 1天2、 設(shè)計(jì)實(shí)現(xiàn)功能的算法 1天3、 編制程序 1天4、 編寫課程設(shè)計(jì)說明書 1天5、 答辯 1天指導(dǎo)教師： 201 年 月 日專業(yè)負(fù)責(zé)人：201 年 月 日學(xué)院教學(xué)副院長：201 年 月 日目錄一 題目內(nèi)容的描述1二 使用變量含義及數(shù)據(jù)類型1 三 應(yīng)用程序功能的詳細(xì)說明1 四 主要模塊的算法描述1 五 運(yùn)行結(jié)果4六 結(jié)束語4七 程序的源代碼清單59一 題目內(nèi)容的描述要求：掌握如何使用“PictureBox”控件,“TextBox”控件，“Comman

3、dButton” 控件，“Label”控件繪制機(jī)械零件圖。同時(shí)，熟練掌握Line函數(shù)的屬性及基本用法，要求尺寸參數(shù)通過文本框輸入。根據(jù)題目所給信息以及運(yùn)行步驟，研究各參數(shù)分別在一個(gè)三視圖里代表哪條線，從而猜測(cè)出參數(shù)在零件圖里的代表意義。然后在這基礎(chǔ)上自己用繪圖工具畫出一個(gè)零件圖從而根據(jù)此零件圖自己繪出其三視圖。 二 使用變量含義及數(shù)據(jù)類型a, b, c, d, e，scale ：a、b、c、d、e為設(shè)定的參數(shù)初始值，a表示此零件圖的長，b表示此零件圖的高，c表示此零件圖的寬，d表示內(nèi)部切槽的高，e表示內(nèi)部切槽的長度，scale為此三視圖的圖形界限 ；他們同都屬于Long數(shù)據(jù)類型三 應(yīng)用程序功能

4、的詳細(xì)說明此程序可以繪制一個(gè)機(jī)械零件圖的三視圖，同時(shí)可以通過變換參數(shù)a、b、c、d、e值的大小來控制圖形的三視圖的變換，從而根據(jù)三視圖可以直觀的想象出變換后的零件圖樣式，以及可以變換畫面的背景顏色和前景顏色。此繪圖程序還包含一些繪制橢圓、圓弧、畫點(diǎn)等功能。當(dāng)繪制橢圓時(shí)，則利用Circle的命令，此時(shí)利用Aspect選項(xiàng)繪制；當(dāng)繪制圓弧時(shí)則利用Start、End選項(xiàng)進(jìn)行繪制。與此同時(shí)，畫點(diǎn)的PSet和畫直線的Line方法都不可以用在With和End With的語句之間。四 主要模塊的算法描述 1. 從Windows【開始】菜單中找到“Microsoft Visual Basic 6.0”應(yīng)用程序

5、打開，會(huì)彈出對(duì)話框如下圖所示，選擇“Standard EXE”項(xiàng)，然后單擊“打開”按鈕，這樣就建立了一個(gè)新的工程。 2. 在窗體“Form1”上添加“PictureBox”控件對(duì)象 、“TextBox”控件對(duì)象、“CommandButton”控件對(duì)象、“Label”控件對(duì)象，窗體布局如下圖，各控件屬性如下表：控件名稱屬性名稱屬性值Form1Caption機(jī)械零件圖Text1Text 清空Text2Text清空Text3Text清空Text4Text清空Text5Text清空Label1Caption輸入?yún)?shù)Label2CaptionaLabel3Caption bLabel4Caption c

6、Label5CaptiondLabel6Caption eCommand1Caption繪圖Command2Caption退出Picture1AutoRedrawTure3.根據(jù)各函數(shù)變量所定義的初始值a、b、c、d、e的含義首先利用矩形對(duì)角線法繪制出外框，然后利用點(diǎn)到點(diǎn)法繪制出其他相應(yīng)直實(shí)線，然后利用點(diǎn)劃線切換命令DrawStyle=2繪制出相應(yīng)的主視圖點(diǎn)劃線。這樣，主視圖就繪制完畢。其圖形如圖所示：4.根據(jù)主俯長對(duì)正原理，主俯距離為2，用同樣的方法繪制出俯視圖。同時(shí)利用Cirle命令繪制圓形，這樣，俯視圖就繪制完畢。其圖形如圖所示： 5.再根據(jù)主左高平齊、左俯寬相等原理，主左距離為3用同樣

7、方法繪制出左視圖。圖形如圖所示：（三視圖繪制完畢）6再依照步驟將其他的Command命令以及Text命令在相應(yīng)的編碼區(qū)里編譯出其相應(yīng)的代碼這樣整個(gè)過程編譯完畢，進(jìn)行調(diào)試。五 運(yùn)行結(jié)果通過運(yùn)用函數(shù)line的屬性可以在面板上相應(yīng)的繪制出機(jī)械零件圖的三視圖。結(jié)果如下:六 結(jié)束語 本學(xué)期的課程已經(jīng)結(jié)束了，通過這段時(shí)間的學(xué)習(xí)，我基本掌握了許多語言程序設(shè)計(jì)方面的一些知識(shí)，同時(shí)也鍛煉了自己發(fā)現(xiàn)問題和解決問題的能力。學(xué)會(huì)了自主學(xué)習(xí)，學(xué)以致用。還養(yǎng)成了積極探究以及不懂就要問的好習(xí)慣，我做的程序是控件繪制機(jī)械零件圖，開始感覺很難，后來通過詢問他人，老師，去圖書館查閱資料以及網(wǎng)上查閱相關(guān)知識(shí)，頓時(shí)感覺恍然大悟，但是

8、在設(shè)計(jì)的時(shí)候也會(huì)遇到一些小問題。比如：編寫程序時(shí)馬虎，寫錯(cuò)程序語言；還有在寫實(shí)驗(yàn)報(bào)告的時(shí)候，論述方式及表達(dá)能力跟不上等等。因此，通過這次課程設(shè)計(jì)，我感受最多的就是遇到不會(huì)的一定要及時(shí)詢問他人，積極思考，敢于嘗試，最終找到解決的辦法。在這期間，不僅解決了問題，還促進(jìn)團(tuán)隊(duì)的互助協(xié)作精神以及溝通能力。課程設(shè)計(jì)讓我們可以學(xué)習(xí)與實(shí)踐相結(jié)合，提高了我們對(duì)書本知識(shí)的理解和運(yùn)用能力。加強(qiáng)了我們的學(xué)習(xí)動(dòng)手能力。在今后的學(xué)習(xí)生活與工作中，還要繼續(xù)加強(qiáng)自主學(xué)習(xí)與勇于實(shí)踐的能力。最后，向教導(dǎo)我的老師和幫助過我的同學(xué)表示衷心的感謝！七 程序的源代碼清單Dim a, b, c, d, e, sccalev As Long

9、Private Sub Command1_Click()Picture1.BackColor = RGB(255, 0, 0) 設(shè)置背景顏色為紅色Picture1.ForeColor = RGB(255, 255, 0) 設(shè)置前景顏色為黃色Picture1.Scale (0, 0)-(40, 30) 設(shè)置繪圖比例Picture1.Line (2, 2)-(2 + a, 2 + b), , B 主視圖Picture1.Line (2, 2 + d)-(2 + a, 2 + d)Picture1.Line (2 + a / 2 - e / 2, 2)-(2 + a / 2 - e / 2, 2 +

10、 d)Picture1.Line (2 + a / 2 + e / 2, 2)-(2 + a / 2 + e / 2, 2 + d)Picture1.DrawStyle = 2 點(diǎn)劃線Picture1.Line (2 + a / 2 - 1.5, 2 + d)-(2 + a / 2 - 1.5, 2 + b)Picture1.Line (2 + a / 2 + 1.5, 2 + d)-(2 + a / 2 + 1.5, 2 + b)Picture1.Line (2 + a / 2, 2 + d - 0.5)-(2 + a / 2, 2 + b + 0.5)Picture1.DrawStyle

11、= 0 實(shí)線Picture1.Line (2, 2 + b + 2)-(2 + a, 2 + b + 2 + c), , B 俯視圖Picture1.Line (2 + a / 2 - e / 2, 2 + b + 2 + c - 6)-(2 + a / 2 + e / 2, 2 + b + 2 + c), , B 矩形Picture1.Line (2, 2 + b + 2 + c - 5)-(2 + a / 2 - e / 2, 2 + b + 2 + c - 5)Picture1.Line (2 + a / 2 + e / 2, 2 + b + 2 + c - 5)-(2 + a, 2 +

12、 b + 2 + c - 5)Picture1.Circle (2 + a / 2, 2 + b + 2 + c - 3), 1.5 圓Picture1.DrawStyle = 2Picture1.Line (2 + a / 2, 2 + b + 2 + c - 6.5)-(2 + a / 2, 2 + b + 2 + c + 0.5)Picture1.Line (2 + a / 2 - e / 2 - 0.5, 2 + b + 2 + c - 3)-(2 + a / 2 + e / 2 + 0.5, 2 + b + 2 + c - 3)Picture1.DrawStyle = 0Pictur

13、e1.Line (2 + a + 3, 2)-(2 + a + 3, 2 + b) 左視圖Picture1.Line (2 + a + 3, 2 + b)-(2 + a + 3 + c, 2 + b)Picture1.Line (2 + a + 3 + c, 2 + b)-(2 + a + 3 + c, 2 + d)Picture1.Line (2 + a + 3 + c, 2 + d)-(2 + a + 3 + c - 5, 2)Picture1.Line (2 + a + 3 + c - 5, 2)-(2 + a + 3, 2)Picture1.DrawStyle = 2Picture1.

14、Line (2 + a + 3 + c - 1.5, 2 + d)-(2 + a + 3 + c - 1.5, 2 + b)Picture1.Line (2 + a + 3 + c - 4.5, 2 + d)-(2 + a + 3 + c - 4.5, 2 + b)Picture1.Line (2 + a + 3 + c - 3, 2 + d - 0.5)-(2 + a + 3 + c - 3, 2 + b + 0.5)Picture1.Line (2 + a + 3 + c, 2 + d)-(2 + a + 3 + c - 6, 2 + d)Picture1.Line (2 + a + 3

15、+ c - 6, 2 + d)-(2 + a + 3 + c - 6, 2)Picture1.DrawStyle = 0End SubPrivate Sub Command2_Click() 退出命令Unload MeEnd SubPrivate Sub Form_Load()Text1.Text = 16 設(shè)置繪圖參數(shù)初始值Text2.Text = 10Text3.Text = 9Text4.Text = 7Text5.Text = 8End SubPrivate Sub Form_Resize() 此處為尺寸改變事件Picture1.BackColor = RGB(255, 0, 0)Pi

16、cture1.ForeColor = RGB(255, 255, 0)Picture1.Scale (0, 0)-(40, 30)Picture1.Line (2, 2)-(2 + a, 2 + b), , BPicture1.Line (2, 2 + d)-(2 + a, 2 + d)Picture1.Line (2 + a / 2 - e / 2, 2)-(2 + a / 2 - e / 2, 2 + d)Picture1.Line (2 + a / 2 + e / 2, 2)-(2 + a / 2 + e / 2, 2 + d)Picture1.DrawStyle = 2Picture1

17、.Line (2 + a / 2 - 1.5, 2 + d)-(2 + a / 2 - 1.5, 2 + b)Picture1.Line (2 + a / 2 + 1.5, 2 + d)-(2 + a / 2 + 1.5, 2 + b)Picture1.Line (2 + a / 2, 2 + d - 0.5)-(2 + a / 2, 2 + b + 0.5)Picture1.DrawStyle = 0Picture1.Line (2, 2 + b + 2)-(2 + a, 2 + b + 2 + c), , BPicture1.Line (2 + a / 2 - e / 2, 2 + b +

18、 2 + c - 6)-(2 + a / 2 + e / 2, 2 + b + 2 + c), , BPicture1.Line (2, 2 + b + 2 + c - 5)-(2 + a / 2 - e / 2, 2 + b + 2 + c - 5)Picture1.Line (2 + a / 2 + e / 2, 2 + b + 2 + c - 5)-(2 + a, 2 + b + 2 + c - 5)Picture1.Circle (2 + a / 2, 2 + b + 2 + c - 3), 1.5Picture1.DrawStyle = 2Picture1.Line (2 + a /

19、 2, 2 + b + 2 + c - 6.5)-(2 + a / 2, 2 + b + 2 + c + 0.5)Picture1.Line (2 + a / 2 - e / 2 - 0.5, 2 + b + 2 + c - 3)-(2 + a / 2 + e / 2 + 0.5, 2 + b + 2 + c - 3)Picture1.DrawStyle = 0Picture1.Line (2 + a + 3, 2)-(2 + a + 3, 2 + b)Picture1.Line (2 + a + 3, 2 + b)-(2 + a + 3 + c, 2 + b)Picture1.Line (2 + a + 3 + c, 2 + b)-(2 + a + 3 + c, 2 + d)Picture1.Line (2 + a + 3 + c, 2 + d)-(2 + a + 3 + c - 5, 2)Picture1.Line (2 + a + 3 + c - 5, 2)-(2 + a + 3, 2)Picture1.Dra