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