【導(dǎo)讀】業(yè)一般工程技術(shù)問題的能力，樹立正確的設(shè)計(jì)思想和工作作風(fēng)。在設(shè)計(jì)方案的選定，畢業(yè)設(shè)計(jì)說明書不僅反映了設(shè)計(jì)的思想內(nèi)容，方法和步驟，而且還反映了。學(xué)生的文理修養(yǎng)和作風(fēng)。達(dá)近十萬千瓦，圓周速度可達(dá)200m/s。齒輪傳動(dòng)有1）效率高，像一級(jí)圓柱齒輪傳動(dòng)的。效率可達(dá)99%實(shí)用意義很大。2）齒輪結(jié)構(gòu)緊湊，工作可靠，壽命長，一般可以工作一、二十年對(duì)車輛及在礦井工作的機(jī)器尤為重要。3）傳動(dòng)比穩(wěn)定。成為提高機(jī)械產(chǎn)品質(zhì)量和效率的關(guān)鍵?？焖僭O(shè)計(jì)與制造技術(shù)的出現(xiàn)為制造業(yè)提高市場。公司使產(chǎn)品開發(fā)時(shí)間縮短了60%；通用發(fā)動(dòng)機(jī)廠使設(shè)計(jì)修改量減少了75%等等。方便，同時(shí)還要考慮開發(fā)所花費(fèi)的時(shí)間及效果。作為開發(fā)工具，這是由于VB是一種在windows環(huán)境下的、可視的面對(duì)象的程序設(shè)計(jì)語言，件具有良好的可移植性和可擴(kuò)充性，所以本設(shè)計(jì)采用VB語言。和手畫,而底層的一些程序代碼由VB自動(dòng)生成或修改。

　　

【正文】 37 = 170 = 230 = ( + ) / 2 Case 13 = 190 = 270 = ( + ) / 2 Case 14 = 180 = 250 = ( + ) / 2 Case 15 = 210 = 260 = ( + ) / 2 End Select End Sub Private Sub Command1_Click() Select Case Case 0 = 45鋼 = 正火 38 Case 1 = 45鋼 = 調(diào)質(zhì) Case 2 = 42SiMn = 調(diào)質(zhì) Case 3 = 40MnB = 調(diào)質(zhì) Case 4 = 35CrMo = 調(diào)質(zhì) Case 5 = 40Cr = 調(diào)質(zhì) Case 6 = ZG310－ 57 = 正火 Case 7 = ZG340－ 640 = 正火 Case 8 39 = ZG35CrMnSi = 正火、回火 Case 9 = ZG35CrMnSi = 調(diào)質(zhì) Case 10 = HT300 = Case 11 = HT350 = Case 12 = QT500－ 7 = Case 13 = QT600 3 = Case 14 = KTZ55002 = Case 15 = KTZ65004 40 = End Select Select Case Case 0 = 45鋼 = 正火 Case 1 = 45鋼 = 調(diào)質(zhì) Case 2 = 42SiMn = 調(diào)質(zhì) Case 3 = 40MnB = 調(diào)質(zhì) Case 4 = 35CrMo = 調(diào)質(zhì) Case 5 = 40Cr = 調(diào)質(zhì) Case 6 41 = ZG310－ 57 = 正火 Case 7 = ZG340－ 640 = 正火 Case 8 = ZG35CrMnSi = 正火、回火 Case 9 = ZG35CrMnSi = 調(diào)質(zhì) Case 10 = HT300 = Case 11 = HT350 = Case 12 = QT500－ 7 = Case 13 = QT600 3 42 = Case 14 = KTZ55002 = Case 15 = KTZ65004 = End Select Select Case Case 0 = 220 + * amp。 MPa = 250 + * amp。 MPa Case 1 = 354 + * amp。 MPa = 349 + * amp。 MPa Case 2, 3, 4, 5 = 331 + * amp。 MPa = 335 + * amp。 MPa Case 6, 7, 8 = 198 + * amp。 MPa = 170 + * amp。 MPa Case 9 43 = 245 + * amp。 MPa = 293 + * amp。 MPa Case 10, 11 = 222 + * amp。 MPa = 70 + * amp。 MPa Case 12, 13, 14, 15 = 272 + * amp。 MPa = 120 + * amp。 MPa End Select = amp。 HBS Select Case Case 0 = 220 + * amp。 MPa = 250 + * amp。 MPa Case 1 = 354 + * amp。 MPa = 349 + * amp。 MPa Case 2, 3, 4, 5 = 331 + * amp。 MPa = 335 + * amp。 MPa Case 6, 7, 8 = 198 + * amp。 MPa 44 = 170 + * amp。 MPa Case 9 = 245 + * amp。 MPa = 293 + * amp。 MPa Case 10, 11 = 222 + * amp。 MPa = 70 + * amp。 MPa Case 12, 13, 14, 15 = 272 + * amp。 MPa = 120 + * amp。 MPa End Select = amp。 HBS If 10 And 10 Then MsgBox 小齒輪材料選擇有誤 Exit Sub End If If Then MsgBox 小齒輪硬度需 要大于大齒輪硬度 Exit Sub End If If = 5 Then If = 5 Then 45 AD = 1: ZE = ElseIf = 6 And = 9 Then AD = : ZE = ElseIf = 10 And = 11 Then AD = : ZE = ElseIf = 12 And = 15 Then AD = : ZE = End If ElseIf = 6 And = 9 Then If = 6 And = 9 Then AD = : ZE = 188 ElseIf = 10 And = 11 Then AD = : ZE = ElseIf = 12 And = 15 Then AD = : ZE = End If ElseIf = 10 And = 11 Then If = 10 And = 11 Then AD = : ZE = ElseIf = 12 And = 15 Then AD = : ZE = End If 46 ElseIf = 12 And = 15 And = 12 And = 15 Then AD = : ZE = End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 45正火（ 162217） HBS 45調(diào)質(zhì)（ 217255） HBS 42SiMn調(diào)質(zhì)（ 217269） HBS 40MnB調(diào)質(zhì)（ 241286） HBS 35CrMo調(diào)質(zhì)（ 207269） HBS 40Cr調(diào)質(zhì)（ 241286） HBS ZG310570正火（ 163197） HBS ZG340640正火（ 169229） HBS ZG35CrMnSi正火、回火（ 163217） HBS ZG35CrMnSi調(diào)質(zhì)（ 197269） HBS 47 HT300（ 190240） HBS HT350（ 210260） HBS QT5007（ 170230） HBS QT6003（ 190270） HBS KTZ55004（ 180250） HBS KTZ65002（ 210260） HBS 45正火（ 162217） HBS 45調(diào)質(zhì)（ 217255） HBS 42SiMn調(diào)質(zhì)（ 217269） HBS 40MnB調(diào)質(zhì)（ 241286） HBS 35CrMo調(diào)質(zhì) （ 207269） HBS 40Cr調(diào)質(zhì)（ 241286） HBS ZG310570正火（ 163197） HBS ZG340640正火（ 169229） HBS ZG35CrMnSi正火、回火（ 163217） HBS ZG35CrMnSi調(diào)質(zhì)（ 197269） HBS HT300（ 190240） HBS HT350（ 210260） HBS QT5007（ 170230） HBS QT6003（ 190270） HBS KTZ55004（ 180250） HBS KTZ65002（ 210260） HBS 48 = 0 = 0 = 圓錐齒輪傳動(dòng)參數(shù)設(shè)計(jì)系統(tǒng) words = = 150 = True = End Sub Private Sub timer1_timer() lenth = Len(words) txtword = Left(words, ii) = txtword ii = ii + 1 If ii lenth Then ii = 0 End If End Sub Private Sub HScroll3_Change() = amp。 HBS End Sub Private Sub HScroll4_Change() = amp。 HBS 49 End Sub Form5 窗體代碼 Dim words As String Dim ii As Integer Dim txtwo