V带传动VB程序说明书

  • 格式:doc
  • 大小:275.50 KB
  • 文档页数:10

V带传动VB程序说明书

机械设计

课程上机与设计

班级:

姓名:

学号: 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。

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 '实际中心距 V带传动VB程序说明书

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。: aa(0, 6) = 0.72: aa(0, 7) = 0。00043: aa(0, 8) = 0.: 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.: aa(1, 6) = 0。68: aa(1, 7) = 0.: aa(1, 8) = 0。: 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。: aa(2, 6) = 0。68: aa(2, 7) = 0。: aa(2, 8) = 0。: 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。:

aa(3, 6) = 0。7: aa(3, 7) = 0.00964: aa(3, 8) = 0.: aa(3, 9) = 7.2: aa(3, 10) = 200: aa(3, V带传动VB程序说明书

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。:

aa(4, 6) = 0。78: aa(4, 7) = 0.: 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.: aa(5, 6) = 0。706: aa(5, 7) = 0。: aa(5, 8) = 0.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 〈= 16 And 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