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() ="" ="" ="" ="" ="" Text