機(jī)械設(shè)計(jì)制造及其自動(dòng)化畢業(yè)設(shè)計(jì)-計(jì)算機(jī)輔助減速器設(shè)計(jì)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-04-24 格式：doc 頁數(shù)：52 大?。?.38MB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

已閱讀1頁，還剩51頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、　　本科畢業(yè)論文　?。?0 屆）　　計(jì)算機(jī)輔助減速器設(shè)計(jì)　　1 前言　　VB6.0是微軟公司提供的一種可視化的應(yīng)用程序開發(fā)工具。它是在Ba

2、sic和Quick Basic語言的基礎(chǔ)上發(fā)展起來的，具有高級程序語言的語句結(jié)構(gòu)（順序，選擇和循環(huán)結(jié)構(gòu)），接近于自然語言和人類的邏輯思維方式，其語言簡單易懂。這個(gè)特點(diǎn)使它成為一種功能十分強(qiáng)大的編程語言。　　Visual Basic 是功能十分齊全的編程工具之一，學(xué)習(xí)Visual basic的目的在于應(yīng)用，利用其編寫應(yīng)用程序解決工程實(shí)際問題。Visual意為可視化的，可見的。

3、　　減速器是一種介于原動(dòng)機(jī)和工作機(jī)之間的獨(dú)立的閉式傳動(dòng)裝置，主要作用是用來傳遞動(dòng)力、降低轉(zhuǎn)速和增大轉(zhuǎn)矩，減速器廣泛應(yīng)用于機(jī)械傳動(dòng)行業(yè)，如礦業(yè)生產(chǎn)、化工設(shè)備、汽車制造、農(nóng)業(yè)生產(chǎn)等領(lǐng)域。　　減速器的設(shè)計(jì)過程幾乎涉及機(jī)械設(shè)計(jì)各個(gè)方面，如幾何參數(shù)設(shè)計(jì)、結(jié)構(gòu)設(shè)計(jì)、標(biāo)準(zhǔn)件選型、強(qiáng)度設(shè)計(jì)、動(dòng)力學(xué)設(shè)計(jì)、潤滑與密封設(shè)計(jì)等。減速器的設(shè)計(jì)因計(jì)算過程繁瑣，容易出錯(cuò)，設(shè)計(jì)周期長，并且在進(jìn)行機(jī)械設(shè)計(jì)過

4、程中往往需要查閱大量的設(shè)計(jì)資料，如設(shè)計(jì)手冊、技術(shù)資料、實(shí)驗(yàn)結(jié)果等等。在這些設(shè)計(jì)資料中，許多數(shù)據(jù)被列成表格或繪制成線圖。而隨著計(jì)算機(jī)技術(shù)在機(jī)械制造中的廣泛應(yīng)用。利用計(jì)算機(jī)輔助手段進(jìn)行設(shè)計(jì)，可提高設(shè)計(jì)質(zhì)量，縮短設(shè)計(jì)周期。　　隨著電子計(jì)算機(jī)技術(shù)的發(fā)展，機(jī)械設(shè)計(jì)與計(jì)算機(jī)技術(shù)的有機(jī)結(jié)合使機(jī)械設(shè)計(jì)逐漸實(shí)現(xiàn)了程序化。在利用VB6.0進(jìn)行設(shè)計(jì)時(shí)，首先需要將上述的資料存儲(chǔ)在計(jì)算機(jī)中。以便在設(shè)計(jì)過程中調(diào)用。而VB6

5、.0創(chuàng)建一個(gè)應(yīng)用程序的第一步是創(chuàng)建界面，它是用戶與設(shè)計(jì)的應(yīng)用程序進(jìn)行交互操作的可視部分。窗體是構(gòu)成應(yīng)用程序界面的窗口，是應(yīng)用程序界面的基礎(chǔ)，窗體作為控件的容器，用戶可向窗體增加控件、圖形或圖片來創(chuàng)建應(yīng)用程序界面?，F(xiàn)以VB6.0作為工具在機(jī)械設(shè)計(jì)的基礎(chǔ)上進(jìn)行減速器的設(shè)計(jì)。設(shè)計(jì)時(shí)利用VB6.0對減速器設(shè)計(jì)過程中所需要的計(jì)算公式、線圖、表格等，進(jìn)行了程序化處理，利用計(jì)算機(jī)完成減速器設(shè)計(jì)中大量煩瑣和重復(fù)性的計(jì)算工作；設(shè)計(jì)完成后當(dāng)輸入給定條件、參

6、數(shù)時(shí)，計(jì)算機(jī)能進(jìn)行相應(yīng)的減速器設(shè)計(jì)，能自動(dòng)確定傳動(dòng)比、齒輪尺寸，能進(jìn)行傳動(dòng)件強(qiáng)度、剛度計(jì)算和校核。　　2 VB6.0的概述　　2.1 VB6.0簡介　　Visual Basic是美國微軟公司推出的Microsoft Visual Studio可視化開發(fā)工具套件中的一個(gè)組件，是在Quick BASIC的基礎(chǔ)上，為開

7、發(fā)Windows應(yīng)用程序而提供的強(qiáng)有力的開發(fā)工具，是一種具有良好的圖形用戶界面的程序設(shè)計(jì)語言。它采用面向?qū)ο蠛褪录?qū)動(dòng)的程序設(shè)計(jì)兩種新機(jī)制，把過程化和結(jié)構(gòu)化編程集合在一起。VB作為基于Windows平臺(tái)最方便快捷的軟件開發(fā)工具，無論是網(wǎng)絡(luò)應(yīng)用，多媒體技術(shù)還是當(dāng)前流行的MIS系統(tǒng)的開發(fā)，都應(yīng)付的游刃有余。因此，Visual Basic也就成為眾多程序員的首選編程工具。　　Visual的原意是“視覺

8、的”或“可視的”，而在VB中是指開發(fā)圖形用戶界面的方法，即不需要編寫大量代碼去描述界面元素的外觀和位置，只要把VB預(yù)先定義好的對象（如工具箱提供的各種控件）拖放到窗體上即可。也就是說，屏幕上的用戶界面是用VB提供的可視化設(shè)計(jì)工具直接“畫”出來的，而不是用程序“寫”出來的。這種直觀的編程方法，就是我們通常所說的可視化編程。Basic是指BASIC語言，它是Beginner’s All-purpose Symbolic Instructio

9、n Code（初學(xué)者通用符號(hào)指令代碼）的縮寫，與其他高級語言相比，它的語法規(guī)則相對簡單，容易理解和掌握，且具有實(shí)用價(jià)值，被認(rèn)為是最理想的初學(xué)者語言。之所以叫做“Visual Basic”就是因?yàn)樗窃贐ASIC語言的基礎(chǔ)上發(fā)展而來的，并賦予了全新的面向?qū)ο蟮目梢暬幊谭椒ā?lt;/p>　　Visual Basic在許多方面有著重大的突破。敘述兩個(gè)最基本的特點(diǎn)：　?。?/p>

10、1）可視化的編程工具　?。?）程序采取“事件驅(qū)動(dòng)”方式　　2.2 VB6.0程序設(shè)計(jì)的步驟：　　（1）設(shè)計(jì)應(yīng)用程序界面　?。?）設(shè)置對象的屬性　　（3）編寫事件驅(qū)動(dòng)代碼

11、　3 減速機(jī)的概述　　3.1 減速器的作用　?。?）減速機(jī)一般用于低轉(zhuǎn)速大扭矩的傳動(dòng)設(shè)備，把電動(dòng)機(jī)、內(nèi)燃機(jī)或其它高速運(yùn)轉(zhuǎn)的動(dòng)力通過減速機(jī)來減速；　?。?）降速同時(shí)提高輸出扭矩，扭矩輸出比例按電機(jī)輸出乘減速比，大小齒輪的齒數(shù)之比，就是傳動(dòng)比；　?。?）減

12、速同時(shí)降低了負(fù)載的慣量，慣量的減少為減速比的平方。　　3.2 減速器的分類　　減速器的種類繁多，按照傳動(dòng)類型可分為齒輪減速器、蝸桿減速器和行星齒輪減速器；按照傳動(dòng)級數(shù)不同可分為單級和多級減速器；按照齒輪形狀可分為圓柱齒輪減速器、圓錐齒輪減速器和圓錐－圓柱齒輪減速器；按照傳動(dòng)的布置形式又可分為展開式、分流式和同軸式減速器。<p

13、>　　3.3 減速器的發(fā)展趨勢　　通用減速器的發(fā)展趨勢如下：高水平、高性能，體積小、重量輕、噪聲低、效率高、可靠性高；尺寸規(guī)格整齊，零件通用性和互換性強(qiáng)，系列容易擴(kuò)充和花樣翻新，利于組織批量生產(chǎn)和降低成本；型式多樣化，變型設(shè)計(jì)多：擺脫了傳統(tǒng)的單一的底座安裝方式，增添了空心軸懸掛式、浮動(dòng)支承底座、電動(dòng)機(jī)與減速器一體式聯(lián)接，多方位安裝面等不同型式，擴(kuò)大使用范圍。<

14、;p>　　3.4 減速器的應(yīng)用領(lǐng)域　　減速機(jī)是諸多工業(yè)生產(chǎn)領(lǐng)域的機(jī)械傳動(dòng)裝置，行業(yè)涉及的產(chǎn)品類別包括了各類齒輪減速機(jī)、行星齒輪減速機(jī)及蝸桿減速機(jī)，也包括了各種專用傳動(dòng)裝置，如增速裝置、調(diào)速裝置、以及包括柔性傳動(dòng)裝置在內(nèi)的各類復(fù)合傳動(dòng)裝置等。產(chǎn)品服務(wù)領(lǐng)域涉及冶金、有色、煤炭、建材、船舶、水利、電力、工程機(jī)械及石化等行業(yè)。　　在工業(yè)的各個(gè)領(lǐng)域中減速機(jī)產(chǎn)

15、品都有著廣泛的應(yīng)用。食品輕工、電力機(jī)械、建筑機(jī)械、冶金機(jī)械、水泥機(jī)械、環(huán)保機(jī)械、電子電器、筑路機(jī)械、水利機(jī)械、化工機(jī)械、礦山機(jī)械、輸送機(jī)械、建材機(jī)械、橡膠機(jī)械、石油機(jī)械等行業(yè)領(lǐng)域?qū)p速機(jī)產(chǎn)品都有旺盛的需求。　　4 計(jì)算機(jī)輔助減速器設(shè)計(jì)　　4.1 設(shè)計(jì)任務(wù)　　1、在輸入給定條件

16、、參數(shù)后，計(jì)算機(jī)能進(jìn)行相應(yīng)的減速器設(shè)計(jì)；　　2、自動(dòng)確定傳動(dòng)比、齒輪尺寸，進(jìn)行傳動(dòng)件強(qiáng)度、剛度計(jì)算和校核；　　3、對輸出的數(shù)據(jù)應(yīng)進(jìn)行優(yōu)化處理　　4.2 程序的總體設(shè)計(jì)　　利用VB軟件建立多個(gè)窗口，并且通過設(shè)計(jì)每個(gè)窗口的控件和屬性可以實(shí)現(xiàn)減速器的每個(gè)步驟的設(shè)計(jì)。</p

17、>　　即通過設(shè)計(jì)第一個(gè)窗口的界面、屬性和代碼可以實(shí)現(xiàn)減速器的電機(jī)的選取，　　通過設(shè)計(jì)第二個(gè)窗口的界面、屬性和代碼可以實(shí)現(xiàn)減速器的各軸轉(zhuǎn)速、功率、轉(zhuǎn)矩的計(jì)算。　　通過設(shè)計(jì)第三個(gè)窗口的界面、屬性和代碼可以實(shí)現(xiàn)減速器大齒輪齒數(shù)的計(jì)算和應(yīng)力循環(huán)次數(shù)的計(jì)算。　　通過設(shè)計(jì)第四個(gè)窗口的界面、屬性和代

18、碼可以實(shí)現(xiàn)減速器的齒輪模數(shù)的計(jì)算并能通過第三個(gè)窗口計(jì)算所得的應(yīng)力循環(huán)次數(shù)選取齒輪的壽命系數(shù)。等等建立多個(gè)窗口來實(shí)現(xiàn)減速器的每個(gè)步驟的設(shè)計(jì)，最后利用代碼將這些窗口按照循序鏈接起來就可以實(shí)現(xiàn)減速器的設(shè)計(jì)　　4.3 程序的詳細(xì)設(shè)計(jì)　　4.3.1 VB6.0的窗口的建立　?。?）運(yùn)行VB程序，選擇【新建】，點(diǎn)擊【標(biāo)準(zhǔn)EX

19、E】，點(diǎn)擊【確定】，即新建了一個(gè)窗體如下圖：　　圖6.1窗口界面　?。?）通過對窗體的界面和屬性的設(shè)計(jì)可以得到如下窗體：　　圖6.2進(jìn)入界面　　編寫“Form 1”中的事件驅(qū)動(dòng)代碼如下：</

20、p>　　Option Explicit　　Private Sub Command1_Click()　　Form1.Hide　　Form2.Show　　End Sub

21、　　到此第一個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第二個(gè)窗體并進(jìn)行第二個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　　4.3.2 電機(jī)選取的設(shè)計(jì)　?。?）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)

22、可以得到如下窗體：　　圖6.3參數(shù)輸入界面　　編寫“Form 2”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Command1_Click()　　If Val(Text1.Text) = 0

23、 Or Val(Text2.Text) = 0 Or Val(Text3.Text) = 0 Then　　MsgBox "請輸入已知參數(shù)"　　Else　　Ic = Val(Text1.Text)　　Nc = Val

24、(Text2.Text)　　Pc = Val(Text3.Text)　　Nyx = Nc　　Pyx = Pc / 0.96　　Text4.Text = Nyx　　Text5.Text = Py

25、x　　End If　　End Sub　　Private Sub Command2_Click()　　Form2.Hide　　Form1.Show</

26、p>　　End Sub　　Private Sub Command3_Click()　　If Val(Text4.Text) = 0 Or Val(Text5.Text) = 0 Then　　MsgBox "請計(jì)算相關(guān)數(shù)據(jù)"<

27、;/p>　　Else　　Form2.Hide　　Form3.Show　　End If　　End Sub&l

28、t;p>　　Private Sub Label11_Click()　　If Val(Text1.Text) < 3 Or Val(Text1.Text) > 6 Then　　MsgBox "請輸入合適的傳動(dòng)比"　　End If</p

29、>　　End Sub　　Private Sub Label12_Click()　　If Val(Text2.Text) < 750 Or Val(Text2.Text) > 3000 Then　　MsgBox "請輸入合適的主

30、軸轉(zhuǎn)速"　　End If　　End Sub　　Private Sub Label13_Click()　　If Val(Text3.Text) < 0.5 Or Val(Text3.

31、Text) > 28 Then　　MsgBox "請輸入合適的傳遞功率"　　End If　　End Sub　　到此第二個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第三個(gè)窗體并進(jìn)行第三

32、個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　?。?）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.4電機(jī)選取界面　　編寫“

33、Form 3”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Command1_Click()　　If Text1.Text = "" Or Val(Text2.Text) = 0 Or Val(Text3.Text) = 0 Then

34、　　MsgBox "請輸入已知參數(shù)"　　Else　　Nd = Val(Text2.Text)　　Pd = Val(Text3.Text)　　Nz1 = Nd

35、　　Nz2 = Nd / Ic　　Pz1 = Pc * 0.98　　Pz2 = Pc * 0.98 * 0.98　　Tz1 = 9550 * Pz1 * 1000 / Nz1　　Tz2 = 9550 * Pz2 * 1000 /

36、Nz2　　Text4.Text = Nz1　　Text5.Text = Nz2　　Text6.Text = Pz1　　Text7.Text = Pz2　　Text8.Text = Tz1

37、　Text9.Text = Tz2　　End If　　End Sub　　Private Sub Command2_Click()　　Form3.Hide

38、　Form2.Show　　End Sub　　Private Sub Command3_Click()　　If Val(Text4.Text) = 0 Or Val(Text5.Text) = 0 Or Val(Text6.Text) = 0 Or Val(Text7.Text

39、) = 0 Or Val(Text8.Text) = 0 Or Val(Text9.Text) = 0 Then　　MsgBox "請計(jì)算相關(guān)數(shù)據(jù)"　　Else　　Form3.Hide　　Form4.Show<

40、;/p>　　End If　　End Sub　　到此第三個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第四個(gè)窗體并進(jìn)行第四個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　　4.3.3 減速器的齒輪的設(shè)計(jì)<

41、;p>　　（5）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.5齒寬系數(shù)選取界面　　編寫“Form 4”中的事件驅(qū)動(dòng)代碼如下：<

42、;p>　　Option Explicit　　Private Sub Command1_Click()　　If Val(Text1.Text) = 0 Or Val(Text2.Text) = 0 Then　　MsgBox "請輸入已知參數(shù)"<

43、;b>　　Else　　Qb = Val(Text1.Text)　　Z1 = Val(Text2.Text)　　Z2 = Z1 * Ic　　Ca = 1.88 - 3.2 * (1 / Z1 + 1 / Z2)<p&g

44、t;　　Zc = ((4 - Ca) / 3) ^ (1 / 2)　　Nx1 = 60 * Nz1 * 2 * 8 * 250 * 10　　Nx2 = 60 * Nz2 * 2 * 8 * 250 * 10　　Text3.Text = Z2　　Text4.Text = C

45、a　　Text5.Text = Zc　　Text6.Text = Nx1　　Text7.Text = Nx2　　End If　　End Sub</p

46、>　　Private Sub Command2_Click()　　Form4.Hide　　Form3.Show　　End Sub　　Private Sub Command3_Click()

47、;　　If Val(Text3.Text) = 0 Or Val(Text4.Text) = 0 Or Val(Text5.Text) = 0 Or Val(Text6.Text) = 0 Or Val(Text7.Text) = 0 Then　　MsgBox "請計(jì)算相關(guān)數(shù)據(jù)"　　Else&l

48、t;/b>　　Form4.Hide　　Form5.Show　　End If　　End Sub　　到此第四個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第五個(gè)窗體并

49、進(jìn)行第五個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　?。?）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.6壽命系數(shù)選取界面

50、;　　編寫“Form 5”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Command1_Click()　　If Val(Text1.Text) = 0 Or Val(Text2.Text) = 0 Or Val(Text3.Text) = 0 Then

51、　　MsgBox "請輸入已知參數(shù)"　　Else　　Kh1 = Val(Text1.Text)　　Kh2 = Val(Text2.Text)　　Kc = Val(Text3.Text)</

52、p>　　LLh1 = Kh1 * 550　　LLh2 = Kh2 * 550　　LLh = LLh1　　dc = ((2 * Kc * Tz1 / Qb) * (1 + 1 / Ic) * (2.5 * 189.8 * Zc / LLh) ^ 2) ^ (1 / 3)

53、;　　Mc = dc / Z1　　Text4.Text = LLh1　　Text5.Text = LLh2　　Text6.Text = LLh　　Text7.Text = dc　　Text8.Text = M

54、c　　End If　　End Sub　　Private Sub Command2_Click()　　Form5.Hide　　Form4.Show</

55、p>　　End Sub　　Private Sub Command3_Click()　　If Val(Text4.Text) = 0 Or Val(Text5.Text) = 0 Or Val(Text6.Text) = 0 Or Val(Text7.Text) = 0 Or Val(Tex

56、t8.Text) = 0 Then　　MsgBox "請計(jì)算相關(guān)數(shù)據(jù)"　　Else　　Form5.Hide　　Form6.Show　　End If<

57、/b>　　End Sub　　到此第五個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第六個(gè)窗體并進(jìn)行第六個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　　（7）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。

58、　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.7標(biāo)準(zhǔn)模數(shù)選取界面　　編寫“Form 6”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Command1_Click()<

59、;/p>　　If Val(Text1.Text) = 0 Then　　MsgBox "請輸入已知參數(shù)"　　Else　　M = Val(Text1.Text)　　dm = M * Z1&l

60、t;/p>　　bm = Qb * dm　　hm = 2.25 * M　　Vm = 3.14 * dm * Nz1 / 60000　　Text2.Text = dm　　Text3.Text = bm　　T

61、ext4.Text = hm　　Text5.Text = Vm　　End If　　End Sub　　Private Sub Command2_Click()

62、;　　Form6.Hide　　Form5.Show　　End Sub　　Private Sub Command3_Click() 　　If Val(Text2.Text) = 0 Or Val(Text3.Text) = 0 Or V

63、al(Text4.Text) = 0 Or Val(Text5.Text) = 0 Then　　MsgBox "請計(jì)算相關(guān)數(shù)據(jù)"　　Else　　Form6.Hide　　Form7.Show&

64、lt;p>　　End If　　End Sub　　Private Sub Image2_Click()　　End Sub　　到此第六個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一

65、步需要添加第七個(gè)窗體并進(jìn)行第七個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　　（8）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.8等級選取界面

66、　　編寫“Form 7”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Command1_Click()　　If Text1.Text = "" Or Val(Text2.Text) = 0 Then<p&g

67、t;　　MsgBox "請輸入已知參數(shù)"　　Else　　Kv = Val(Text2.Text)　　End If　　End Sub<

68、/p>　　Private Sub Command2_Click()　　Form7.Hide　　Form6.Show　　End Sub　　Private Sub Command3_Click()</p&

69、gt;　　If Kv = 0 Then　　MsgBox "請確定相關(guān)數(shù)據(jù)"　　Else　　Form7.Hide　　Form8.Show

70、;　　End If　　End Sub　　Private Sub Label4_Click()　　End Sub　　到此第七個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第八個(gè)窗體并進(jìn)行第八個(gè)

71、窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　　（9）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.9齒間載荷系數(shù)選取界面

72、編寫“Form 8”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Command1_Click()　　If Val(Text1.Text) = 0 Or Val(Text2.Text) = 0 Or Val(Text3.Text) = 0 Then&l

73、t;p>　　MsgBox "請輸入已知參數(shù)"　　Else　　Kha = Val(Text1.Text)　　Kfa = Val(Text2.Text)　　Khp = Val(Text3.Text)</p&

74、gt;　　End If　　End Sub　　Private Sub Command2_Click()　　Form8.Hide　　Form7.Show&

75、lt;p>　　End Sub　　Private Sub Command3_Click()　　If Kha = 0 Or Kfa = 0 Or Khp = 0 Then　　MsgBox "請確定相關(guān)數(shù)據(jù)"<

76、;b>　　Else　　Form8.Hide　　Form9.Show　　End If　　End Sub　　到此第八個(gè)窗體已經(jīng)設(shè)計(jì)完

77、畢下一步需要添加第九個(gè)窗體并進(jìn)行第九個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　　（10）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.10齒向載荷系數(shù)選取界面&l

78、t;/p>　　編寫“Form 9”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Command1_Click()　　If Val(Text1.Text) = 0 Then　　MsgBox "請輸入

79、已知參數(shù)"　　Else　　Kfp = Val(Text1.Text)　　Km1 = Kv * Kha * Khp　　dms = ((2 * Km1 * Tz1 / Qb) * (1 + 1 / Ic) * (2.5 * 18

80、9.8 * Zc / LLh) ^ 2) ^ (1 / 3)　　Text2.Text = Km1　　Text3.Text = dms　　End If　　End Sub<

81、;p>　　Private Sub Command2_Click()　　If dm >= dms Then　　MsgBox "齒面接觸疲勞強(qiáng)度足夠"　　Else　　MsgBox "齒面接觸疲勞強(qiáng)

82、度不夠，需要增大Kc"　　End If　　End Sub　　Private Sub Command3_Click()　　Form9.Hide

83、Form8.Show　　End Sub　　Private Sub Command4_Click()　　If Val(Text2.Text) = 0 Or Val(Text3.Text) = 0 Then　　MsgBox "請

84、計(jì)算相關(guān)數(shù)據(jù)"　　Else　　Form9.Hide　　Form10.Show　　End If　　End Sub</b&g

85、t;　　到此第九個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第十個(gè)窗體并進(jìn)行第十個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　　4.3.4 齒輪的校核　?。?1）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。<p&

86、gt;　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.11壽命系數(shù)選取界面　　編寫“Form 10”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Command1_Click()<p&g

87、t;　　If Val(Text1.Text) = 0 Or Val(Text2.Text) = 0 Then　　MsgBox "請輸入已知參數(shù)"　　Else　　Kf1 = Val(Text1.Text)　　Kf2

88、= Val(Text2.Text)　　Yc = 0.25 + 0.75 / Ca　　Km2 = Kv * Kfa * Kfp　　LLf1 = Kf1 * 210 / 1.3　　LLf2 = Kf2 * 210 / 1.3　　Tex

89、t3.Text = Yc　　Text4.Text = Km2　　Text5.Text = LLf1　　Text6.Text = LLf2　　End If　　End Sub&l

90、t;/b>　　Private Sub Command2_Click()　　Form10.Hide　　Form9.Show　　End Sub　　Private Sub Command3_C

91、lick()　　If Val(Text3.Text) = 0 Or Val(Text4.Text) = 0 Or Val(Text5.Text) = 0 Or Val(Text6.Text) = 0 Then　　MsgBox "請計(jì)算相關(guān)數(shù)據(jù)"　　Else

92、　　Form10.Hide　　Form11.Show　　End If　　End Sub　　到此第十個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第十一個(gè)窗體并進(jìn)行第十一

93、個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　?。?2）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.12齒形系數(shù)選取界面

94、　編寫“Form 11”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Command1_Click()　　If Val(Text1.Text) = 0 Or Val(Text2.Text) = 0 Or Val(Text3.Text) = 0 Or Val(Text4.Tex

95、t) = 0 Then　　MsgBox "請輸入已知參數(shù)"　　Else　　Yfa1 = Val(Text1.Text)　　Yfa2 = Val(Text2.Text)　　Y

96、sa1 = Val(Text3.Text)　　Ysa2 = Val(Text4.Text)　　Lf1 = (2 * Km2 * Tz1 * Yfa1 * Ysa1 * Yc) / (bm * dm * M)　　Lf2 = (Lf1 * Yfa2 * Ysa2) / (Yfa1 * Ysa1)

97、　　Text5.Text = Lf1　　Text6.Text = Lf2　　End If　　End Sub　　Private Sub Command2_Click()</

98、p>　　If Lf1 <= LLf1 And Lf2 <= LLf2 Then　　MsgBox "齒根彎曲疲勞強(qiáng)度足夠"　　Else　　MsgBox "齒根彎曲疲勞強(qiáng)度不夠，需要增大Kc"<

99、/p>　　End If　　End Sub　　Private Sub Command3_Click()　　Form11.Hide　　Form10.Show</p&g

100、t;　　End Sub　　Private Sub Command4_Click()　　If Val(Text5.Text) = 0 Or Val(Text6.Text) = 0 Then　　MsgBox "請計(jì)算相關(guān)數(shù)據(jù)"</p

101、>　　Else　　Form11.Hide　　Form12.Show　　End If　　End Sub<

102、;p>　　到此第十一個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第十二個(gè)窗體并進(jìn)行第十二個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　?。?3）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：<p

103、>　　圖6.13齒輪上受力計(jì)算界面　　編寫“Form 12”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Command1_Click()　　Ft = 2 * Tz1 / dm　　Fn

104、= Ft / 0.94　　Text1.Text = Ft　　Text2.Text = Fn　　End Sub　　Private Sub Command2_Click()　　Form12.Hid

105、e　　Form11.Show　　End Sub　　Private Sub Command3_Click()　　If Val(Text1.Text) = 0 Or Val(Text2.Text) = 0 Then

106、　　MsgBox "請計(jì)算相關(guān)數(shù)據(jù)"　　Else　　Form12.Hide　　Form13.Show　　End If

107、　　End Sub　　到此第十二個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第十三個(gè)窗體并進(jìn)行第十三個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　　4.3.5 減速器的軸的設(shè)計(jì)　　（14）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在

108、窗口編輯區(qū)就添加了一個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.14軸最小直徑計(jì)算界面　　編寫“Form 13”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Co

109、mmand1_Click()　　dmin = 120 * (Pz1 / Nz1) ^ (1 / 3) * 1.06　　Tlzs = 1.3 * Tz1　　Text1.Text = dmin　　Text2.Text = Tlzs&l

110、t;b>　　End Sub　　Private Sub Command2_Click()　　Form13.Hide　　Form12.Show　　End Sub　　Pri

111、vate Sub Command3_Click()　　If Val(Text1.Text) = 0 Or Val(Text2.Text) = 0 Then　　MsgBox "請計(jì)算相關(guān)數(shù)據(jù)"　　Else　　Form

112、13.Hide　　Form14.Show　　End If　　End Sub　　Private Sub Image2_Click()　　E

113、nd Sub　　到此第十三個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第十四個(gè)窗體并進(jìn)行第十四個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　　4.3.6 減速器的聯(lián)軸器的設(shè)計(jì)　　（15）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一

114、個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.15聯(lián)軸器的選取界面　　編寫“Form 14”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Command1_Clic

115、k()　　If Text1.Text = "" Or Val(Text2.Text) = 0 Or Val(Text3.Text) = 0 Or Val(Text4.Text) = 0 Then　　MsgBox "請輸入已知參數(shù)"　　Else</b&

116、gt;　　dlz = Val(Text2.Text)　　Llz1 = Val(Text3.Text)　　Llz = Val(Text4.Text)　　End If　　End

117、Sub　　Private Sub Command2_Click()　　Form14.Hide　　Form13.Show　　End Sub　　Private Sub Comm

118、and3_Click()　　If dlz = 0 Or Llz1 = 0 Or Llz = 0 Then　　MsgBox "請確定相關(guān)數(shù)據(jù)"　　Else　　Form14.Hide<p&

119、gt;　　Form15.Show　　End If　　End Sub　　Private Sub Label1_Click()　　End Sub

120、;　　Private Sub Label2_Click()　　End Sub　　Private Sub Label4_Click()　　End Sub　　Private Su

121、b Label5_Click()　　End Sub　　到此第十四個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第十五個(gè)窗體并進(jìn)行第十五個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　　4.3.7 減速器的軸承的設(shè)計(jì)　　（16）右鍵點(diǎn)擊【工程資源管理器】，

122、鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.16軸承的選取界面　　編寫“Form 15”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit&

123、lt;/p>　　Private Sub Command1_Click()　　If Val(Text1.Text) = 0 Then　　MsgBox "請輸入已知參數(shù)"　　Else　　dz

124、c2 = Val(Text1.Text)　　End If　　End Sub　　Private Sub Command2_Click()　　Form15.Hide<p&

125、gt;　　Form14.Show　　End Sub　　Private Sub Command3_Click()　　If dzc2 = 0 Then　　MsgBox "請確定相關(guān)數(shù)據(jù)"<

126、p>　　Else　　Form15.Hide　　Form16.Show　　End If　　End Sub　　到此

127、第十五個(gè)窗體已經(jīng)設(shè)計(jì)完畢下一步需要添加第十六個(gè)窗體并進(jìn)行第十六個(gè)窗體的界面設(shè)計(jì)、屬性設(shè)計(jì)和代碼的編寫。　?。?7）右鍵點(diǎn)擊【工程資源管理器】，鼠標(biāo)放在【添加】選項(xiàng)卡上，左鍵點(diǎn)擊【窗體】，選擇【窗體】，點(diǎn)擊【打開】，即在窗口編輯區(qū)就添加了一個(gè)窗體。　　通過對新添加的窗體的界面和屬性設(shè)計(jì)可以得到如下窗體：　　圖6.1

128、7軸承的校核計(jì)算界面　　編寫“Form 16”中的事件驅(qū)動(dòng)代碼如下：　　Option Explicit　　Private Sub Command1_Click()　　If Text1.Text = "" Or Val(Text2.Text) = 0 O

129、r Val(Text3.Text) = 0 Or Val(Text4.Text) = 0 Or Val(Text5.Text) = 0 Then　　MsgBox "請輸入已知參數(shù)"　　Else　　dzc = Val(Text2.Text)

130、;　　bzc = Val(Text3.Text)　　da = Val(Text4.Text)　　Cr = Val(Text5.Text)　　Pdl = 1.2 * Fn　　Cs = Pdl * (60 * Nz1 * 2 * 8 * 250 * 10

131、 / 1000000) ^ (1 / 3)　　Text6.Text = Pdl　　Text7.Text = Cs　　End If　　End Sub　　Pr

132、ivate Sub Command2_Click()　　If Cs <= Cr Then　　MsgBox "軸承的疲勞強(qiáng)度足夠"　　Else　　MsgBox "軸承的疲勞強(qiáng)度不夠，需要選額定載荷大的

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(chǔ)空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

機(jī)械設(shè)計(jì)制造及其自動(dòng)化畢業(yè)設(shè)計(jì)-計(jì)算機(jī)輔助減速器設(shè)計(jì)

文檔簡介

溫馨提示

最新文檔

評論

機(jī)械設(shè)計(jì)制造及其自動(dòng)化畢業(yè)設(shè)計(jì)-計(jì)算機(jī)輔助減速器設(shè)計(jì)

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載