【正文】 ub Form5 窗體代碼 Dim words As String Dim ii As Integer Dim txtwor。 MPa = 70 + * amp。 MPa = 349 + * amp。 MPa Case 10, 11 = 222 + * amp。 MPa Case 1 = 354 + * amp。 fTitle Else If I 0 Then tmpStr = Mid(fTitle, Abs(I), sLen + I) Else tmpStr = Space(I) amp。 本窗體其它對象的代碼如下 : 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。 設(shè)置控件的屬性 在設(shè)置好控件之后，緊接著就應(yīng)該給創(chuàng)建的控件設(shè)置屬性，用“視圖”菜單中的 17 “屬性窗口”命令或利用工具欄中的“屬性窗口”命令打開屬性窗口。 功能過程描述 與傳統(tǒng)的齒輪傳動設(shè)計相比，本系統(tǒng)具有計算精確，設(shè)計速度快、提供的可行方案多等優(yōu)點，流程圖如圖 26所示，具體步驟如下： 1． 選擇齒輪 類型； 2．選擇齒輪材料、熱處理方法，求出許用應(yīng)力； 3．確定設(shè)計準則； 4．進行設(shè)計計算，求出齒輪的各項基本參數(shù)； 5．計算齒輪幾何尺寸，確定齒輪精度等級； 6．校核齒輪應(yīng)力； 7．?dāng)?shù)據(jù)保存及輸出。S)，當(dāng)文件菜單展開后，可以用字母鍵“ S來使用這個菜單項。 具有子菜單的菜單項或者頂層菜單不能定義快捷鍵，只能定義訪問鍵。當(dāng)因為某種原因使得某個選項所代表的功能不能被實現(xiàn)時，就應(yīng)該禁止該選項被選中，表現(xiàn)在界面上為灰色，反之為正常黑色。這樣的設(shè)計，不僅會給自己的設(shè)計增加難度，而且往往使界面看上去龐雜，對用戶沒有真正的好處。 提供信息反饋和聯(lián)機幫助 加強“人機對話”，對用戶的重要操作有信息反饋，這對于幫助廣大用戶，特別是不熟練用戶更好地使用尤為重要。一個優(yōu)秀的用戶界面即是一個直觀的、對用戶透明的界面。 對于數(shù)表，由于數(shù)據(jù)不變化且數(shù)據(jù)量不太多，直接將其編入程序中，利用條件判 10 斷語句在計算程序中自動讀取。 9 擬合運算 擬合曲線 f(x)的運算分兩步進行。工程上常 采用第二種方法進行曲線擬合 , 本系統(tǒng)采用控制偏差平方和最小的方法進行曲線擬合。 事件驅(qū)動編程 Windows操作系統(tǒng)出現(xiàn)以來 ,圖形化的用戶界面和多任 務(wù)多進程的應(yīng)用程序要求程序設(shè)計不能是單一性的 ,在使用 VB設(shè)計應(yīng)用程序時 ,必須首先確定應(yīng)用程序如何同用戶 6 進行交互。 除了 VB之外 ,當(dāng)前能夠編制 Windows應(yīng)用程序的可視化編程工具還有很多 ,所針對的 編 程 領(lǐng) 域 也 各 有 側(cè) 重 , 就 微 軟 系 列 的 可 視 化 開 發(fā) 工 具 而 言 , 就有VB,VisualC++,VisualJ++,Visual Foxpro等 ,其 中 Visual Foxpro是針對數(shù)據(jù)庫編程的開發(fā)工具； Visual J++能結(jié)合微軟的一貫 編程風(fēng)格，很方便進行 Java的應(yīng)用開發(fā)，但它的移植性較差； Visual C++是為專業(yè)程序設(shè)計員提供的開發(fā)工具 ,變量聲明和定義嚴密 ,功能強大靈活 ,必須經(jīng)過相當(dāng)?shù)呐Σ拍苷莆?。齒輪傳動 是機械傳動中應(yīng)用最為廣泛的一種傳動裝置，傳統(tǒng)的齒輪傳動參數(shù)設(shè)計計算，過程復(fù) 雜，需要查取很多圖、表，設(shè)計費時、效率低，且手工計算容易出錯。 本文主要介紹圓錐 齒輪傳動參數(shù)設(shè)計系統(tǒng)開發(fā)，通過 visual 的設(shè)計。 齒輪傳動是機械傳動中最重要的傳動之一，型式很多，應(yīng)用廣泛 ，傳遞的功率可達近十萬千瓦，圓周速度可達 200m/s。畢業(yè)設(shè)計說明書不僅反映了設(shè)計的思想內(nèi)容，方法和步驟，而且還反映了學(xué)生的文理修養(yǎng)和作風(fēng)。在齒輪 傳動 參數(shù)設(shè)計中，采用 VB語言作為開發(fā)工具，這是由于 VB是一種在 windows環(huán)境下的、可視的面對象的程序設(shè)計語言，在其圖形用戶界面上通過操作界面元素，如菜單、按鈕、對話框、編輯框、單選框、復(fù)選框、列表框和滾動等，由可視開發(fā)工具自動生成應(yīng)用軟件，并且 VB開發(fā)的應(yīng)用軟 2 件具有良好的可移植性和可擴充性，所以本設(shè)計采用 VB語言。 研究的意義與目的 齒輪傳動的參數(shù)設(shè)計技術(shù)。之所以 選擇 VB語言作為開發(fā)工具，是因為 Microsoft Visual Basic(簡稱 VB)是一種在 Windows環(huán)境下的、可視的面向?qū)ο蟮某绦蛟O(shè)計語言，它將 Windows編程的復(fù)雜性封裝起來，使用可視化設(shè)計應(yīng)用程序，提高了應(yīng)用程序的開發(fā)效率，并且具有功能強大，易學(xué)易用，編程簡潔等特點。 VB為用戶提供大量的界面元素 (在 VB中稱為控件對象 ),這些控件對象對于熟悉Windows應(yīng)用程序的用戶而言是一點也不陌生 ,如“窗體”、“菜單”、“命令按鈕”、“工具按鈕”、“檢查框”等等 ,用戶只需要利用鼠標(biāo)、鍵盤把這些控件對象拖動到適當(dāng)?shù)奈恢?,設(shè)置它們的大小、形狀、屬性等 ,就可以設(shè)計出所需的應(yīng)用程序界面。常用的曲線擬合方法有兩類：一類是嚴格通過被擬合曲線 f(x)各結(jié)點（ xi,yi）的曲線擬合法；另一類是不通過被擬合曲線 f(x)各結(jié)點（ xi,yi），但嚴格控制各結(jié)點與擬合曲線對應(yīng)的偏差而作的擬合曲線。實際應(yīng)用中常取 m＜ n。 2 關(guān)鍵技術(shù) 數(shù)表和線圖的程序化處理 齒輪參數(shù)設(shè)計時，需要查閱大量的圖表，為了實現(xiàn)設(shè)計過程的自動化，必須對圖表作預(yù)處理，使其程序化。 21 常用齒輪材料的接觸疲勞極限σ和彎曲疲勞極限σ 序號 材料 熱處理 σ Hlim /MPa σ Flim /MPa 1 碳鋼 正火 220+ 250+ 2 鑄鋼 正火 198+ 170+ 3 碳鋼 調(diào)質(zhì) 354+ 349+ 4 鑄鋼 調(diào)質(zhì) 289+ 202+ 5 合金鑄鋼 調(diào)質(zhì) 245+ 293+ 6 合金鋼 調(diào)質(zhì) 331+ 335 +0. 86HBS 7 調(diào)質(zhì)鋼 滲碳 550 + 12HRC 14HRC一 50 8 合金鋼 滲碳 1475 830 9 調(diào)質(zhì)鋼 氮化 1000 690 10 球墨鑄鐵 正火 272+ 120+ 11 灰口鑄鐵 222+ 70+ 11 表 22 接觸疲勞極限圖值與計算值比較 硬 度值 245 250 255 260 265 270 275 280 計算值 696 圖值 690 697 704 711 718 725 732 739 偏差 1 絕對最大差值 偏差平方和 誤差 界面設(shè)計 VB窗體的設(shè)計和規(guī)劃不僅影響到應(yīng)用程序外觀的可觀賞性，而且對應(yīng)用程 序的可操作性和易用性等也有很重要的 作用。使常用的操作直觀、快捷、方便，這不僅會提高用戶的工作效率，還使得界面在 12 功能實現(xiàn)上簡明和高效。 采用簡潔直觀的界面風(fēng)格 在界面設(shè)計中，極力去模仿現(xiàn)實世界的對象是人們普遍易犯的錯誤。本系統(tǒng)在菜單設(shè)計中采用了如下技術(shù)： 菜單項的可用與禁止、可見與隱藏 為了表示菜單項的一 些特殊功能，以及 控制用戶的操作流程，要用到菜單選項的可用與禁止、可見與隱藏屬性。為菜單選項定義好快捷鍵之后，菜單上該選項的后面就出現(xiàn)快捷鍵的文字表示。S)，在菜單中就表現(xiàn)為“保存 (amp。 系統(tǒng)經(jīng)設(shè)計計算得出的輸出數(shù)據(jù)是 :齒輪模數(shù) m，中心距 a，大 (小 )齒輪齒數(shù) Z，大 (小 )齒輪分度圓直徑 d，轉(zhuǎn)矩，齒寬 B，應(yīng)力及許用應(yīng)力，齒輪精度等級，齒輪實際螺旋角度，節(jié)圓直徑，端面重合度等。一旦我們將控件的大小和位置調(diào)整好后，就可以鎖定控件的位置，可以從“格式”菜單上選定“鎖定控件”或在窗體編輯器工具欄上單擊“鎖定控件”。這個語法采用 “ Object. property， Command2是對象 ， Caption是屬性 ， 響應(yīng)應(yīng)用程序運行中發(fā)生的事件時 ，可以用這種語法來改變?nèi)魏未绑w或控件的屬性設(shè)置值。 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。 MPa = 250 + * amp。 MPa = 293 + * amp。 MPa Case 1 = 354 + * amp。 MPa Case 10, 11 = 222 + *