基于V带传动设计过程中的软件二次开发Word文档下载推荐.docx
《基于V带传动设计过程中的软件二次开发Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《基于V带传动设计过程中的软件二次开发Word文档下载推荐.docx（23页珍藏版）》请在冰豆网上搜索。
第七步求V带根数——根据小带轮直径d1和转速、n1查得P0，再计算出传动比i，由传动比i和n1查得单根普通V带的额定功率的增量ΔP0，然后求出V带根数。
同时要求取整数。
第八步求作用在带轮上的压力FQ——先计算单根V带的初拉力，再求得z根带作用在轴上的总拉力。
最后，输出计算结果。
三、原始参数输入模块
原始参数输入模块：
包括主要参数接受模块（接受功率、转速、传动比），和工况情况接受模块（接受载荷情况、启动情况、每天工作时间）。
前者为一维规则非函数表，计算机辅助设计查询时，只要一个输入参数，存储数据使用一维数组即可。
后者是一个三维规则非函数表，相对较复杂。
下面是主要参数接受模块，并自动算出传动比。
四、数据处理模块
中间数据处理主模块：
包括并行带型号选择模块、带轮基准直径的试选模块、中心距的试选模块。
这三个模块接受的数据来自选择带型、小带轮直径、中心距窗口。
基本数据处理模块：
包括工况系数查询模块、V带型号及小带轮直径范围查询模块、基准直径查询模块、单根带功率查询模块、功率增量查询模块、包角系数查询模块、长度系数查询模块、带轮轮槽尺寸查询模块、带轮结构与幅板厚度查询模块。
设计结果处理模块：
包括保存结构模块、显示带轮结构与尺寸模块、生成带轮工作图模块。
下面重点给出工况系数查询模块、包角系数查询模块、V带轮单位长度质量和轮槽尺寸查询模块三个模块程序的编制过程。
其他模块采用图表查询方式进行。
（一）工况系数查询模块
普通V带传动的工作情况系数KA，在人工查询的过程中，是根据实际工作情况所在行和实际启动情况所在大列，再根据每天工作小时所在的小列，来查得KA值。
当采用计算机程序查询时，需要三个输入参数：
工况、每天工作小时数和启动情况，故三个一维数组分别用来存储表中的工况情况、启动情况和每天工作小时数。
一个三维数组存储工作情况KA数据以及一些内部变量。
V带传动工作情况系数KA
工况情况
KA
空、轻载启动
重载启动
每天工作小时数/h
＜10
10~16
＞16
载荷变动最小
1.0
1.1
1.2
1.3
载荷变动小
1.4
载荷变动较大
1.5
1.6
载荷变动最大
1.8
处理V带传动工作情况系数KA的程序参数表
变量名称
变量性质
在程序内部的名称
类型
实际载荷情况
输入参数
zhqk
字符型
实际启动情况
qdqk
实际每天工作小时数
mtss
工作情况系数
ka
单精度
载荷情况一维数组
内部处理数组
zhqksz
变体型
启动情况一维数组
qdqksz
每天工作小时一维数组
mtsssz
工作情况系数一维数组
kaywsz
工作情况系数三维数组
kaswsz
行循环变量
内部变量
x
整型
大列循环变量
y
小列循环变量
j
计数变量
js
带传动工作情况系数KA查询程序的流程图
定义变量zhqk、qdqk、mtss、zhqksz、qdqksz、ka、kaywsz、x、y、j、js、kaswsz
为输入参数zhqk赋值
为输入参数dqqk赋值
为输入参数mtss赋值
为载荷情况数组zhqksz初始化
为启动情况数组qdqksz初始化
为工作情况系数一维数组kaywsz赋值
Forx=1toubound（zhqksz）
为工作情况系数三维数组kaswsz赋值
真
Ifzhqk=zhqk（x）→退出循环
假↓
继续
Fory=1toubound（qdqksz）
Ifqdqk=qdqk（y）→退出循环
Forj=1toubound（mtsssz）
Ifmtss=mtss（j）→退出循环
Ka=kaswsz（x,y,j）
用文本框txtka显示输出参数ka
程序模块的代码
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）'
动能；
定义变量与数组、接受输入、查询、显示结果
DimzhqkAsString
DimqdqkAsString
DimmtssAsString
Dimzhqksz
Dimqdqksz
Dimmtsssz
DimkaAsSingle
Dimkaywsz
Dimkaswsz（5,3,4）AsSingle
DimxAsInteger
DimyAsInteger
'
DimzAsInteger
DimjAsInteger
DimjsAsInteger
zhqk=Trim（cbozhqk.Text）
qdqk=Trim（cboqdqk.Text）
mtss=Trim（cbomtss.Text）
kaywsz=Array（1#,1.1,1.2,1.1,1.2,1.3,_
1.1,1.2,1.3,1.2,1.3,1.4,_
1.2,1.3,1.4,1.4,1.5,1.6,_
1.3,1.4,1.5,1.5,1.6,1.8）
zhqksz=Array（"
载荷变动最小"
"
载荷变动小"
载荷变动较小"
载荷变动最大"
）
qdqksz=Array（"
空、轻载启动"
重载启动"
mtsssz=Array（"
<
10"
10-16"
>
16"
js=0
Forx=1ToUBound（zhqksz）
Fory=1ToUBound（qdqksz）
Forj=1ToUBound（mtsssz）
js=js+1
kaswsz（x,y,j）=kaywsz（js）
Nextj
Nexty
Nextx
Ifzhqk=zhqksz（x）ThenExitFor
Ifqdqk=qdqksz（y）ThenExitFor
Ifmtss=mtsssz（j）ThenExitFor
ka=kaswsz（x,y,j）
txtka.Text=ka
Form1.txtka.Text=ka
UnloadMe
EndSub
PrivateSubFrom_Initialise（）'
为组合框对象的text属性赋初值
cbozhqk.Text=cbozhqk.List
（1）
cboqdqk.Text=cboqdqk.List
（1）
cbomtss.Text=cbomtss.List
（1）
PrivateSubForm_Load（）
From_Initialise
PrivateSubForm_Unload（CancelAsInteger）
Form1.Show
显示结果如下：
输入工况情况
得出结果，并计算出设计功率
（二）包角系数查询模块
（1）计算V带基准长度和中心距
（2）包角系数查询程序模块
本模块参数说明
中间变量
用于循环
vdbj
定义包角值变量
存储所选包角值
xzxs
定义包角系数变量
存储包角系数
vdbjsz
定义数组变量
存储可选的包角值
xzxssz
存储可选的包角系数值
选择包角值
本单元模块程序流程图
不等于
判断包角
等于
赋值给变量和标签
程序结束
程序原文：
OptionExplicit‘要求定义变量
PrivateSubCommand1_Click（）‘点击“确定”按钮
DimxAsInteger‘定义变量中间变量
DimvdbjAsInteger‘定义变量（存储所选包角值）
DimxzxsAsSingle‘定义变量（存储包角系数）
Dimvdbjsz‘定义数组变量（存储可选的包角值）
Dimxzxssz‘定义数组变量（存储可选的包角系数值）
vdbj=Trim（cbovdbj.Text）‘把所选包角值赋给变量
vdbjsz=Array（180,170,160,150,140,130,120,110,100,90）‘把可选包角值赋给数组变量
xzxssz=Array（1#,0.98,0.95,0.92,0.89,0.86,0.82,0.78,0.74,0.69）‘把可选包角系数值赋给数组变量
Forx=1ToUBound（vdbjsz）
Ifvdbj=vdbjsz（x）ThenExitFor‘循环判断查询所选包角对应值
Nextx
xzxs=xzxssz（x）‘把对应数组值赋给变量
lblxzxs.Caption=xzxs‘把变量值赋给标签，用于在本窗口显示出来
Form1.lblka.Caption=xzxs‘把变量值赋给标签，用于在窗口1显示出来
'
UnloadMe‘卸载本窗口
EndSub‘按钮单击过程结束
PrivateSubForm_Load（）
cbovdbj.Text=180‘窗口装载时初始化下拉列表框
（3）显示结果
输入包角大小
得出包角系数结果
（三）带轮单位长度质量和轮槽尺寸查询模块
普通V带截面尺寸
型号
Y
Z
A
B
C
D
E
节宽bp/mm
5.3
8.5
11.0
14.0
19.0
27.0
32.0
顶宽B/mm
6.0
10.0
13.0
17.0
22.0
38.0
高度H/mm
4.0
8.0
25.0
单位长度质量Q/（kg/m）
0.02
0.06
0.10
0.17
0.30
0.62
0.90
处理V带横截面尺寸的程序参数表
V带型号
vdxh
节宽
bp
顶宽
b
高度
h
单位长度质量
输出参数
q
V带型号一维数组
vdxhsz
节宽一维数组
bpsz
顶宽一维数组
bsz
高度一维数组
hsz
单位长度质量一维数组
qsz
循环变量
V带横截面尺寸查询程序的流程图
定义变量vdxh、bp、b、h、q、vdxhsz、bpsz、bsz、hsz、qsz、x
为输入参数vdxh赋值
为标准V带型号数组vdxhsz赋值
为节宽数组bpsz初始化
为顶宽数组bsz初始化
为高度数组hsz初始化
为单位长度质量数组qsz初始化
Forx=1toubound（vdxhsz）
If输入参数=vdxh（x）→退出循环
Pb=bpsz（x）
B=bsz（x）
H=hsz（x）
Q=qsz（x）
程序原文模块代码：
PrivateSubCommand1_Click（）
DimxAsInteger
DimvdxhAsString
DimbpAsSingle
DimbAsSingle
DimhAsSingle
DimqAsSingle
Dimvdxhsz
Dimbpsz
Dimbsz
Dimhsz
Dimqsz
vdxh=Trim（cbovdxh.Text）
vdxhsz=Array（"
Y"
Z"
A"
B"
C"
D"
E"
bpsz=Array（5.3,8.5,11#,14#,19#,27#,32）
bsz=Array（6#,10#,13#,17#,22#,32#,38#）
hsz=Array（4#,6#,8#,11#,14#,19#,25#）
qsz=Array（0.02,0.06,0.1,0.17,0.3,0.62,0.9）
Forx=1ToUBound（vdxhsz）
Ifvdxh=vdxhsz（x）ThenExitFor
bp=bpsz（x）
b=bsz（x）
h=hsz（x）
q=qsz（x）
lblBP.Caption=bp
lblB.Caption=b
lblH.Caption=h
lblQ.Caption=q
Form1.txtq.Text=q
PrivateSubCommand2_Click（）
Form10.qq.Caption=Form6.lblQ.Caption
Form10.hh.Caption=Form6.lblH.Caption
Form10.bb.Caption=Form6.lblB.Caption
Form10.bp.Caption=Form6.lblBP.Caption
Form10.Show
UnloadMe
cbovdxh.Text="
输入带型
程序查询求出结果
输出V带横截面尺寸参数
最后，输出V带设计的主要参数
（四）公式运算和有关数据验算
（1）设计功率、大小带轮基准直径的运算如下：
大小带轮基准直径必须符合基准直径系列值。
（2）验算带速：
带速是否在5~25m/s的范围内，如果超出范围就需要重新选择小带轮直径d1
（3）求V带根数
（4）求单根V带的初拉力和作用在带轮轴上的压力
六、基本计算过程比较
（1）求计算功率Pc
查表得KA=1.2，故
Pc=KAP=1.2×
9=10.8kW
（2）选普通V带型号
根据Pc=10.8kW，n1=1460r/min，由图查出此坐标点位于A型与B型交界处，现暂按选用B型计算。
（3）求大、小带轮基准直径d2、d1
由表得，取d1=140mm，由式得
d2=
d1（1-ε）=
×
140×
（1-0.02）=313mm
由表中取d2=315mm（虽使n2略有减小，但其误差小于5%，故允许）
（4）验算带速v
v=
=
=10.7m/s
带速在5~25m/s范围内，合适。
（5）求V带基准长度Ld和中心距a
初步选取中心距
a0=1.5（d1+d2）=1.5×
（140+315）=682.5mm
取a0=700mm，符合0.7（d1+d2）＜a0＜2（d1+d2）。
由式得带长
L0=2a0+
（d1+d2）+
=2×
700+
（140+315）+
=2126mm
查表得，对B型带选用Ld=2240mm。
计算实际中心距
a≈a0+
=700+
=757mm
（6）验算小带轮包角α1
得
α1=180°
－
57.3°
=180°
=167°
＞120°
，合适
（7）求V带根数z
z=
令n1=1460r/min，d1=140mm，查表得
P0=2.82kW
传动比
i=
=2.3
查表得ΔP0=0.46kW
由α1=167°
查表得Kα=0.97；
查表得KL=1，由此可得
=3.39
取4根。
（8）求作用在带轮上的压力FQ
查表得q=0.17kg/m，得单根V带的初拉力
F0=
+qv2=
+0.17×
10.72=218N
作用在轴上的压力
FQ=2zF0sin
4×
218×
sin
=1733N
七、结论
本次模拟V带设计及软件二次开发，基本实现了利用软件二次开发进行图表查询的功能，也基本实现了计算功能。
通过这次小组联合设计活动，使我们加深了对计算机辅助设计过程的认识，有利于我们今后在机械设计中，如何更好地充分利用计算机来设计开发产品。
升级会员 