V带传动程序设计VB程序代码.doc
文本预览下载声明
Private Sub Command1_Click()
Dim X(3, 5) As Single
X(0, 0) = 1: X(0, 1) = 1.1: X(0, 2) = 1.2:
X(0, 3) = 1.1: X(0, 4) = 1.2: X(0, 5) = 1.3
X(1, 0) = 1.1: X(1, 1) = 1.2: X(1, 2) = 1.3:
X(1, 3) = 1.2: X(1, 4) = 1.3: X(1, 5) = 1.4
X(2, 0) = 1.2: X(2, 1) = 1.3: X(2, 2) = 1.4:
X(2, 3) = 1.4: X(2, 4) = 1.5: X(2, 5) = 1.6
X(3, 0) = 1.3: X(3, 1) = 1.4: X(3, 2) = 1.5:
X(3, 3) = 1.5: X(3, 4) = 1.6: X(3, 5) = 1.8
ka = X(ki, kj)
Form1.Visible = False
Form2.Show
End Sub
Private Sub Option1_Click()
ki = 0
End Sub
Private Sub Option2_Click()
ki = 1
End Sub
Private Sub Option3_Click()
ki = 2
End Sub
Private Sub Option4_Click()
ki = 3
End Sub
Private Sub Option5_Click()
A = 0
End Sub
Private Sub Option6_Click()
A = 3
End Sub
Private Sub Option7_Click()
kj = 0 + A
End Sub
Private Sub Option8_Click()
kj = 1 + A
End Sub
Private Sub Option9_Click()
kj = 2 + A
End Sub
Public X As Single 输入功率
Public Y As Single 输入转速
Public i1 As Single 传动比
Public y1 As Single 由于连接带型选择与带轮选择的中间变量
Public d1 As Single 小带轮直径
Public d2 As Single 大带轮直径
Public a0 As Single
Public ld As Single
Public ad As Single 包角
Public kl As Single 长度系数
Public v As Single 带速
Private Sub Command1_Click()
Dim A As Single
Dim B As Single
Dim C As Single
Dim D As Single
Dim E As Single
Dim z As Single
If Text1.Text = Then
MsgBox 请输入电动机功率!, 48, 警告!
Text1.SetFocus
Exit Sub
End If
If Text2.Text = Then
MsgBox 请输入转速!, 48, 警告!
Text1.SetFocus
Exit Sub
End If
If Text5.Text = Then
MsgBox 请输入传动比!, 48, 警告!
Text1.SetFocus
Exit Sub
End If
Dim dog As Single
dog = Form1.ka
X = Text1.Text * dog
Y = Text2.Text ‘计算功率
A = -4.0678 * X ^ 3 + 57.0218 * X ^ 2 + 35.7006 * X + 143.2175
B = 1.8313 * X ^ 3 - 36.3606 * X ^ 2 + 268.5803 * X - 289.3163
C = -0.0098 * X ^ 3 + 0.7548 * X ^ 2 - 0.3442 * X + 64.2787
D = -0.0097941 * X ^ 3 + 0.7548 * X ^ 2 - 0.34424 * X + 64.2787
E = 0.0191 * X ^ 2 + 0.6166 * X + 25.7013
z = -27.4076 * X ^ 3 + 329.9523 * X ^ 2 - 81.1326 * X + 623.4616
a1 = Abs(A - Y)
b1 = Abs(B - Y)
c1 = Abs(C - Y)
d1 = Abs(D - Y)
e1
显示全部