基于V带传动设计过程中的软件二次开发Word文档下载推荐.docx

1、 第七步 求V带根数 根据 小带轮直径d1和转速、n1查得P0 ，再计算出传动比i，由传动比i和n1查得单根普通V带的额定功率的增量P0，然后求出V带根数。同时要求取整数。 第八步 求作用在带轮上的压力FQ 先计算单根V带的初拉力，再求得z根带作用在轴上的总拉力。 最后，输出计算结果。三、原始参数输入模块原始参数输入模块：包括主要参数接受模块（接受功率、转速、传动比），和工况情况接受模块（接受载荷情况、启动情况、每天工作时间）。前者为一维规则非函数表，计算机辅助设计查询时，只要一个输入参数，存储数据使用一维数组即可。后者是一个三维规则非函数表，相对较复杂。下面是主要参数接受模块，并自动算出传动

2、比。四、数据处理模块中间数据处理主模块：包括并行带型号选择模块、带轮基准直径的试选模块、中心距的试选模块。这三个模块接受的数据来自选择带型、小带轮直径、中心距窗口。基本数据处理模块：包括工况系数查询模块、V带型号及小带轮直径范围查询模块、基准直径查询模块、单根带功率查询模块、功率增量查询模块、包角系数查询模块、长度系数查询模块、带轮轮槽尺寸查询模块、带轮结构与幅板厚度查询模块。设计结果处理模块：包括保存结构模块、显示带轮结构与尺寸模块、生成带轮工作图模块。下面重点给出工况系数查询模块、包角系数查询模块、V带轮单位长度质量和轮槽尺寸查询模块三个模块程序的编制过程。其他模块采用图表查询方式进行。（

3、一）工况系数查询模块普通V带传动的工作情况系数KA，在人工查询的过程中，是根据实际工作情况所在行和实际启动情况所在大列，再根据每天工作小时所在的小列，来查得KA值。当采用计算机程序查询时，需要三个输入参数：工况、每天工作小时数和启动情况，故三个一维数组分别用来存储表中的工况情况、启动情况和每天工作小时数。一个三维数组存储工作情况KA数据以及一些内部变量。V带传动工作情况系数KA工况情况KA空、轻载启动重载启动每天工作小时数/h10101616载荷变动最小1.01.11.21.3载荷变动小1.4载荷变动较大1.51.6载荷变动最大1.8处理V带传动工作情况系数KA的程序参数表变量名称变量性质在程

4、序内部的名称类型实际载荷情况输入参数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初

5、始化为启动情况数组qdqksz初始化为工作情况系数一维数组kaywsz赋值For x=1 to ubound（zhqksz）为工作情况系数三维数组kaswsz赋值 真If zhqk = zhqk（x） 退出循环假继续For y=1 to ubound（qdqksz）If qdqk = qdqk（y） 退出循环For j=1 to ubound（mtsssz）If mtss = mtss（j） 退出循环Ka = kaswsz（x,y,j）用文本框txtka显示输出参数ka程序模块的代码Option ExplicitOption Base 1Private Sub Command1_Click（）

6、 动能；定义变量与数组、接受输入、查询、显示结果 Dim zhqk As String Dim qdqk As String Dim mtss As String Dim zhqksz Dim qdqksz Dim mtsssz Dim ka As Single Dim kaywsz Dim kaswsz（5, 3, 4） As Single Dim x As Integer Dim y As Integer Dim z As Integer Dim j As Integer Dim js As Integer zhqk = Trim（cbozhqk.Text） qdqk = Trim（cbo

7、qdqk.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（16 js = 0 For x = 1 To UBound（zhqksz） Fo

8、r y = 1 To UBound（qdqksz） For j = 1 To UBound（mtsssz） js = js + 1 kaswsz（x, y, j） = kaywsz（js） Next j Next y Next x If zhqk = zhqksz（x） Then Exit For If qdqk = qdqksz（y） Then Exit For If mtss = mtsssz（j） Then Exit For ka = kaswsz（x, y, j） txtka.Text = ka Form1.txtka.Text = ka Unload MeEnd SubPrivate

9、 Sub From_Initialise（） 为组合框对象的text属性赋初值 cbozhqk.Text = cbozhqk.List（1） cboqdqk.Text = cboqdqk.List（1） cbomtss.Text = cbomtss.List（1）Private Sub Form_Load（）From_InitialisePrivate Sub Form_Unload（Cancel As Integer）Form1.Show显示结果如下：输入工况情况得出结果，并计算出设计功率（二）包角系数查询模块（1）计算V带基准长度和中心距（2）包角系数查询程序模块本模块参数说明中间变量用于

10、循环vdbj定义包角值变量存储所选包角值xzxs定义包角系数变量存储包角系数vdbjsz定义数组变量存储可选的包角值xzxssz存储可选的包角系数值选择包角值本单元模块程序流程图不等于判断包角等于赋值给变量和标签程序结束程序原文：Option Explicit 要求定义变量Private Sub Command1_Click（） 点击“确定”按钮Dim x As Integer 定义变量中间变量Dim vdbj As Integer 定义变量（存储所选包角值）Dim xzxs As Single 定义变量（存储包角系数）Dim vdbjsz 定义数组变量（存储可选的包角值）Dim xzxssz

11、 定义数组变量（存储可选的包角系数值）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） 把可选包角系数值赋给数组变量For x = 1 To UBound（vdbjsz） If vdbj = vdbjsz（x） Then Exit For 循环判断查询所选包角对应值Next xx

12、zxs = xzxssz（x） 把对应数组值赋给变量lblxzxs.Caption = xzxs 把变量值赋给标签，用于在本窗口显示出来Form1.lblka.Caption = xzxs 把变量值赋给标签，用于在窗口1显示出来Unload Me 卸载本窗口End Sub 按钮单击过程结束Private Sub Form_Load（） cbovdbj.Text = 180 窗口装载时初始化下拉列表框 （3）显示结果 输入包角大小得出包角系数结果（三）带轮单位长度质量和轮槽尺寸查询模块普通V带截面尺寸型号YZABCDE节宽bp/mm5.38.511.014.019.027.032.0顶宽B/mm

13、6.010.013.017.022.038.0高度H/mm4.08.025.0单位长度质量Q/（kg/m）0.020.060.100.170.300.620.90处理V带横截面尺寸的程序参数表V带型号vdxh节宽bp顶宽b高度h单位长度质量输出参数qV带型号一维数组vdxhsz节宽一维数组bpsz顶宽一维数组bsz高度一维数组hsz单位长度质量一维数组qsz循环变量V带横截面尺寸查询程序的流程图定义变量vdxh、bp、b、h、q、vdxhsz、bpsz、bsz、hsz、qsz、x为输入参数vdxh赋值为标准V带型号数组vdxhsz赋值为节宽数组bpsz初始化为顶宽数组bsz初始化为高度数组hs

14、z初始化为单位长度质量数组qsz初始化For x=1 to ubound（vdxhsz）If 输入参数 = vdxh （x） 退出循环Pb = bpsz（x）B = bsz（x）H = hsz（x）Q = qsz（x）程序原文模块代码：Private Sub Command1_Click（）Dim x As IntegerDim vdxh As StringDim bp As SingleDim b As SingleDim h As SingleDim q As SingleDim vdxhszDim bpszDim bszDim hszDim qszvdxh = Trim（cbovdxh.

15、Text）vdxhsz = Array（YZABCDEbpsz = 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）For x = 1 To UBound（vdxhsz） If vdxh = vdxhsz（x） Then Exit Forbp = bpsz（x）b = bsz（x）h = hs

16、z（x）q = qsz（x）lblBP.Caption = bplblB.Caption = blblH.Caption = hlblQ.Caption = qForm1.txtq.Text = qPrivate Sub Command2_Click（）Form10.qq.Caption = Form6.lblQ.CaptionForm10.hh.Caption = Form6.lblH.CaptionForm10.bb.Caption = Form6.lblB.CaptionForm10.bp.Caption = Form6.lblBP.CaptionForm10.ShowUnload Me

17、cbovdxh.Text = 输入带型程序查询求出结果输出V带横截面尺寸参数最后，输出V带设计的主要参数（四）公式运算和有关数据验算（1）设计功率、大小带轮基准直径的运算如下：大小带轮基准直径必须符合基准直径系列值。（2）验算带速：带速是否在525m/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）

18、求大、小带轮基准直径d2、d1由表得，取d1=140mm，由式得d2=d1（1-）=140（1-0.02）=313mm由表中取d2=315mm（虽使n2略有减小，但其误差小于5%，故允许）（4）验算带速vv=10.7m/s带速在525m/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）+=2700+（140+315）+=2126mm查表得，对B型带选用Ld=2240mm。计算实际中心距aa0+=700+=7

19、57mm（6）验算小带轮包角1得1=18057.3=180=167120，合适（7）求V带根数zz=令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.1710.72=218N作用在轴上的压力FQ=2zF0sin4218sin=1733N七、结论本次模拟V带设计及软件二次开发，基本实现了利用软件二次开发进行图表查询的功能，也基本实现了计算功能。通过这次小组联合设计活动，使我们加深了对计算机辅助设计过程的认识，有利于我们今后在机械设计中，如何更好地充分利用计算机来设计开发产品。