' 程序名称：圆柱直齿轮设计' Author:ncf' Date:2016-10-29' Email:1476879092@qq.com' log:' 2016-10-29:CompletePublic Check3_flag As BooleanPrivate Sub Check1_Click() If Check2.Value = 1 Then Check2.Value = 0End SubPrivate Sub Check2_Click() If Check1.Value = 1 Then Check1.Value = 0End SubPrivate Sub Check3_Click() If Check3.Value = 1 Then Check3_flag = True '开式为True Check3.Caption = "开式传动" Else Check3_flag = False '开式为True Check3.Caption = "闭式传动" End IfEnd SubPrivate Sub Command1_Click()'数据的输入 p_0 = Val(Text1.Text) '输入的功率 N_1 = Val(Text5.Text) '小齿轮转速 S_a = Val(Text21.Text) '工作机载荷性质代码 P_w = Val(Text9.Text) '原动机代码 W_N = Val(Text10.Text) '工作两班 H_0 = Val(Text22.Text) '一班的时间 D_A = Val(Text11.Text) '工作时间 j = Val(Text23.Text) 'j 为每转一圈齿轮啮合次数 MA1 = Val(Text6.Text) '小齿轮材料热处理代码 MA2 = Val(Text18.Text) '大齿轮材料热处理代码 HB_x = Val(Text7.Text) '小齿轮硬度 HB_d = Val(Text19.Text) '大齿轮硬度 K_ht = Val(Text8.Text) '接触试选载荷系数 K_ft = Val(Text20.Text) '弯曲试选载荷系数 FD = Val(Text15.Text) '齿宽系数 RF = 1 '设计准则的选用标志,注：这里我们直接同时采用两个标准设计，不采用一个设计，一个校核 pai = 3.1415926536 '圆周率pi ha = Val(Text2.Text) '齿顶高系数 Alpha = Val(Text14.Text) / 180 * pai '分度圆压力角 JZ = Val(Text3.Text) '精度等级 CJ = Val(Text13.Text) '支撑结构选择'确定计算方式 flag_Js = 0 If Check1.Value = 1 Then flag_Js = 1 If Check2.Value = 1 Then flag_Js = 2 If flag_Js <> 0 Then '检测空缺数据 flag_space = 1 If flag_Js = 1 Then '齿数已知 ZV1 = Val(Text4.Text) '小齿轮齿数 ZV2 = Val(Text16.Text) '大齿轮齿数 Text12.Text = 0 If ZV1 = 0 Or ZV2 = 0 Or p_0 = 0 Or N_1 = 0 Or S_a = 0 Or P_w = 0 Or W_N = 0 Or H_0 = 0 Or D_A = 0 Or j = 0 Or MA1 = 0 Or MA2 = 0 Or HB_x = 0 Or HB_d = 0 Or K_ht = 0 Or K_ft = 0 Or FD = 0 Or ha = 0 Or Alpha = 0 Or JZ = 0 Or CJ = 0 Then MsgBox ("请确保设计参数填写正确") Else u = ZV2 / ZV1 Text12.Text = u Text17.Text = Val(Text5.Text) / u '大齿轮转速 flag_space = 0 '数据无空缺 End If Else '传动比已知 If Check3_flag = False Then If HB_x > 350 Then ZV1 = 18 Else ZV1 = 24 '闭式硬齿面默认18齿，闭式软齿24齿 Else ZV1 = 18 '开式18齿 End If u = Val(Text12.Text) '齿数比 If u = 0 Or p_0 = 0 Or N_1 = 0 Or S_a = 0 Or P_w = 0 Or W_N = 0 Or H_0 = 0 Or D_A = 0 Or j = 0 Or MA1 = 0 Or MA2 = 0 Or HB_x = 0 Or HB_d = 0 Or K_ht = 0 Or K_ft = 0 Or FD = 0 Or ha = 0 Or Alpha = 0 Or JZ = 0 Or CJ = 0 Then MsgBox ("请确保设计参数填写正确") Else ZV2 = Round(ZV1 * u) '大齿轮齿数 Text4.Text = ZV1 '小齿轮齿数 Text16.Text = ZV2 '小齿轮齿数 Text17.Text = Val(Text5.Text) / u '大齿轮转速 flag_space = 0 '数据无空缺 End If End If '计算 If flag_space = 0 Then '检测空缺数据 '通用数据的计算 '转矩的计算 T_1 = 9.55 * (10 ^ 6) * p_0 / N_1 '许用应力的计算 '应力循环次数的计算 N1 = 60 * j * N_1 * (W_N * H_0 * D_A) N2 = N1 / u '寿命系数 Call Zichengxu1(MA1,N1,KB1) Call Zichengxu1(MA2,N2,KB2) Call Zichengxu3(MA1,KH1) Call Zichengxu3(MA2,KH2) '许用应力 Call Zichengxu2(MA1,HB_x,KB1,CB1) Call Zichengxu2(MA2,HB_d,KB2,CB2) Call Zichengxu4(MA1,KH1,CH1) Call Zichengxu4(MA2,KH2,CH2) '计算重合度 Call arccoa(ZV1 * Cos(Alpha) / (ZV1 + 2 * ha),Alpha1) Call arccoa(ZV2 * Cos(Alpha) / (ZV2 + 2 * ha),Alpha2) e_Alpha = (ZV1 * (Tan(Alpha1) - Tan(Alpha)) + ZV2 * (Tan(Alpha2) - Tan(Alpha))) / 2 / pai '使用系数KA的查询 Call KA_find(S_a,P_w,KA) '按接触强度设计 '计算重合度系数 Z_e = Sqr((4 - e_Alpha) / 3) '计算ze zh U1 = 0.3 '泊松比 U2 = 0.3 E1 = 20.6 * 10000 '锻钢的d性模量 E2 = 20.6 * 10000 Call Zichengxu7(Alpha,U1,U2,E1,E2,ZH,ZE) '带入计算时数据的选用 If CH1 > CH2 Then CH = CH2 Else CH = CH1 '选接触疲劳许用应力小的 '试算分度圆直径 d_1t = ((2 * K_ht * T_1 / FD) * ((u + 1) / u) * ((ZH * ZE * Z_e) / CH) ^ 2) ^ (1 / 3) '计算系数KV Call KV_Js(ZV1,d_1t,N_1,JZ,KV) '调整小齿轮分度圆直径 Call Zichengxu8(HB_x,CJ,FD,KHB,KFB) KH = KV * KA * KHB '忽略齿间载荷分配系数K_Alpha D1 = d_1t * ((KH / K_ht) ^ (1 / 3)) m_H = D1 / ZV1 '按齿根弯曲强度设计 '计算重合度系数 Y_e = 0.25 + 0.75 / e_Alpha '修正系数的计算 Call Zichengxu5(ZV1,YFA1) Call Zichengxu5(ZV2,YFA2) Call Zichengxu6(ZV1,YSA1) Call Zichengxu6(ZV2,YSA2) YK1 = YFA1 * YSA1 / CB1 YK2 = YFA2 * YSA2 / CB2 '带入计算时数据的选用 If YK2 > YK1 Then YK = YK2 Else YK = YK1 '在弯曲疲劳强度的设计中也是选小的 '试算模数 m_1t = (2 * K_ft * T_1 * Y_e / (FD * ZV1 ^ 2) * YK) ^ (1 / 3) d_1t = m_1t * ZV1 '计算系数KV Call KV_Js(ZV1,d_1t_F,KV) '调整小齿轮模数 Call Zichengxu8(HB_x,KFB) KF = KV * KA * KFB m_F = m_1t * ((KF / K_ft) ^ (1 / 3)) '两种设计结果的处理 '已知传动比 If flag_Js = 2 Then '传动比已知 If m_H > m_F Then Call m_find(m_F,m_b) '标准化模数 Z_1 = Round(D1 / m_b) '修改小齿轮齿数 Z_2 = Round(Z_1 * u) '大齿轮齿数 d_1 = Z_1 * m_b '小齿轮直径 d_2 = Z_2 * m_b '大齿轮直径 A = (d_1 + d_2) / 2 '中心距 B_d = FD * d_1 '大齿轮齿宽 B_x = B_d + 7.5 '小齿轮齿宽 Else Z_1 = ZV1 '不修改齿数 Z_2 = ZV2 Call m_find(m_F,m_b) '标准化模数 d_1 = Z_1 * m_b '小齿轮直径 d_2 = Z_2 * m_b '大齿轮直径 A = (d_1 + d_2) / 2 '中心距 B_d = FD * d_1 '大齿轮齿宽 B_x = B_d + 7.5 '小齿轮齿宽 End If ElseIf flag_Js = 1 Then '齿数已知 If m_H > m_F Then m_ = m_H Else m_ = m_F End If Z_1 = ZV1 '不修改齿数 Z_2 = ZV2 Call m_find(m_,m_b) '标准化模数 d_1 = Z_1 * m_b '小齿轮直径 d_2 = Z_2 * m_b '大齿轮直径 A = (d_1 + d_2) / 2 '中心距 B_d = FD * d_1 '大齿轮齿宽 B_x = B_d + 7.5 '小齿轮齿宽 End If '显示输出 Text24.Text = m_b Text25.Text = A Text26.Text = Z_1 Text27.Text = Z_2 Text28.Text = d_1 Text29.Text = d_2 Text30.Text = B_x Text31.Text = B_d End If Else MsgBox ("请选择：计算方式") End IfEnd Sub'自定义子程序'KA的获取Sub KA_find(S_a,KA) S_a = S_a - 1 P_w = P_w - 1 Dim KA_array1() KA_array1 = Array(1#,1.1,1.25,1.5) Dim KA_array2 KA_array2 = Array(1.25,1.35,1.5,1.75) Dim KA_array3 KA_array3 = Array(1.5,1.6,1.75,2) Dim KA_array4 KA_array4 = Array(1.75,1.85,2,2.25) If S_a = 0 Then KA = KA_array1(P_w) ElseIf S_a = 1 Then KA = KA_array2(P_w) ElseIf S_a = 2 Then KA = KA_array3(P_w) ElseIf S_a = 3 Then KA = KA_array4(P_w) Else End IfEnd Sub'm的查询Sub m_find(m,m_b) Dim m_bz m_bz = Array(1,2.5,3,4,5,6,8,10) num_m = UBound(m_bz) - LBound(m_bz) For i = 0 To num_m If m < m_bz(i) Then m_b = m_bz(i) Exit For End If Next iEnd Sub'反余弦函数Sub arccoa(X1,Alpha1) Alpha1 = Atn(-X1 / Sqr(-X1 * X1 + 1)) + 2 * Atn(1)End Sub'计算KVSub KV_Js(Z1,D1,N0,KV) V = Z1 * 3.14159 * D1 * NO / 6000000! KV = (0.0104 + 0.003 * (JZ - 6)) * JZ * V + 1End Sub'老师提供的子程序Sub Zichengxu1(MA,N,KB) If MA > 27 Then GoTo 1035 If N <= 10000! Then GoTo 1025 If N > 10000! And N < 3000000! Then GoTo 1030 If N > 3000000! Then KB = 1!: GoTo 11251025: KB = 2.5: GoTo 11251030: KB = (3! * 10 ^ 6 / N) ^ (0.115): GoTo 11251035: If MA > 36 Or MA < 27 Then GoTo 1065 If N <= 1000! Then GoTo 1055 If N > 1000! And N < 3000000! Then GoTo 1060 If N > 3000000! Then KB = 1!: GoTo 11251055: KB = 2.5: GoTo 11251060: KB = (3! * 10 ^ 6 / N) ^ (0.115): GoTo 11251065: If MA > 46 Or MA < 36 Then GoTo 1095 If N <= 1000! Then GoTo 1085 If N > 1000! And N < 3000000! Then GoTo 1090 If N > 3000000! Then KB = 1!: GoTo 11251085: KB = 1.6: GoTo 11251090: KB = (3! * 10 ^ 6 / N) ^ (0.05900001): GoTo 11251095: If MA < 46 Then GoTo 1125 If N < 1000! Then GoTo 1115 If N > 1000! And N < 3000000! Then GoTo 1120 If N > 3000000! Then KB = 1!: GoTo 11251115: KB = 1.1: GoTo 11251120: KB = (3! * 10 ^ 6 / N) ^ (0.012)1125:End SubSub Zichengxu2(MA,HB,KB,CB) If MA > 15 Then GoTo 1160 On MA - 10 GoTo 1140,1145,1150,11551140: CB = 0.66 * (HB - 140) + 120: GoTo 12301145: CB = 0.6850001 * (HB - 140) + 350: GoTo 12301150: CB = 0.2 * (HB - 110) + 300: GoTo 12301155: CB = 0.6 * (HB - 110) + 340: GoTo 12301160: If MA > 27 Then GoTo 1190 On MA - 22 GoTo 1170,1175,1180,11851170: CB = 0.37 * (HB - 115) + 340: GoTo 12301175: CB = 0.75 * (HB - 115) + 380: GoTo 12301180: CB = 0.8 * (HB - 190) + 520: GoTo 12301185: CB = 0.47 * (HB - 190) + 460: GoTo 12301190: If MA > 36 Then GoTo 1210 On MA - 33 GoTo 1200,12051200: CB = 10 * (HB - 48) + 640: GoTo 12301205: CB = 3 * (HB - 56) + 840: GoTo 12301210: If MA = 44 Or MA = 45 Then GoTo 1220 If MA = 54 Or MA = 55 Then CB = 2! * (HB - 54) + 640: GoTo 12301220: CB = 2! * (HB - 54) + 7401230: CB = KB * CB / 1.375End SubSub Zichengxu3(MA,KH) If MA > 37 And FI = 1 Then GoTo 1545 If N <= 600000! Then GoTo 1530 If N > 600000! And N < 10000000# Then GoTo 1535 If N > 10000000# And N < 1000000000# Then GoTo 1540 If N > 1000000000# Then KH = 1!: GoTo 16401530: KH = 1.6: GoTo 16401535: KH = (3! * 10 ^ 8 / N) ^ (0.0756): GoTo 16401540: KH = (10 ^ 9 / N) ^ (0.05700001): GoTo 16401545: If MA > 37 Or MA < 22 Then GoTo 1575 If N < 100000! Then GoTo 1565 If N > 100000! And N < 50000000# Then GoTo 1570 If N > 50000000# Then KH = 1!: GoTo 16401565: KH = 1.6: GoTo 16401570: KH = (5 * 10 ^ 7 / N) ^ (0.0756): GoTo 16401575: If MA > 47 Or MA < 42 Then GoTo 1605 If N <= 100000! Then GoTo 1595 If N > 100000! And N < 2000000! Then GoTo 1600 If N > 2000000! Then KH = 1!: GoTo 16401595: KH = 1.3: GoTo 16401600: KH = (2 * 10 ^ 6 / N) ^ (0.0875): GoTo 16401605: If MA < 52 Then GoTo 1640 If N <= 100000! Then GoTo 1625 If N > 100000! And N < 2000000! Then GoTo 1630 If N >= 2000000! Then KH = 1!: GoTo 16401625: KH = 1.1: GoTo 16401630: KH = (2 * 10 ^ 6 / N) ^ (0.0318)1640:End SubSub Zichengxu4(MA,KH,CH) If MA > 15 Then GoTo 1680 On MA - 10 GoTo 1663,1665,1670,16751663: CH = 1.154 * (HB - 140) + 300: GoTo 18001665: CH = 1.406 * (HB - 140) + 400: GoTo 18001670: CH = 190 + HB: GoTo 18001675: CH = 260 + HB: GoTo 18001680: If MA > 27 Then GoTo 17101685 On MA - 22 GoTo 1690,1695,1700,17051690: CH = 290 + HB: GoTo 18001695: CH = 350 + HB: GoTo 18001700: CH = 1.465 * (HB - 190) + 620: GoTo 18001705: CH = 1.4 * (HB - 190) + 550: GoTo 18001710: If MA > 36 Then GoTo 1745 If MA = 34 Then GoTo 1730 If MA = 35 Then GoTo 1735 If MA = 35 And HB > 58 Then GoTo 17401730: CH = 25 * (HB - 48) + 1120: GoTo 18001735: CH = 60 * (HB - 56) + 1350: GoTo 18001740: CH = 1470: GoTo 18001745: If MA > 50 Then GoTo 1775 If MA = 44 Or MA = 45 Then CH = 11.1 * (HB - 36) + 900 If MA = 44 And HB > 45 Then GoTo 1765 If MA = 45 And HB > 45 Then GoTo 1770 GoTo 18001765: CH = 1000: GoTo 18001770: CH = 1000: GoTo 18001775: If MA = 54 Or MA = 55 Then CH = 18 * (HB - 54) + 12251780 If MA = 54 And HB > 59 Then GoTo 17901786 If MA = 55 And HB > 59 Then GoTo 17951787 GoTo 18001790: CH = 1315: GoTo 18001795: CH = 13151800: CH = KH * CHEnd SubSub Zichengxu5(ZV,YFA) YFA = 2.984508 - 0.014134 * ZV + 0.000051 * ZV ^ 2End SubSub Zichengxu6(ZV,YSA) YSA = 1.472047 + 0.00497 * ZV - 0.000016 * ZV ^ 2End SubSub Zichengxu7(AL,ZE) ZH = Sqr(2 / (Sin(AL) * Cos(AL))) ZE = 0.564 * Sqr(1 / ((1 - U1 ^ 2) / E1 + (1 - U2 ^ 2) / E2))End Sub'修改程序8Sub Zichengxu8(H1,H2,KFB) If H1 > 350 And H2 > 350 Then GoTo 2450 On CJ GoTo 2415,2420,2425,2430,2435,2440,24452415: KHB = 0.24 * FD + 0.4456 * FD ^ 2 + 1.0054: GoTo 24902420: KHB = 0.29184 * FD + 0.06218 * FD ^ 2 + 0.99569: GoTo 24902425: KHB = 0.10482 * FD + 0.04448 * FD ^ 2 + 1.0036: GoTo 24902430: KHB = 0.0395 * FD + 0.04968 * FD ^ 2 + 1.013: GoTo 24902435: KHB = 0.02576 * FD + 0.04125 * FD ^ 2 + 1.011: GoTo 24902440: KHB = -0.007 * FD + 0.03977 * FD ^ 2 + 1.157: GoTo 24902445: KHB = -0.0177 * FD + 0.0337 * FD ^ 3 + 1.00977: GoTo 24902450 On CJ GoTo 2455,2460,2465,2470,2475,2480,24852455: KHB = 1.05 * FD + 1: GoTo 24902460: KHB = 0.41026 * FD + 0.51246 * FD ^ 2 + 1.0033: GoTo 24902465: KHB = 0.29503 * FD + 0.07772 * FD ^ 2 + 1.00587: GoTo 24902470: KHB = 0.18042 * FD + 0.08549999 * FD ^ 2 + 1.00498: GoTo 24902475: KHB = 0.0907 * FD + 0.09494 * FD ^ 2 + 1.00352: GoTo 24902480: KHB = 0.01265 * FD + 0.08847999 * FD ^ 2 + 1.0095: GoTo 24902485: KHB = -0.009289999 * FD + 0.06270001 * FD ^ 2 + 1.008622490: KFB = 1.5 * KHB - 0.5End Sub百度云链接： http://pan.baIDu.com/s/1i4B1Hxb 总结 以上是内存溢出为你收集整理的圆柱直齿轮设计程序-vb全部内容，希望文章能够帮你解决圆柱直齿轮设计程序-vb所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）