作业二
V 带传动的程序设计报告
一、已知条件
带传动设计的已知数据有：输入功率P ，小带轮转速n1，传动比i ，原动机种类，工作机载荷性质，中心距a ，带传动每天的工作时数
二、设计题目
设计一破碎机装置用普通V 带传动。已知：电动机Y 型号位Y132S-4，电动机额定功率为P=5.5KW,转速n1=1440r/min,传动比i=2,两班制工作，希望中心距a 不超过600mm ，大带轮轴孔直径d=35mm。
三、程序编程
Const pi = 3.1415926
Dim i As Integer: Dim j As Integer: Dim m As Integer: Dim ii As Integer
Dim gonglv_given As Single '额定功率
Dim small_spead As Single '小带轮转速
Dim big_spead As Single '大带轮转速
Dim Drive_ratio As Single '传动比
Dim a As Single '给定中心距
Dim Coefficient_center_distance As Single '中心距系数
Dim lh As Single '每天工作小时数
Dim g As String '在和性质标识符
Dim Coefficient_work As Single '工况系数
Dim pc As Single '计算功率
Dim n(5) As Single
Dim x As Single
Dim y As Single
Dim spead As Single '带速
Dim big_diameter As Single '大轮直径
Dim c1 As Single
Dim c2 As Single
Dim al As Single
Dim lc As Single '初定带长
Dim lj As Single
Dim l As Single '基准长度
Dim b As Single
Dim amin As Single
Dim amax As Single
Dim center_distance_actual As Single '实际中心距
Dim kl As Single '长度系数
Dim ka As Single '包角系数
Dim ki As Single '传动比系数
Dim p0 As Single '单根带传递的额定功率
Dim p1 As Single '功率增量
Dim z As Single 'V带根数
Dim f0 As Single '初拉力
Dim q As Single '压轴力
Dim cc(5) As Single
Dim aa(6, 17) As Single
Dim type_(6) As String 'V带类型组
Dim type_1 As Variant
Dim ll(34) As Single
Private Sub Command1_Click()
Text8.Text = " "
Text9.Text = " "
Text10.Text = " "
Text11.Text = " "
Text12.Text = " "
Text13.Text = " "
Text14.Text = " "
Text15.Text = " "
Text16.Text = " "
Text17.Text = " "
Text18.Text = " "
Text19.Text = " " '清空文本框
gonglv_given = Val(Text1.Text)
small_spead = Val(Text2.Text)
big_spead = Val(Text3.Text)
Drive_ratio = Val(Text4.Text)
a = Val(Text5.Text)
Coefficient_center_distance = Val(Text6.Text)
g = Combo1.Text
lh = Label11.Caption '设置每个文本所代表的程序符号
aa(0, 1) = 0.00039: aa(0, 2) = 0.06: aa(0, 3) = 0.246: aa(0, 4) = 7.44: aa(0, 5) = 0.0000441: aa(0, 6) = 0.72: aa(0, 7) = 0.00043: aa(0, 8) = 0.000000098: aa(0, 9) = 435: aa(0, 10) = 50: aa(0, 11) = 63: aa(0, 12) = 71: aa(0, 13) = 80: aa(0, 14) = 90: aa(0, 15) = 1: aa(0, 16) = 13
aa(1, 1) = 0.00103: aa(1, 2) = 0.1: aa(1, 3) = 0.449: aa(1, 4) = 19.62: aa(1, 5) = 0.0000765: aa(1, 6) = 0.68: aa(1, 7) = 0.000225: aa(1, 8) = 0.0000000225: aa(1, 9) = 100: aa(1, 10) = 75: aa(1, 11) = 90: aa(1, 12) = 100: aa(1, 13) = 112: aa(1, 14) = 125: aa(1, 15) = 5: aa(1, 16) = 18
aa(2, 1) = 0.00265: aa(2, 2) = 0.17: aa(2, 3) = 0.794: aa(2, 4) = 50.6: aa(2, 5) = 0.000131: aa(2, 6) = 0.68: aa(2, 7) = 0.000174: aa(2, 8) = 0.0000000194: aa(2, 9) = 27: aa(2, 10) = 125: aa(2, 11) = 140: aa(2, 12) = 150: aa(2, 13) = 170: aa(2, 14) = 180: aa(2, 15) = 8: aa(2, 16) = 24
aa(3, 1) = 0.0075: aa(3, 2) = 0.3: aa(3, 3) = 1.48: aa(3, 4) = 143.2: aa(3, 5) = 0.000243: aa(3, 6) = 0.7: aa(3, 7) = 0.00964: aa(3, 8) = 0.000000448: aa(3, 9) = 7.2: aa(3, 10) = 200: aa(3, 11) = 224: aa(3, 12) = 236: aa(3, 13) = 265: aa(3, 14) = 280: aa(3, 15) = 14: aa(3, 16) = 29
aa(4, 1) = 0.0266: aa(4, 2) = 0.62: aa(4, 3) = 3.15: aa(4, 4) = 507.3: aa(4, 5) = 0.000477: aa(4, 6) = 0.78: aa(4, 7) = 0.0000338: aa(4, 8) = 0: aa(4, 9) = 0.92: aa(4, 10) = 355: aa(4, 11) = 400: aa(4, 12) = 425: aa(4, 13) = 475: aa(4, 14) = 500: aa(4, 15) = 18: aa(4, 16) = 32
aa(5, 1) = 0.0498: aa(5, 2) = 0.9: aa(5, 3) = 4.57: aa(5, 4) = 951.5: aa(5, 5) = 0.000706: aa(5, 6) = 0.706: aa(5, 7) = 0.0000495: aa(5, 8) = 0.[1**********]4: aa(5, 9) = 0: aa(5, 10) = 500: aa(5, 11) = 560: aa(5, 12) = 630: aa(5, 13) = 800: aa(5, 14) = 900: aa(5, 15) = 22: aa(5, 16) = 33
type_(0) = "Z": type_(1) = "A": type_(2) = "B": type_(3) = "C": type_(4) = "D": type_(5) = "E" ll(1) = 400: ll(2) = 450: ll(3) = 500: ll(4) = 560: ll(5) = 630: ll(6) = 710: ll(7) = 800: ll(8) = 900: ll(9) = 1000: ll(10) = 1120: ll(11) = 1250: ll(12) = 1400: ll(13) = 1600: ll(14) = 1800: ll(15) = 2000: ll(16) = 2240: ll(17) = 2500: ll(18) = 2800: ll(19) = 3150: ll(20) = 3550
ll(21) = 4000: ll(22) = 4500: ll(23) = 5000: ll(24) = 5600: ll(25) = 6300: ll(26) = 7100: ll(27) = 8000: ll(28) = 9000: ll(29) = 10000: ll(30) = 11200: ll(31) = 12500: ll(32) = 14000: ll(33) = 16000 If big_spead 0 Then
Drive_ratio = Int(small_spead / big_spead * 1000 + 0.5) / 1000 '传动比 Drive_ratio
End If
If lh >= 16 Then
Coefficient_work = 1.2
ElseIf lh = 10 Then
Coefficient_work = 1.1
Else
Coefficient_work = 1
End If
If g = "变动小" Then
Coefficient_work = Coefficient_work + 0.1
ElseIf g = "变动大" Then
Coefficient_work = Coefficient_work + 0.2
ElseIf g = "变动很大" Then
Coefficient_work = Coefficient_work + 0.3
End If
pc = Coefficient_work * gonglv_given '确定每一种载荷系数G 下的工况系数 Coefficient_work cc(0) = (Log(365) + (Log(2510) - Log(365)) * (Log(pc) - Log(0.8)) / (Log(5) - Log(0.8))) / Log(10) cc(1) = (Log(100) + (Log(1500) - Log(100)) * (Log(pc) - Log(1)) / (Log(10) - Log(1))) / Log(10) cc(2) = (Log(100) + (Log(870) - Log(100)) * (Log(pc) - Log(3.15)) / (Log(18) - Log(3.15))) / Log(10) cc(3) = (Log(100) + (Log(700) - Log(100)) * (Log(pc) - Log(9)) / (Log(40) - Log(9))) / Log(10) cc(4) = (Log(100) + (Log(500) - Log(100)) * (Log(pc) - Log(50)) / (Log(200) - Log(50))) / Log(10)
For i = 0 To 4
If small_spead >= 10 ^ cc(i) Then
Exit For
End If
Next i
If i = 0 Then
x = 0: y = 1
ElseIf small_spead
x = 4: y = 5
Else: x = i - 1: y = i + 1
End If
ii = x
For i = x To y '确定V 带型号, 并根据每一小轮直径进行求解
For j = 10 To 14
type_1 = Array(50, 56, 63, 71, 75, 80, 85, 90, 95, 100, 106, 112, 118, 125, 132, 140, 150, 160, 170, 180, 200, 212, 224, 236, 250, 265, 280, 300, 315, 355, 375, 400, 425, 450, 475, 500, 530, 560, 600, 630, 670, 710, 750, 800, 900, 1000) '提高小轮直径的选择种类
If i = 0 Then
small_diameter = type_1(Int(Rnd * 4) + 1) 'z类
ElseIf i = 2 Then
small_diameter = type_1(Int(Rnd * 9) + 14) 'a类
ElseIf i = 3 Then
small_diameter = type_1(Int(Rnd * 7) + 21) 'b类
ElseIf i = 4 Then
small_diameter = type_1(Int(Rnd * 9) + 30) 'c类
Else
small_diameter = type_1(Int(Rnd * 6) + 36) 'd类
End If
spead = Int(pi * aa(i, j) * small_spead / 600 + 0.5) / 100
If spead >= 5 And spead
big_diameter = Int(Drive_ratio * aa(i, j) * 0.98 / 5 + 0.5) * 5
Drive_ratio = Int(big_diameter / aa(i, j) / 0.98 * 100 + 0.5) / 100
c1 = big_diameter + aa(i, j)
c2 = big_diameter - aa(i, j)
If a = 0 Then
center_distance_actual = Coefficient_center_distance * c1
Else: center_distance_actual = a
End If
lc = 2 * center_distance_actual + pi * c1 / 2 + c2 * c2 / 4 / center_distance_actual For m = aa(i, 15) To aa(i, 16)
If lc
Exit For
End If
Next m
lj = (ll(m) + ll(m - 1)) / 2
If lc
l = ll(m - 1)
Else: l = ll(m) '确定V 带长度
End If
b = 2 * l - pi * c1
center_distance_actual = Int((b + (b * b - 8 * c2 * c2) ^ 0.5) / 8 * 10 + 0.5) / 10
amin = Int(center_distance_actual - 0.015 * l + 0.5)
amax = Int(center_distance_actual + 0.03 * l + 0.5)
al = 180 - c2 / center_distance_actual * 57.3 '验算小带轮包角
If al > 120 Then
kl = aa(i, 6) + aa(i, 7) * l - aa(i, 8) * l * l
ka = 0.47 + 0.003 * al
If Drive_ratio
ki = 0
ElseIf Drive_ratio
ki = 0.03
ElseIf Drive_ratio
ki = 0.052
ElseIf Drive_ratio
ki = 0.083
ElseIf Drive_ratio
ki = 0.113
Else: ki = 0.122
End If
p0 = (aa(i, 3) * (spead ^ -0.09) - aa(i, 4) / aa(i, j) - aa(i, 5) * spead * spead) * spead p1 = aa(i, 1) * small_spead * ki
z = Int(pc / ((p0 + p1) * kl * ka) + 0.95) '确定V 带根数
If z
f0 = Int((500 * pc * (2.5 / ka - 1)) / spead / z + aa(i, 2) * spead * spead + 0.5) '计算初拉力
q = Int(2 * z * f0 * Sin(al * pi / 180 / 2) + 0.5) '计算压轴力
Text8.Text = Text8.Text & vbCrLf & vbCrLf & type_(i)
Text9.Text = Text9.Text & vbCrLf & vbCrLf & l
Text10.Text = Text10.Text & vbCrLf & vbCrLf & z
Text11.Text = Text11.Text & vbCrLf & vbCrLf & aa(i, j)
Text12.Text = Text12.Text & vbCrLf & vbCrLf & big_diameter
Text13.Text = Text13.Text & vbCrLf & vbCrLf & spead
Text14.Text = Text14.Text & vbCrLf & vbCrLf & Drive_ratio
Text15.Text = Text15.Text & vbCrLf & vbCrLf & center_distance_actual
Text16.Text = Text16.Text & vbCrLf & vbCrLf & amin
Text17.Text = Text17.Text & vbCrLf & vbCrLf & amax
Text18.Text = Text18.Text & vbCrLf & vbCrLf & f0
Text19.Text = Text19.Text & vbCrLf & vbCrLf & q '用文本框显示
End If
End If
End If
Next j
ii = ii + 5
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
Label11.Caption = HScroll1.Value
End Sub
Private Sub HScroll1_Change()
Label11.Caption = HScroll1.Value
End Sub
Private Sub Text3_GotFocus()
Label4.Enabled = True
Label5.Enabled = False
End Sub
Private Sub Text4_GotFocus()
Label5.Enabled = True
Label4.Enabled = False
End Sub
Private Sub Text5_GotFocus()
Label6.Enabled = True
Label7.Enabled = False
End Sub
Private Sub Text6_GotFocus()
Label7.Enabled = True
Label6.Enabled = False
End Sub
四、 数据界面
设计结果
变动后的结果
作业二
V 带传动的程序设计报告
一、已知条件
带传动设计的已知数据有：输入功率P ，小带轮转速n1，传动比i ，原动机种类，工作机载荷性质，中心距a ，带传动每天的工作时数
二、设计题目
设计一破碎机装置用普通V 带传动。已知：电动机Y 型号位Y132S-4，电动机额定功率为P=5.5KW,转速n1=1440r/min,传动比i=2,两班制工作，希望中心距a 不超过600mm ，大带轮轴孔直径d=35mm。
三、程序编程
Const pi = 3.1415926
Dim i As Integer: Dim j As Integer: Dim m As Integer: Dim ii As Integer
Dim gonglv_given As Single '额定功率
Dim small_spead As Single '小带轮转速
Dim big_spead As Single '大带轮转速
Dim Drive_ratio As Single '传动比
Dim a As Single '给定中心距
Dim Coefficient_center_distance As Single '中心距系数
Dim lh As Single '每天工作小时数
Dim g As String '在和性质标识符
Dim Coefficient_work As Single '工况系数
Dim pc As Single '计算功率
Dim n(5) As Single
Dim x As Single
Dim y As Single
Dim spead As Single '带速
Dim big_diameter As Single '大轮直径
Dim c1 As Single
Dim c2 As Single
Dim al As Single
Dim lc As Single '初定带长
Dim lj As Single
Dim l As Single '基准长度
Dim b As Single
Dim amin As Single
Dim amax As Single
Dim center_distance_actual As Single '实际中心距
Dim kl As Single '长度系数
Dim ka As Single '包角系数
Dim ki As Single '传动比系数
Dim p0 As Single '单根带传递的额定功率
Dim p1 As Single '功率增量
Dim z As Single 'V带根数
Dim f0 As Single '初拉力
Dim q As Single '压轴力
Dim cc(5) As Single
Dim aa(6, 17) As Single
Dim type_(6) As String 'V带类型组
Dim type_1 As Variant
Dim ll(34) As Single
Private Sub Command1_Click()
Text8.Text = " "
Text9.Text = " "
Text10.Text = " "
Text11.Text = " "
Text12.Text = " "
Text13.Text = " "
Text14.Text = " "
Text15.Text = " "
Text16.Text = " "
Text17.Text = " "
Text18.Text = " "
Text19.Text = " " '清空文本框
gonglv_given = Val(Text1.Text)
small_spead = Val(Text2.Text)
big_spead = Val(Text3.Text)
Drive_ratio = Val(Text4.Text)
a = Val(Text5.Text)
Coefficient_center_distance = Val(Text6.Text)
g = Combo1.Text
lh = Label11.Caption '设置每个文本所代表的程序符号
aa(0, 1) = 0.00039: aa(0, 2) = 0.06: aa(0, 3) = 0.246: aa(0, 4) = 7.44: aa(0, 5) = 0.0000441: aa(0, 6) = 0.72: aa(0, 7) = 0.00043: aa(0, 8) = 0.000000098: aa(0, 9) = 435: aa(0, 10) = 50: aa(0, 11) = 63: aa(0, 12) = 71: aa(0, 13) = 80: aa(0, 14) = 90: aa(0, 15) = 1: aa(0, 16) = 13
aa(1, 1) = 0.00103: aa(1, 2) = 0.1: aa(1, 3) = 0.449: aa(1, 4) = 19.62: aa(1, 5) = 0.0000765: aa(1, 6) = 0.68: aa(1, 7) = 0.000225: aa(1, 8) = 0.0000000225: aa(1, 9) = 100: aa(1, 10) = 75: aa(1, 11) = 90: aa(1, 12) = 100: aa(1, 13) = 112: aa(1, 14) = 125: aa(1, 15) = 5: aa(1, 16) = 18
aa(2, 1) = 0.00265: aa(2, 2) = 0.17: aa(2, 3) = 0.794: aa(2, 4) = 50.6: aa(2, 5) = 0.000131: aa(2, 6) = 0.68: aa(2, 7) = 0.000174: aa(2, 8) = 0.0000000194: aa(2, 9) = 27: aa(2, 10) = 125: aa(2, 11) = 140: aa(2, 12) = 150: aa(2, 13) = 170: aa(2, 14) = 180: aa(2, 15) = 8: aa(2, 16) = 24
aa(3, 1) = 0.0075: aa(3, 2) = 0.3: aa(3, 3) = 1.48: aa(3, 4) = 143.2: aa(3, 5) = 0.000243: aa(3, 6) = 0.7: aa(3, 7) = 0.00964: aa(3, 8) = 0.000000448: aa(3, 9) = 7.2: aa(3, 10) = 200: aa(3, 11) = 224: aa(3, 12) = 236: aa(3, 13) = 265: aa(3, 14) = 280: aa(3, 15) = 14: aa(3, 16) = 29
aa(4, 1) = 0.0266: aa(4, 2) = 0.62: aa(4, 3) = 3.15: aa(4, 4) = 507.3: aa(4, 5) = 0.000477: aa(4, 6) = 0.78: aa(4, 7) = 0.0000338: aa(4, 8) = 0: aa(4, 9) = 0.92: aa(4, 10) = 355: aa(4, 11) = 400: aa(4, 12) = 425: aa(4, 13) = 475: aa(4, 14) = 500: aa(4, 15) = 18: aa(4, 16) = 32
aa(5, 1) = 0.0498: aa(5, 2) = 0.9: aa(5, 3) = 4.57: aa(5, 4) = 951.5: aa(5, 5) = 0.000706: aa(5, 6) = 0.706: aa(5, 7) = 0.0000495: aa(5, 8) = 0.[1**********]4: aa(5, 9) = 0: aa(5, 10) = 500: aa(5, 11) = 560: aa(5, 12) = 630: aa(5, 13) = 800: aa(5, 14) = 900: aa(5, 15) = 22: aa(5, 16) = 33
type_(0) = "Z": type_(1) = "A": type_(2) = "B": type_(3) = "C": type_(4) = "D": type_(5) = "E" ll(1) = 400: ll(2) = 450: ll(3) = 500: ll(4) = 560: ll(5) = 630: ll(6) = 710: ll(7) = 800: ll(8) = 900: ll(9) = 1000: ll(10) = 1120: ll(11) = 1250: ll(12) = 1400: ll(13) = 1600: ll(14) = 1800: ll(15) = 2000: ll(16) = 2240: ll(17) = 2500: ll(18) = 2800: ll(19) = 3150: ll(20) = 3550
ll(21) = 4000: ll(22) = 4500: ll(23) = 5000: ll(24) = 5600: ll(25) = 6300: ll(26) = 7100: ll(27) = 8000: ll(28) = 9000: ll(29) = 10000: ll(30) = 11200: ll(31) = 12500: ll(32) = 14000: ll(33) = 16000 If big_spead 0 Then
Drive_ratio = Int(small_spead / big_spead * 1000 + 0.5) / 1000 '传动比 Drive_ratio
End If
If lh >= 16 Then
Coefficient_work = 1.2
ElseIf lh = 10 Then
Coefficient_work = 1.1
Else
Coefficient_work = 1
End If
If g = "变动小" Then
Coefficient_work = Coefficient_work + 0.1
ElseIf g = "变动大" Then
Coefficient_work = Coefficient_work + 0.2
ElseIf g = "变动很大" Then
Coefficient_work = Coefficient_work + 0.3
End If
pc = Coefficient_work * gonglv_given '确定每一种载荷系数G 下的工况系数 Coefficient_work cc(0) = (Log(365) + (Log(2510) - Log(365)) * (Log(pc) - Log(0.8)) / (Log(5) - Log(0.8))) / Log(10) cc(1) = (Log(100) + (Log(1500) - Log(100)) * (Log(pc) - Log(1)) / (Log(10) - Log(1))) / Log(10) cc(2) = (Log(100) + (Log(870) - Log(100)) * (Log(pc) - Log(3.15)) / (Log(18) - Log(3.15))) / Log(10) cc(3) = (Log(100) + (Log(700) - Log(100)) * (Log(pc) - Log(9)) / (Log(40) - Log(9))) / Log(10) cc(4) = (Log(100) + (Log(500) - Log(100)) * (Log(pc) - Log(50)) / (Log(200) - Log(50))) / Log(10)
For i = 0 To 4
If small_spead >= 10 ^ cc(i) Then
Exit For
End If
Next i
If i = 0 Then
x = 0: y = 1
ElseIf small_spead
x = 4: y = 5
Else: x = i - 1: y = i + 1
End If
ii = x
For i = x To y '确定V 带型号, 并根据每一小轮直径进行求解
For j = 10 To 14
type_1 = Array(50, 56, 63, 71, 75, 80, 85, 90, 95, 100, 106, 112, 118, 125, 132, 140, 150, 160, 170, 180, 200, 212, 224, 236, 250, 265, 280, 300, 315, 355, 375, 400, 425, 450, 475, 500, 530, 560, 600, 630, 670, 710, 750, 800, 900, 1000) '提高小轮直径的选择种类
If i = 0 Then
small_diameter = type_1(Int(Rnd * 4) + 1) 'z类
ElseIf i = 2 Then
small_diameter = type_1(Int(Rnd * 9) + 14) 'a类
ElseIf i = 3 Then
small_diameter = type_1(Int(Rnd * 7) + 21) 'b类
ElseIf i = 4 Then
small_diameter = type_1(Int(Rnd * 9) + 30) 'c类
Else
small_diameter = type_1(Int(Rnd * 6) + 36) 'd类
End If
spead = Int(pi * aa(i, j) * small_spead / 600 + 0.5) / 100
If spead >= 5 And spead
big_diameter = Int(Drive_ratio * aa(i, j) * 0.98 / 5 + 0.5) * 5
Drive_ratio = Int(big_diameter / aa(i, j) / 0.98 * 100 + 0.5) / 100
c1 = big_diameter + aa(i, j)
c2 = big_diameter - aa(i, j)
If a = 0 Then
center_distance_actual = Coefficient_center_distance * c1
Else: center_distance_actual = a
End If
lc = 2 * center_distance_actual + pi * c1 / 2 + c2 * c2 / 4 / center_distance_actual For m = aa(i, 15) To aa(i, 16)
If lc
Exit For
End If
Next m
lj = (ll(m) + ll(m - 1)) / 2
If lc
l = ll(m - 1)
Else: l = ll(m) '确定V 带长度
End If
b = 2 * l - pi * c1
center_distance_actual = Int((b + (b * b - 8 * c2 * c2) ^ 0.5) / 8 * 10 + 0.5) / 10
amin = Int(center_distance_actual - 0.015 * l + 0.5)
amax = Int(center_distance_actual + 0.03 * l + 0.5)
al = 180 - c2 / center_distance_actual * 57.3 '验算小带轮包角
If al > 120 Then
kl = aa(i, 6) + aa(i, 7) * l - aa(i, 8) * l * l
ka = 0.47 + 0.003 * al
If Drive_ratio
ki = 0
ElseIf Drive_ratio
ki = 0.03
ElseIf Drive_ratio
ki = 0.052
ElseIf Drive_ratio
ki = 0.083
ElseIf Drive_ratio
ki = 0.113
Else: ki = 0.122
End If
p0 = (aa(i, 3) * (spead ^ -0.09) - aa(i, 4) / aa(i, j) - aa(i, 5) * spead * spead) * spead p1 = aa(i, 1) * small_spead * ki
z = Int(pc / ((p0 + p1) * kl * ka) + 0.95) '确定V 带根数
If z
f0 = Int((500 * pc * (2.5 / ka - 1)) / spead / z + aa(i, 2) * spead * spead + 0.5) '计算初拉力
q = Int(2 * z * f0 * Sin(al * pi / 180 / 2) + 0.5) '计算压轴力
Text8.Text = Text8.Text & vbCrLf & vbCrLf & type_(i)
Text9.Text = Text9.Text & vbCrLf & vbCrLf & l
Text10.Text = Text10.Text & vbCrLf & vbCrLf & z
Text11.Text = Text11.Text & vbCrLf & vbCrLf & aa(i, j)
Text12.Text = Text12.Text & vbCrLf & vbCrLf & big_diameter
Text13.Text = Text13.Text & vbCrLf & vbCrLf & spead
Text14.Text = Text14.Text & vbCrLf & vbCrLf & Drive_ratio
Text15.Text = Text15.Text & vbCrLf & vbCrLf & center_distance_actual
Text16.Text = Text16.Text & vbCrLf & vbCrLf & amin
Text17.Text = Text17.Text & vbCrLf & vbCrLf & amax
Text18.Text = Text18.Text & vbCrLf & vbCrLf & f0
Text19.Text = Text19.Text & vbCrLf & vbCrLf & q '用文本框显示
End If
End If
End If
Next j
ii = ii + 5
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
Label11.Caption = HScroll1.Value
End Sub
Private Sub HScroll1_Change()
Label11.Caption = HScroll1.Value
End Sub
Private Sub Text3_GotFocus()
Label4.Enabled = True
Label5.Enabled = False
End Sub
Private Sub Text4_GotFocus()
Label5.Enabled = True
Label4.Enabled = False
End Sub
Private Sub Text5_GotFocus()
Label6.Enabled = True
Label7.Enabled = False
End Sub
Private Sub Text6_GotFocus()
Label7.Enabled = True
Label6.Enabled = False
End Sub
四、 数据界面
设计结果
变动后的结果