机械原理课程设计(牛头刨床机构)
- 文件介绍:
- 该文件为 doc 格式,下载需要 1 积分
- 机械原理课程设计(牛头刨床机构)附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 = " "
...