机械原理课程设计(牛头刨床机构)

机械原理课程设计(牛头刨床机构)附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 = " "