机械原理课程设计(牛头刨床机构)文档.doc

机械原理课程设计说明书 ——牛头刨床传动机构的设计及其运动分析 设 计 者： 班 级： 学 号： 指导教师： 日期：2010年6月28日 机构示意图： 附1：齿轮机构的点算源程序及运行结果 1、源程序： Option Explicit Private Const pi = 3.14159 Dim z1, z2, m, t, hax, cx As Single Dim alpha, alp, alpa1, alpa2 As Single Dim d1, d2, x1, x2, ha1, ha2, hf1, hf2, h1, h2 As Single Dim db1, db2, da1, da2, df1, df2, a, e, s1, s2, sa1, sa2 As Single Private Sub command1_click() 清零 z1 = 0 z2 = 0 m = 0 alpha = 0 hax = 0 cx = 0 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text = Text14.Text = Text15.Text = Text16.Text = Text17.Text = Text18.Text = Text19.Text = Text20.Text = Text21.Text = Text22.Text = End Sub Private Sub command2_click() z1 = Val(InputBox(请输入第一个齿轮的齿数)) z2 = Val(InputBox(请输入第二个齿轮的齿数)) m = Val(InputBox(请输入齿轮的模数)) alpha = Val(InputBox(请输入齿轮的压力角)) hax = Val(InputBox(请输入齿轮的齿顶高系数)) cx = Val(InputBox(请输入齿轮的顶隙系数)) t = 180# / pi alp = alpha / t 角度转化成弧度 End Sub Private Sub Command3_Click() d1 = m * z1 d2 = m * z2 x1 = (17 - z1) / 17 x2 = 0 - x1 ha1 = (hax + x1) * m ha2 = (hax + x2) * m hf1 = (hax + cx - x1) * m hf2 = (hax + cx - x2) * m h1 = (2 * hax + cx) * m h2 = (2 * hax + cx) * m da1 = d1 + 2 * ha1 da2 = d2 + 2 * ha2 df1 = d1 - 2 * hf1 df2 = d2 - 2 * hf2 a = 0.5 * m * (z1 + z2) db1 = d1 * Cos(alp) db2 = d2 * Cos(alp) alpa1 = Atn(Sqr((da1 / 2) ^ 2 - (db1 / 2) ^ 2) / (db1 / 2)) 计算齿顶1的圆压力角 alpa2 = Atn(Sqr((da2 / 2) ^ 2 - (db2 / 2) ^ 2) / (db2 / 2)) 计算齿顶2的圆压力角 e = (z1 * (Tan(alpa1) - Tan(alp)) + z2 * (Tan(alpa2) - Tan(alp))) / (2 * pi) 计算重合度 s1 = pi * m / 2 + 2 * x1 * m * Tan(alp) s2 = pi * m / 2 + 2 * x2 * m * Tan(alp) sa1 = s1 * da1 / d1 - 2 * da1 / 2 * (Tan(alpa1) - alpa1 - Tan(alp) + alp) sa2 = s2 * da2 / d2 - 2 * da2 / 2 * (Tan(alpa2) - alpa2