V带传动上机电算.docVIP

Harbin Institute of Technology 上机电算设计说明书 课程名称： 机械设计 设计题目： 普通V带传动 院 系： 机电工程学院 班 级： 设 计 者： 学 号： 指导教师： 宋宝玉 设计时间： 2014.10.23 哈尔滨工业大学 目录 一．普通V带传动的内容和任务 1 二．设计方案 2 三．主程序说明 3 1 .输入数据 3 2.源程序 3 3.使用说明 11 四．计算结果 11 普通V带传动的内容和任务 1.普通V带传动设计内容： 给定原始数据：传递的功率P，小带轮转速 n1 传动比i及工作条件 设计内容：带型号，基准长度Ld，根数Z，传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B，初拉力F0和压轴力Q。 2.电算任务 1）编写V带传动设计程序框图； 2）编制V带传动设计源程序； 3）按习题或作业中数据运行程序，要求对每一组数据各按三种V带型号计算，对每一种带型号选三种小带轮直径进行计算并输出所有结果； 4）比较结果，从9种方案中选择一个最佳方案。 设计方案 参数说明 表1 序号 名称 代号 标识符 单位 1 名义功率 P kW 2 设计功率 Pd kW 3 工作情况系数 KA 4 小带轮转速 n1 r/min 5 工作机载荷情况 1-4 6 原动机类型 1-5 7 带型号 、 TYPE 8 小带轮基准直径 Dd1 mm 9 大带轮基准直径 Dd2 mm 10 带速 v m/s 11 中心距 ， a，a0 mm 12 基准长度 Ld mm 13 小带轮包角 α1 度 14 V带根数 Z 15 额定功率 P0 kW 16 弯曲影响系数 Kb 17 传动比系数 Ki 18 长度系数 KL V带传动设计程序框图 主程序 根据教材，由原始数据查表得KA,Ki，计算出Pd，由图选带型，得到最大带速，然后再经过一系列查表及计算得到设计结果（详细过程参见程序框图）。 设计过程中最重要即各个参数的表格的输入及查表的过程，表格可用一维或二维数组存储，存入的方式与查表的依据有关。也可以根据各数据间关系列出公式通过计算得到所需数据。 1．输入数据 原始数据：P，n1，i，包括已给定的和人为假定的数据。 源程序 封面程序： Private Sub Command1_Click() Form2.Hide Form1.Show End Sub 计算界面程序： Public Pd As Double Public KA As Double Public n1 As Double Public Dd1 As Double Public Dd2 As Double Public I As Double Public e As Double Public a0 As Double Public a As Double Public v As Double Public Vtype As Byte Public a1 As Double Public Ld As Double Public KL As Double Public KALF As Double Public F0 As Double Public Q As Double Public Z As Integer Public Kb As Double Public Ki As Double Public P0 As Double Public m As Double Const PI = 3.1415926 Public P As Double Private MachineType As Integer Private WorkTime As Integer Private Condition As Integer Private Sub Command1_Click() Dim a As Integer If (Text1.Text = ) And (Text2.Text = ) Then a = MsgBox(请输入功率和转速, vbOKOnly + vbDefaultButton1 + vbInformation, 提示) GoTo 12 Else Form1.P = Text1.Text n1 = Text2.Text End If KA = 1 + 0.1 * (MachineType + WorkTime