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