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 '实际中心距

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,