V带传动VB程序说明书

机械设计 课程上机与设计

实 验 报 告

班级： 姓名： 学号：

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.000000001254: 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) = \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 <= 16 And lh >= 10 Then Coefficient_work = 1.1 Else

Coefficient_work = 1 End If

If g = \变动小\

Coefficient_work = Coefficient_work + 0.1 ElseIf g = \变动大\

Coefficient_work = Coefficient_work + 0.2 ElseIf g = \变动很大\

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 <= 10 ^ cc(4) Then 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 <= 20 Then

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 <= ll(m) Then Exit For End If

Next m

lj = (ll(m) + ll(m - 1)) / 2 If lc < lj Then 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 <= 1.04 Then ki = 0

ElseIf Drive_ratio <= 1.09 Then ki = 0.03

ElseIf Drive_ratio <= 1.19 Then ki = 0.052

ElseIf Drive_ratio <= 1.49 Then ki = 0.083

ElseIf Drive_ratio <= 2.5 Then 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 <= 9 Then

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

四、 数据界面

设计结果

变动后的结果

五、立体图

本文来源：https://www.bwwdw.com/article/6u6o.html