【正文】 lick () = — = End Sub …………………………如果用戶輸入的數(shù)值不在提示的范圍內(nèi)，則會出現(xiàn)錯誤提示。如果最后文本框中沒有顯示數(shù)值，也就是沒有給Φd賦值時，無法進入下一個窗體，會出現(xiàn)錯誤提示對話框。部分程序如下：……………………………………Private Sub CommandButton2_Click() 39。檢驗是否輸入數(shù)據(jù)ka = Val()φd = Val()msg1$ = 齒寬系數(shù)不在規(guī)定范圍之內(nèi)，請重新輸入！Title1$ = 輸入錯誤If TextBox10 = ThenMsgBox 請輸入齒寬系數(shù)！, vbOKOnly, 錯誤對話框ElseIf = True And (φd Or φd ) ThenMsgBox msg1$, 32, Title1$ElseIf = True And (φd Or φd ) ThenMsgBox msg1$, 32, Title1$ElseIf = True And (φd Or φd ) ThenMsgBox msg1$, 32, Title1$ElseEnd IfEnd Sub ……………………………………… 動載系數(shù)Kv值的實現(xiàn)方法動載系數(shù)Kv是由齒輪精度等級和速度共同決定的，如圖31。圖31 動載系數(shù)Kv對于確定精度等級的齒輪，動載系數(shù)Kv僅由節(jié)線速度決定，也就是說可用一元二次方程來表示。根據(jù)查到的論文，方程擬合的結(jié)果如下：精度等級為6級時，精度等級為7級時，精度等級為8級時，精度等級為9級時，精度等級為10級時，精度等級為11級時，精度等級為12級時，部分程序如下： ………………………………If jingdu = 6 Thenkv = + * v * v * vElseIf jingdu = 7 Thenkv = + * v * v * vElseIf jingdu = 8 Thenkv = + * v * v * vElseIf jingdu = 9 Thenkv = + * v * v * vElseIf jingdu = 10 Thenkv = + * v * v * vElseIf jingdu = 11 Thenkv = + * v * v * vElseIf jingdu = 12 Thenkv = + * v * v * vEnd If ……………………………… 齒輪接觸疲勞強度極限和彎曲疲勞強度極限線圖的擬合方法齒輪的材料有很多種，各自對應(yīng)了一種或多種的熱處理方式，當選定了齒輪的材料和熱處理方式時，也就確定了齒輪的硬度范圍。由于齒輪的接觸疲勞強度極限σHlim和齒輪的彎曲疲勞強度極限σFE只和硬度值大小有關(guān)系，且基本上一階線性相關(guān)，所以一旦選擇了具體的硬度值，齒輪的接觸疲勞強度極限σHlim和齒輪的彎曲疲勞強度極限σFE也就隨之確定了。根據(jù)作者設(shè)計，只要選擇了材料和熱處理的方式，程序便會將對應(yīng)的最大硬度值賦給scrollbar的max，最小值賦給scrollbar的min。此時移動滾動條便會將所對應(yīng)的硬度值賦給下面的textbox中，此時用戶可以定量選擇硬度值。本設(shè)計只考慮到了齒輪材料質(zhì)量和熱處理品質(zhì)為中等要求時的傳動，也即是MQ的水平，所以設(shè)計時取得點應(yīng)在MQ和ML兩條直線之間。由于σHlim和σFE與硬度值一階線性相關(guān)，因此只要知道了硬度值最大、最小時對應(yīng)的接觸疲勞強度極限值或彎曲疲勞強度極限值的大小，兩點確定一條直線，直線方程就能擬合出來。此時只要確定齒輪的硬度值，接觸疲勞強度極限σHlim和齒輪的彎曲疲勞強度極限σFE只和硬度值也就確定了，并且顯示在窗體下面的文本框中。圖32 調(diào)制處理的碳鋼、合金鋼的接觸疲勞強度極限就以40Cr(調(diào)制)為例，闡述這種方法，由參考資料[3]表101，40Cr(調(diào)制)的硬度值最小值（）為241HBS，最大值（）為286HBS。由圖32可知，當硬度值為241HBS時，我們可取接觸疲勞強度極限（σHlimmin）為550Mpa，當硬度值為286HBS，取接觸疲勞強度極限（σHlimmax）為608Mpa。也就是兩個點（，σHlimmin）和（，σHlimmax）。則擬合的直線方程為：按照這個公式計算，當硬度值取280HBS時，接觸疲勞強度極限為600Mpa，和查圖所得基本相同。同理，其他的材料的接觸疲勞強度極限和彎曲疲勞強度極限值也是類似的方法。部分程序如下： …………………………Private Sub ScrollBar1_Change() = σHlim1 = σHlim1min + ( ) * (σHlim1max σHlim1min) / ( )σFE1 = σFE1min + ( ) * (σFE1max σFE1min) / ( ) = CInt(σHlim1) = CInt(σFE1)End Sub ………………………… 齒輪的接觸疲勞壽命系數(shù)KHN只和材料和應(yīng)力循環(huán)次數(shù)有關(guān)，如圖33。圖33 接觸疲勞壽命系數(shù)KHN圖中的1，2，3，4分別代表了不同的材料和熱處理方式。由圖33可知，當應(yīng)力循環(huán)次數(shù)N的值的對數(shù)均與分布時，曲線為若干段直線構(gòu)成的折線，此時可用方程表示，曲線方程的格式為。例如，“HT250”、HT300”、“HT350”對應(yīng)的折線就是圖中的3號線。由圖可知，當N100000時，接觸疲勞強度極限KHN=，當100000N2000000時，圖像是一條經(jīng)過點（100000，）和（2000000，）的直線，將這兩個點的坐標帶入曲線方程，即可解得參數(shù)a,b的值，a=，b=，此時得到了當N在100000和2000000之間，接觸疲勞強度極限的方程：。同理，運用這種方法我們可以找到當N2000000時KHN1與N相關(guān)的方程。對于對于1號線、2號線和4號線，也是運用了這種方法來求出材料的接觸疲勞強度極限KHN與應(yīng)力循環(huán)次數(shù)N之間的方程。部分程序如下： ………………………………If = HT250 Or = HT300 Or = HT350 Then If N1 0 And N1 = 100000 Then KHN1 = If N1 100000 And N1 = 2000000 Then KHN1 = * (Log(N1) / Log(10)) + If N1 2000000 Then KHN1 = * (Log(N1) / Log(10)) + End If ………………………………螺旋角影響系數(shù)Yβ值的大小僅和螺旋角β（此文中β均為角度制）以及縱向重合度εβ的大小有關(guān)，如圖34。圖34 螺旋角影響系數(shù)Yβ由圖34可知，并且可以發(fā)現(xiàn)當β30176。時，Yβ的值僅與εβ有關(guān)，且隨εβ線性增加，Yβ在線性減小，可知此時Yβ與εβ一階線性相關(guān)?？稍O(shè)，可帶入（，）和（，）此可以解得參數(shù)值a=，b=1。得到了當β30176。時，螺旋角影響系數(shù)Yβ與縱向重合度的方程：。根據(jù)作者查到的文獻資料顯示，當β30176。有如下公式可用：(若εβ1，按εβ=1帶入)這個公式已得到驗證，精確度很高，可以使用。部分程序如下：………………………………If εβ 1 Thenεβ = 1ElseEnd IfIf β= 30 ThenYβ = 1 εβ * β/ 120ElseYβ = 1 * εβEnd If ………………………………由圖可知，當齒輪的法面壓力角αn=20176。時，區(qū)域系數(shù)ZH的大小與螺旋角β近視呈拋物線關(guān)系。圖35 區(qū)域系數(shù)ZH (αn=20176。)首先可設(shè)出拋物線的方程為，方程中有三個未知參數(shù)，需要三個點的坐標來求出這些個參數(shù)。在圖35上曲線上取三個點分別為（，）、（，）、（25，），將這些坐標帶入方程中，可解出a= ,b= ,c= ,得到了區(qū)域系數(shù)ZH與螺旋角β的方程：經(jīng)作者多次取點校正，該曲線擬合所得方程的精度很高，已滿足一般齒輪設(shè)計精度要求。 齒間載荷分配系數(shù)KHα、KFα的程序?qū)崿F(xiàn)方法一對相互嚙合的斜齒圓柱齒輪，如在嚙合區(qū)中有兩對（或多對）齒同時工作時，則載荷應(yīng)分配在這兩對齒（或多對）齒上。由于齒距誤差和彈性變形等原因，總載荷并不是按長度的比例在兩條接觸線之間均與分布的，所以有必要引入齒間載荷分配系數(shù)Kα.齒間載荷分配系數(shù)與齒輪精度等級和是否表面硬化處理有關(guān)，見表32。表32 齒間載荷分配系數(shù)KHα、KFαKAFt/b≥100N/mm100N/mm精度等級二組56785級或更低表面硬化處理KHα≥KFα未經(jīng)表面硬化處理KHα≥KFα雖然表32只介紹了8級及以下精度等級的齒輪的齒間載荷分配系數(shù)，但根據(jù)作者查的資料顯示，當齒輪精度等級為9級或者9級以上時。其中KHα和KFα分別為按齒間接觸疲勞強度計算時用的齒間載荷分配系數(shù)和按彎曲疲勞強度計算時用的齒間載荷分配系數(shù)。本設(shè)計充分考慮到了齒輪是否進行了表面硬化處理， = 1就是指齒輪進行了表面硬化處理， = 0沒有進行表面硬化處理。部分程序如下：………………………………If ka * ftt / b 100 ThenIf = 1 ThenIf jingdu = 6 Thenkhα = kfα = ElseIf jingdu = 7 Thenkhα = kfα = ElseIf jingdu = 8 Thenkhα = kfα = ElseIf jingdu = 9 Thenkhα = kfα = End IfElseIf jingdu = 6 Thenkhα = 1kfα = 1ElseIf jingdu = 7 Thenkhα = kfα = ElseIf jingdu = 8 Thenkhα = kfα = ElseIf jingdu = 9 Thenkhα = kfα = End IfEnd IfElsekhα = kfα = End If………………………………、KFβ的程序?qū)崿F(xiàn)方法齒輪的齒向載荷分布系數(shù)Kβ可分為KHβ和KFβ，其中KHβ為按齒面接觸疲勞強度計算時用的系數(shù)，而KFβ為按齒根彎曲疲勞強度計算時的所用的系數(shù)。 按齒面接觸疲勞強度計算時齒向載荷分布系數(shù)KHβ由參考資料[3]圖1013可知，圓柱齒輪的KHβ的大小與齒輪在軸上的布置情況、齒輪的精度等級、齒輪寬度b等因素有關(guān)，這個表格很大很麻煩，作者通過分析數(shù)據(jù)實現(xiàn)了通過方程來表達KHβ與其它因素之間的定量關(guān)系，方程擬合的精度比較高，誤差很小，滿足一般的設(shè)計要求。部分程序如下：…………………………If = True And jingdu = 6 Then khβ = + * φd * φd + * bIf = True And jingdu = 7 Then khβ = + * φd * φd + * bIf = True And jingdu = 8 Then khβ = + * φd * φd + * bIf = True And jingdu = 9 Then khβ = + * φd * φd + * bIf = True And (jingdu = 10 Or jingdu = 11 Or jingdu = 12) Then khβ = + * φd * φd + * b…………………………… = True就是代表兩支撐相對小齒輪做對稱布置，這段程序?qū)崿F(xiàn)了當兩支撐相對小齒輪做對稱布置時，齒向載荷分布系數(shù)與精度等級、齒寬系數(shù)、齒輪寬度之間的定量關(guān)系。 按齒根彎曲疲勞強度計算時齒向載荷分布系數(shù)KFβ齒輪的KFβ可和KHβ之值、齒寬b與齒高h之比b/h有關(guān)，見圖36。圖36 彎曲強度計算的齒向載荷分布系數(shù)KFβ由圖36可知，KFβ的取值計算非常繁瑣，根據(jù)作者查的資料顯示，有如下的經(jīng)驗公式可用，將圖標成功地轉(zhuǎn)化為方程。nn = (Φd Z1 / )2/(1 +Φd Z1/ + (Φd Z1/)2)且KFβ= KHβnn。部分程序如下：…………………………Dim nn As Singlenn = (φd * z1 / ) ^ 2 / (1 + (φd * z1 / ) + (φd * z1 / ) ^ 2)kfβ = (khβ) ^ nn…………………………4 基于AutoCAD/VBA斜齒輪參數(shù)化設(shè)計的設(shè)計過程 基于AutoCAD/VBA斜齒輪參數(shù)化設(shè)計的主程序框圖斜齒輪計算機輔助設(shè)計系統(tǒng)根據(jù)斜齒輪傳動的設(shè)計步驟，嚴格按照設(shè)計公式進行設(shè)計計算。剛進入程序第一個窗體是登錄窗體，登錄窗體上只有一些設(shè)計者指導(dǎo)者信息和標題。第二個窗體是供初始參數(shù)輸入的窗體。第三個窗體是選擇載荷狀態(tài)和原動機以確定使用系數(shù)KA，選擇齒輪布置方式以確定齒寬系數(shù)Φd。第四個窗體用于選擇大小齒輪的材料和熱處理方式，確定硬度值，從而得到接觸疲勞強度極限和彎曲疲勞強度極限。第五個窗體是用于選擇齒輪精度，初選螺旋角和載荷系數(shù)，輸入接觸疲勞安全系數(shù)和彎曲疲勞安全系數(shù)。第六個窗體根據(jù)以上輸入的參數(shù)經(jīng)過強度計算得到分度圓直徑和模數(shù)，然后選擇標準模數(shù)，計算中心距并圓整，根據(jù)圓整的中心距修正螺旋角。第七個窗體將得到一系列的設(shè)計結(jié)果顯示出來，并且