文档详情

V带传动程序设计VB程序代码.doc

发布:2017-11-16约2.7万字共11页下载文档
文本预览下载声明
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
显示全部
相似文档