V带传VB程的序说明书学习指导.doc

机械设计
课程上机与设计
实
验
报
告
班级:
姓名:
学号:
V带传动的程序设计报告
一、已知条件
带传动设计的已知数据有:输入功率P,小带轮转速n1,传动比i,原动机种类,工作机载荷性质,中心距a,带传动每天的工作时数
二、设计题目
设计一破碎机装置用普通V带传动。已知:电动机Y型号位Y132S-4,电动机额定功率为P=,转速n1=1440r/min,传动比i=2,两班制工作,希望中心距a不超过600mm,大带轮轴孔直径d=35mm。
三、程序编程
Const pi =
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 '压轴力
(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 mand1_Click()
= " "
= " "
= " "