机械原理课程设计说明书 ——牛头刨床传动机构的设计及其运动分析设 计 者： 班 级： 学 号： 指导教师： 日期：2010 年 6 月 28 日机构示意图：附 1：齿轮机构的点算源程序及运行结果1、源程序：Option ExplicitPrivate Const pi = 3.14159Dim z1, z2, m, t, hax, cx As SingleDim alpha, alp, alpa1, alpa2 As SingleDim d1, d2, x1, x2, ha1, ha2, hf1, hf2, h1, h2 As SingleDim db1, db2, da1, da2, df1, df2, a, e, s1, s2, sa1, sa2 As SinglePrivate Sub command1_click() '清零z1 = 0z2 = 0m = 0alpha = 0hax = 0cx = 0Text1.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 SubPrivate Sub command2_click()z1 = Val(InputBox("请输入第一个齿轮的齿数"))z2 = Val(InputBox("请输入第二个齿轮的齿数"))m = Val(InputBox("请输入齿轮的模数"))alpha = Val(InputBox("请输入齿轮的压力角"))hax = Val(InputBox("请输入齿轮的齿顶高系数"))cx = Val(InputBox("请输入齿轮的顶隙系数"))t = 180# / pialp = alpha / t '角度转化成弧度End SubPrivate Sub Command3_Click()d1 = m * z1d2 = m * z2x1 = (17 - z1) / 17x2 = 0 - x1ha1 = (hax + x1) * mha2 = (hax + x2) * mhf1 = (hax + cx - x1) * mhf2 = (hax + cx - x2) * mh1 = (2 * hax + cx) * mh2 = (2 * hax + cx) * mda1 = d1 + 2 * ha1da2 = d2 + 2 * ha2df1 = d1 - 2 * hf1df2 = d2 - 2 * hf2a = 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)) '计...
