V带传动VB程序说明书.docVIP

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