鼓式制动器vb程序代码.pdf
- 一千零一夜个人认证 |
- 2021-03-07 发布|
- 599.81 KB|
- 36页
鼓式制动器 VB程序代码
Public path As String
Public op_flag As Integer
Public kg, kg1, mg, mg1, l, hg2, hg1, l1, l2, r As
Double
Public fo, q, t1, t2, ems, f1, f2, e1, e2, g As
Double
Public beta, f As Double
Public Const pi = 3.151492353
Public Const rad = pi / 180
Dim d_x, d_y As Double
Private Sub add_Click()
op_flag = 0
Form2.Show (1)
End Sub
Private Sub calc1_Click()
Form3.Show (1)
End Sub
Private Sub clac2_Click()
Form4.Show (1)
End Sub
Private Sub clac3_Click()
Form5.Show (1)
End Sub
Private Sub clca3_Click()
Form6.Show (1)
End Sub
Private Sub crct_Click()
op_flag = 1
Form2.Show (1)
End Sub
Private Sub eixt1_Click()
End
End Sub
Private Sub Form_Load()
TreeView1.Nodes.add , , "N1", " 整车参数 "
TreeView1.Nodes.add "N1", tvwChild, , " 选择 "
TreeView1.Nodes.add