机械设计---带传动.docVIP

机械设计 课程上机与设计 实 验 报 告 一 设计题目： 设计带式输送机的V带传动装置。已知：原动机为Y型异步电动机，电动机额定功率P=7.5KW，转速n1=1450r/min，n2=630r/min，工作中有轻度冲击，单班制工作，要求中心距a为600~800mm 二 设计代码： Const pi = 3.1415926 Dim jieguo() As Single, xinghao() As String Dim i As Integer: Dim j As Integer: Dim m As Integer: Dim ii As Integer Dim x As Single, y As Single, b As Single Dim c1 As Single, c2 As Single Dim p As Single 额定功率 Dim n1 As Single 小轮转速 Dim n2 As Single 大轮转速 Dim u As Single 传动比 Dim a As Single 给定中心距 Dim a0 As Single 中心距系数 Dim lh As Single 每天工作小时数 Dim g As String 载荷系数 Dim k As Single 工作情况系数 Dim pc As Single 计算功率 Dim v As Single 带速 Dim d2 As Single 大带轮直径 Dim al As Single 实际中心距 Dim lc As Single 初定带长 Dim lj As Single 计算带长 Dim l As Single 基准长度 Dim amin As Single 最小中心距 Dim amax 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 普通V带选型图五条边界 Dim aa(6, 17) As Single V带传动设计参数二维数 Dim bb(6) As String V带型号 Dim ll(34) As Single 基准长度 Private Sub Command1_Click() p = Val(Text1.Text) 功率 n1 = Val(Text2.Text) 小轮转速 n2 = Val(Text3.Text) 大轮转速 u = Val(Text4.Text) 传动比 a = Val(Text5.Text) 给定中心距 a0 = Val(Text6.Text) 中心距系数 g = Combo1.Text 载荷系数 lh = Val(Text7.Text) 每天工作小时数 V带传动设计参数二维数表 aa(0, 1) = 0.00039: aa(0, 2) = 0.06: aa(0, 3) = 0.246: aa(0, 4) = 7.44: aa(0, 5) = 0.0000441: aa(0, 6) = 0.72: aa(0, 7) = 0.00043: aa(0, 8) = 0.000000098: 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.0000765: aa(1, 6) = 0.68: aa(1, 7) = 0.000225: aa(1, 8