【正文】 MPa Case 10, 11 = 222 + * amp。 MPa = 293 + * amp。 Private Sub Command1_Click() 軟件介紹 .Show Unload Me 23 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub timer1_timer() Static I As Long, J As Boolean Dim tmpStr As String, sLen As Long sLen = Len(fTitle) If J = True Then I = I + 1 Else I = I 1 End If If I MaxSpace + Len(fTitle) Then I = MaxSpace + sLen J = Not J End If If I sLen Then 24 I = sLen J = Not J End If If I = 0 And I = MaxSpace Then tmpStr = Space(I) amp。一旦我們將控件的大小和位置調(diào)整好后，就可以鎖定控件的位置，可以從“格式”菜單上選定“鎖定控件”或在窗體編輯器工具欄上單擊“鎖定控件”。S)，在菜單中就表現(xiàn)為“保存 (amp。本系統(tǒng)在菜單設(shè)計中采用了如下技術(shù)： 菜單項的可用與禁止、可見與隱藏 為了表示菜單項的一 些特殊功能，以及 控制用戶的操作流程，要用到菜單選項的可用與禁止、可見與隱藏屬性。使常用的操作直觀、快捷、方便，這不僅會提高用戶的工作效率，還使得界面在 12 功能實現(xiàn)上簡明和高效。 2 關(guān)鍵技術(shù) 數(shù)表和線圖的程序化處理 齒輪參數(shù)設(shè)計時，需要查閱大量的圖表，為了實現(xiàn)設(shè)計過程的自動化，必須對圖表作預(yù)處理，使其程序化。常用的曲線擬合方法有兩類：一類是嚴(yán)格通過被擬合曲線 f(x)各結(jié)點（ xi,yi）的曲線擬合法；另一類是不通過被擬合曲線 f(x)各結(jié)點（ xi,yi），但嚴(yán)格控制各結(jié)點與擬合曲線對應(yīng)的偏差而作的擬合曲線。之所以 選擇 VB語言作為開發(fā)工具，是因為 Microsoft Visual Basic(簡稱 VB)是一種在 Windows環(huán)境下的、可視的面向?qū)ο蟮某绦蛟O(shè)計語言，它將 Windows編程的復(fù)雜性封裝起來，使用可視化設(shè)計應(yīng)用程序，提高了應(yīng)用程序的開發(fā)效率，并且具有功能強大，易學(xué)易用，編程簡潔等特點。在齒輪 傳動 參數(shù)設(shè)計中，采用 VB語言作為開發(fā)工具，這是由于 VB是一種在 windows環(huán)境下的、可視的面對象的程序設(shè)計語言，在其圖形用戶界面上通過操作界面元素，如菜單、按鈕、對話框、編輯框、單選框、復(fù)選框、列表框和滾動等，由可視開發(fā)工具自動生成應(yīng)用軟件，并且 VB開發(fā)的應(yīng)用軟 2 件具有良好的可移植性和可擴(kuò)充性，所以本設(shè)計采用 VB語言。 齒輪傳動是機(jī)械傳動中最重要的傳動之一，型式很多，應(yīng)用廣泛 ，傳遞的功率可達(dá)近十萬千瓦，圓周速度可達(dá) 200m/s。齒輪傳動 是機(jī)械傳動中應(yīng)用最為廣泛的一種傳動裝置，傳統(tǒng)的齒輪傳動參數(shù)設(shè)計計算，過程復(fù) 雜，需要查取很多圖、表，設(shè)計費時、效率低，且手工計算容易出錯。 事件驅(qū)動編程 Windows操作系統(tǒng)出現(xiàn)以來 ,圖形化的用戶界面和多任 務(wù)多進(jìn)程的應(yīng)用程序要求程序設(shè)計不能是單一性的 ,在使用 VB設(shè)計應(yīng)用程序時 ,必須首先確定應(yīng)用程序如何同用戶 6 進(jìn)行交互。 9 擬合運算 擬合曲線 f(x)的運算分兩步進(jìn)行。一個優(yōu)秀的用戶界面即是一個直觀的、對用戶透明的界面。這樣的設(shè)計，不僅會給自己的設(shè)計增加難度，而且往往使界面看上去龐雜，對用戶沒有真正的好處。 具有子菜單的菜單項或者頂層菜單不能定義快捷鍵，只能定義訪問鍵。 功能過程描述 與傳統(tǒng)的齒輪傳動設(shè)計相比，本系統(tǒng)具有計算精確，設(shè)計速度快、提供的可行方案多等優(yōu)點，流程圖如圖 26所示，具體步驟如下： 1． 選擇齒輪 類型； 2．選擇齒輪材料、熱處理方法，求出許用應(yīng)力； 3．確定設(shè)計準(zhǔn)則； 4．進(jìn)行設(shè)計計算，求出齒輪的各項基本參數(shù)； 5．計算齒輪幾何尺寸，確定齒輪精度等級； 6．校核齒輪應(yīng)力； 7．?dāng)?shù)據(jù)保存及輸出。 本窗體其它對象的代碼如下 : Dim words As String Dim ii As Integer Dim txtword As String Dim lenth As Integer Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() 39。 MPa Case 1 = 354 + * amp。 MPa = 349 + * amp。 HBS 49 End Sub Form5 窗體代碼 Dim words As String Dim ii As Integer Dim txtwor。 MPa = 250 + * amp。H80000004 = False End If If = True Or = True Then = 1000 ElseIf = True Then = 1500 End If End Sub Private Sub Text3_Change() If CInt() 3 Then MsgBox 錐齒輪最大傳動比為 3，請重新輸入 , vbOKOnly, 警告 Exit Sub End If End Sub Private Sub timer1_timer() lenth = Len(words) 31 txtword = Left(words, ii) = txtword ii = ii + 1 If ii lenth Then ii = 0 End If End Sub Form4 窗體代碼 Dim words As String Dim ii As Integer Dim txtword As String Dim lenth As Integer Private Sub Combo3_Click() Select Case Case 0 = 169 = 217 = ( + ) / 2 Case 1 = 217 = 255 32 = ( + ) / 2 Case 2 = 217 = 269 = ( + ) / 2 Case 3 = 241 = 286 = ( + ) / 2 Case 4 = 207 = 269 = ( + ) / 2 Case 5 = 241: = 286 = ( + ) / 2 Case 6 = 163 = 197 = ( + ) / 2 Case 7 33 = 169 = 299 = ( + ) / 2 Case 8 = 163 = 217 = ( + ) / 2 Case 9 = 197 = 269 = ( + ) / 2 Case 10 = 190 = 240 = ( + ) / 2 Case 11 = 210 = 260 = ( + ) / 2 Case 12 = 170 = 230 34 = ( + ) / 2 Case 13 = 190 = 270 = ( + ) / 2 Case 14 = 180 = 250 = ( + ) / 2 Case 15 = 210 = 260 = ( + ) / 2 End Select End Sub Private Sub Combo4_Click() Select Case Case 0 = 169 = 217 = ( + ) / 2 Case 1 35 = 217 = 255 = ( + ) / 2 Case 2 = 217 = 269 = ( + ) / 2 Case 3 = 241 = 286 = ( + ) / 2 Case 4 = 207 = 269 = ( + ) / 2 Case 5 = 241 = 286 = ( + ) / 2 Case 6 = 163 = 197