基于V带传动设计过程中的软件二次开发.docx
- 文档编号:9778075
- 上传时间:2023-02-06
- 格式:DOCX
- 页数:23
- 大小:200.83KB
基于V带传动设计过程中的软件二次开发.docx
《基于V带传动设计过程中的软件二次开发.docx》由会员分享,可在线阅读,更多相关《基于V带传动设计过程中的软件二次开发.docx(23页珍藏版)》请在冰豆网上搜索。
基于V带传动设计过程中的软件二次开发
基于V带传动设计过程中的软件二次开发
设计组成员:
雷菲菲李晓岱张自清熊明玮
专业:
2007级机械工程硕士
分工:
李晓岱V带单位长度质量和截面尺寸查询程序模块设计
全文整理
张自清V带包角修正系数查询程序模块设计和总体方案设计
熊明玮V带工作情况系数和原始参数输入查询程序模块设计
雷菲菲V带其他图表的查询程序和数据运算
整理:
李晓岱
日期:
2010-11-1——2010-1-11
评语:
总评成绩:
指导教师签名:
年月日
目录
一.问题提出,及边界条件
二.总体方案设计思路
三.V带传动的原始参数输入模块
四.基本数据处理模块
(一)V带工作情况系数Ka查询程序模块
(二)V包角修正系数查询程序模块
(三)V带单位长度质量和截面尺寸查询程序模块
(四)V带轮设计过程中其他图表查询和数据运算过程
五.基本计算过程比较
六.结论
一、问题提出,及边界条件设定
试设计一通风机用的V带传动。
选取异步电动机驱动,已知电动机的转速n1=1460r/min,通风机的转速n2=640r/min,通风机输入功率P=9kW,两班制工作。
二、总体方案设计思路
Ø第一步求计算功率Pc——即根据V带传动工作情况系数KA求出Pc=KAP
Ø第二步选普通V带型号——即根据Pc、n1选出V带型号。
Ø第三步求大、小带轮基准直径d2、d1——即根据V带型号,确定小带轮的最小直径dmin,并试选d1>dmin。
并根据电机与通风机的转速比求出d2,再圆整到基准直径尺寸。
Ø第四步验算带速v——根据d1、n1计算出v,并需要判断带速是否在5~25m/s的范围内,如果超出范围就需要重新选择小带轮直径d1。
Ø第五步求V带基准长度Ld和中心距a——需根据大、小带轮基准直径d2、d1,初步计算中心距a0,并判断是否满足0.7(d1+d2)<a0<2(d1+d2)这个条件。
再求出带长L0。
按最接近原则选择V带基准长度Ld后,重新计算实际中心距a。
Ø第六步验算小带轮包角α1——根据大、小带轮基准直径d2、d1,求出小带轮包角α1,并验算小带轮包角是否>120°,否则要加大中心距或增加张紧轮机构。
Ø第七步求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
<10
10~16
>16
载荷变动最小
1.0
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
处理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)
Forx=1toubound(zhqksz)
Forx=1toubound(zhqksz)
为工作情况系数三维数组kaswsz赋值
Forx=1toubound(zhqksz)
真
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
Forx=1ToUBound(zhqksz)
Ifzhqk=zhqksz(x)ThenExitFor
Nextx
Fory=1ToUBound(qdqksz)
Ifqdqk=qdqksz(y)ThenExitFor
Nexty
Forj=1ToUBound(mtsssz)
Ifmtss=mtsssz(j)ThenExitFor
Nextj
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)
EndSub
PrivateSubForm_Load()
From_Initialise
EndSub
PrivateSubForm_Unload(CancelAsInteger)
Form1.Show
EndSub
显示结果如下:
输入工况情况
得出结果,并计算出设计功率
(二)包角系数查询模块
(1)计算V带基准长度和中心距
(2)包角系数查询程序模块
本模块参数说明
x
中间变量
用于循环
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‘窗口装载时初始化下拉列表框
EndSub
(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
32.0
38.0
高度H/mm
4.0
6.0
8.0
11.0
14.0
19.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
变体型
循环变量
内部处理数组
x
整型
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)
程序原文模块代码:
OptionExplicit
OptionBase1
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
Nextx
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
EndSub
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
EndSub
PrivateSubForm_Load()
cbovdxh.Text="Y"
EndSub
显示结果如下:
输入带型
程序查询求出结果
输出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°-
×57.3°=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,由此可得
z=
=3.39
取4根。
(8)求作用在带轮上的压力FQ
查表得q=0.17kg/m,得单根V带的初拉力
F0=
+qv2=
+0.17×10.72=218N
作用在轴上的压力
FQ=2zF0sin
=2×4×218×sin
=1733N
七、结论
本次模拟V带设计及软件二次开发,基本实现了利用软件二次开发进行图表查询的功能,也基本实现了计算功能。
通过这次小组联合设计活动,使我们加深了对计算机辅助设计过程的认识,有利于我们今后在机械设计中,如何更好地充分利用计算机来设计开发产品。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 基于 传动 设计 过程 中的 软件 二次开发