电算设计说明书

H a r b i n I n s t i t u t e o f T e c h n o l o g y

V带传动电算说明书

课程名称：机械设计

院系：机电工程学院

班级：

设计者：

学号：

设计时间：2013.10.29

哈尔滨工业大学

一、普通V带传动的内容和任务

1、普通V带传动设计内容：

给定原始数据：传递的功率P，小带轮转速n1 传动比i及工作条件

设计内容：带型号，基准长度Ld，根数Z，传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B，初拉力F0和压轴力Q

二、变量标识符

为了使程序具有较好的可读性易用性，应采用统一的变量标识符，如表1所示。

表1 变量标识符表

三．程序框图

四、程序使用说明：

1、输入原始数据（设计功率直接填写时，名义功率无需填写）；

2、原动机及工作情况选择，选择完成之后，点击工况系数“Ka”按钮；

3、点击设计功率“Pd”按钮（无论步骤1输入的是名义功率或设计功率，都需执行此操作）；

4、查阅教材V带选型图，选择V带型号，并从推荐小带轮基准直径中选择直径

5、点击“小带轮直径录入完毕，执行后续程序”按钮；

6、在中心距范围内选择中心距a0，点击“中心距录入完毕执行后续程序“按钮。五．程序截图

当没有输入名义功率时，显示：

当未输入传动比时，显示：

当dd1不是从推荐值中选择时，显示：

当中心距没从给定范围内选择时，显示：

六．程序结果

名义功率：3kw，转速：960r/min，传动比：1.8

七．程序代码

Option Explicit

Dim P As Single '定义名义功率变量

Dim Pd As Single '定义设计功率变量

Dim i As Single '定义传动比变量

Dim KA As Variant '定义工况系数变量

Dim n1 As Single '定义小带轮转速变量Dim GZJ As Variant '定义工作机载荷特性变量Dim YDJ As Variant '定义原动机类型变量Dim T As Single '定义每天工作时间

Dim Vtype As String '定义带型号变量

Dim dd1 As Single '定义小带轮基准直径变量Dim dd2 As Single '定义大带轮基准直径变量Dim v As Single '定义带速变量

Dim VMAX As Single '定义最大带速变量

Dim a As Single '定义中心距变量

Dim Ld As Single '定义基准长度变量

Dim ALF1 As Single '定义小带轮包角变量Dim Z As Single '定义V带根数变量

Dim P0 As Single '定义额定功率变量

Dim DIFP0 As Single '定义功率增量变量

Dim Kb As Single '弯曲影响系数

Dim Ki As Single '传动比系数

Dim KL As Single '长度系数

Dim KALF As Single '包角系数

Dim F0 As Single '初拉力

Dim Q As Single '压轴力

Dim PAI As Single '圆周率

Dim B As Single '轮缘宽度

Dim K1 As Single

Dim K2 As Single

Dim K3 As Single

Dim a1 As Double

Dim a2 As Double

Dim X As Integer

Dim Y As Variant

Dim j As Integer

Dim u As Variant

Private Sub Form_Load()

PAI = 3.1415926

Combo1.AddItem "Ⅰ类"

Combo1.AddItem "Ⅱ类"

Combo1.ListIndex = 0

Combo2.AddItem "<10h"

Combo2.AddItem "10~16h"

Combo2.AddItem ">16h"

Combo2.ListIndex = 0

Combo3.AddItem "Z"

Combo3.AddItem "A"

Combo3.AddItem "B"

Combo3.AddItem "C"

Combo3.AddItem "D"

Combo3.AddItem "E"

Combo3.ListIndex = 0 '下拉菜单选项添加及默认值设定Combo3.Locked = True '下拉菜单锁定

Option1.Value = True '默认“载荷平稳”

Command2.Enabled = False '命令按钮2不可用

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text14.Text = ""

Text15.Text = ""

Text16.Text = ""

Text17.Text = ""

Text18.Text = ""

Text19.Text = ""

Text20.Text = ""

Text21.Text = ""

Text22.Text = ""