【正文】 Title, 1, sLen Abs(I MaxSpace)) End If End If = tmpStr End Sub Form2 窗體代碼 Option Explicit Dim words As String Dim ii As Integer Dim txtword As String Dim lenth As Integer Private Sub Command1_Click() 25 齒輪介紹 .Show Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() 齒輪介紹 .Show Unload Me End Sub Private Sub Command4_Click() End End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub Form_Load() = 齒輪傳動參數(shù)設計系統(tǒng) :請選擇傳動設計類型 words = = 150 26 = 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 Form3 窗體代碼 Dim words As String Dim ii As Integer Dim txtword As String Dim lenth As Integer Private Sub Combo1_Click() Select Case Case 0 Ge = 1 27 Case 1 Ge = 2 Case 2 Ge = 3 End Select End Sub Private Sub Combo2_Click() Select Case Case 0 Wl = 1 Case 1 Wl = 2 Case 2 Wl = 3 End Select End Sub Private Sub Combo3_Click() Select Case Case 0 r = 1 Case 1 r = 2 28 End Select End Sub Private Sub Command1_Click() Lh = P = T = * * 10 ^ 6 / N1 = I = Chikuanxishu = On Error GoTo lbl: If = Then MsgBox 功率為初始數(shù)據(jù)，請輸入功率 , vbOKOnly, 警告 Exit Sub lbl: If 0 Then MsgBox amp。用 PrintForm打印 19 39。如何使用“屬性窗口”來設置屬性呢 ?首先，打開屬性窗口，屬性窗口顯示所選窗體或控件的屬性設置值；然后， 從屬性列表中選定屬性項；接著，在右列輸入或選定新的屬性設置值。 在圖 32中，模塊 1包括：輸入原始數(shù)據(jù)，確定，選擇原動機、工作機類型，選擇齒輪布置、嚙合情況，選擇齒輪材質及熱處理方式，確定硬度值 HB，計算極限應力；模塊 2包括：模塊 1的全部功能，確定變位后中心距，初選及端面模數(shù)，初選變位系數(shù)；模塊 3包括：確定設計準則，計算轉矩，初取小齒輪直徑及齒數(shù)，確定齒輪精度等級； 16 模塊 4包括：確定各項參數(shù)，幾何尺寸計算，應力及許用應力計算；模塊 5包括：確定設計準則，主要幾何尺寸計算，確定各齒變位系數(shù)及齒輪精度等級，應力及許用應力計算； 創(chuàng)建應用程序界面 建立 Visual Basic應用程序的第一步是創(chuàng)建窗體，然后在創(chuàng)建的窗體上繪制構成界面的控件。 菜單項的分組 菜單項的分組是通過菜單欄分隔線實 現(xiàn)的。按照Windows的界面設計原則，頂層菜單訪問鍵的形式是 Alt十字母鍵；或 者在菜單打開后用字母鍵激活一個菜單項。菜單選項的可用與禁止有兩種方法可以實現(xiàn)，一是利用菜單編輯器中的“有效”選項，二是通過代碼來改變改選項的 enabled屬性實現(xiàn)。因此本系統(tǒng)設計時根據(jù)對現(xiàn)實對象的認識和理解，設計出簡潔直觀易用的用戶界面。對不常用操作和至關重要的操作提供“向導”，幫助用戶正確的實現(xiàn)操作；在屏幕上提供對話框來對 用戶操作進行信息反饋。用戶在初次接觸這個軟件就感覺一目了然，不需要多少培訓即可方便地上手使用。 對 于線圖，采用擬合算法將其擬合成多項式方程，在計算程序中，直接利用這些方程式。第一步，根據(jù)式 (15)及式 (16)求出線性方程組式 (17)的各個系數(shù) 1S 及常數(shù)項 kT 以建立方程組；第二步，求解線性方程組式 (27)。 擬合原理 擬合基本原理如下： 如圖 11所示的一組數(shù)據(jù)可以用一個 m次多項式 7 ? ? 12 1 11 2 2 1 1... mm m jm m m jjP x x x x x x? ? ? ? ? ????? ?? ? ? ? ? ? ? ? （ 11） 來擬合，即用多項式近似代替這組數(shù)據(jù)的函數(shù) y=f(x)。例如發(fā)生鼠標單擊、鍵盤輸入等事件時 ,由用戶編寫的代碼控制這些事件的響應 ,這就是所謂的事件驅動編程。相對而言， VB簡單易學 ,變量定義不太嚴密 ,對于非專業(yè)程序員而言功能足夠強大。隨著計算機技術的發(fā)展，出現(xiàn)了新的設計模式，齒輪傳動的參數(shù)設計已由手工轉向計算機自動完成。為達到齒輪類產品的系列化、標準化、通用化的要求，實現(xiàn)在不同的參數(shù)和要求的情況下能夠快速的、較為精確的得出齒輪所需的各種參數(shù)，從而以減少零件的種數(shù)，縮短設計時間，提高加工效率，便于生產管理，有利于產品的更新改型和獲得較高的經濟效益。齒輪傳動有 1）效率高，像一級圓柱齒輪傳動的效率可達 99%實用意義很大。在設計方案的選定，設計資料的收集，手冊和國家標準規(guī)范的運用，零部件及總裝圖的繪制等方面有較全面的鍛煉。 在選擇程序語言時，要考慮開發(fā)語言的功能是否強大，技術是否先進，使用是否方便，同時還要考慮開發(fā)所花費的時間及效果?；趯ο蟮目梢暬绦蛟O計，使程序設計員不再是單純地從代碼的第一行一直寫到最后一行，而是考慮如何創(chuàng)建對象，利用對象來簡化程序設計，將軟件開發(fā)的設計階段與實現(xiàn)階段緊密地連接在一起。 開發(fā)語言選擇 在齒輪傳動的參數(shù)設計模塊中，采用 。 可視化設計 同其他的一些可視化程序開發(fā)工具一樣 , VB在設計應用程序界面時可以說是“所見即所得”，在設計時 ,頭腦中所想象的應用程序界面 ,完全可以通過鍵盤鼠標以及徒手畫出來 ,而不是編制 大量的代碼然后再編譯 生成 ,如果需要修改 ,也是利用鍵盤鼠標和手畫 ,而底層的一些程序代碼由 VB自動生成或修改。 擬合理論 在齒輪參數(shù)設計的計算中，常常遇到用線圖表達參數(shù)間的函數(shù)關系。 要使φ =φ（α 1,α 2,? ,α m,α m+1）為極小，（α 1,α 2,? ,α m,α m+1）必須滿足下式 11111 1 1 = 2 ( ) ( )n m mjjj i i j i ii j jkkX y X y? ????????? ? ??? ? ? ? ?? ? ? = ? ?1 11112nm jkj i iij x y X?? ???? ??? = 211 1 12n n nj k kj i i ij i iX y X? ? ? ?? ? ????????? ? ? (14) kS = 11n kii X ??? (15) kT = 11n kiii yX??? (16) 則式（ 14）可表示為 : k???? = 1 112mj j k kj ST????????????? 111mj j k kj ST????? ??=0， （ k = 1， 2，?， m， m+1） 即 1 1 2 2 1 1 1... mmS S S T? ? ???? ? ? ? 2 1 3 2 2 1 2... mmS S S T? ? ???? ? ? ? 1 1 2 2 2 1 1 1...m m m m mS S S T? ? ?? ? ? ? ?? ? ? ? (17) 解線性方程組 (17)，便可以求得多項式 ??mPx的待定系數(shù) j? =（ 1， 2，? ,m,m+1）。為控制誤差在合理的范圍內，齒輪傳動參數(shù)設計系統(tǒng)涉及的所有線圖均控制偏差平方和與其值的誤差不超過 102。 以 40Cr調質來說明，其接觸疲勞極限擬合公式為σ Hlim=331+，查手冊可知其硬度范圍為 241— 286HBS，取結點數(shù) 8個，由表 22可知，其偏差平方和與最小圖值之比為 0. 0062,誤差不到 0. 01,滿足精度要 求。 設置常用操作的快捷方式 對常用操作，如窗體的最小化、最大化、關閉，文件的存盤、另存等設置快捷方式。 操作可逆 操作應該可逆，這對于不具備專門知識的操作人員相當有用。一個好的菜單設計，不僅能使系統(tǒng)美觀，而且能使操作者使用方便，還可避免誤操作帶來的嚴重后果。對于一些常用的功能菜單項，有約定俗成的快捷鍵，例如，文件存盤用 CRTL十 S， 14 打印用 CTRL + P，等等，在設計菜單時嚴格遵循這些約定。如果該菜單中有一子菜單項的標題為“保存 (amp。 3 系統(tǒng)設計過程 信息描述 15 對于齒輪傳動參