计算机辅助机械设计V带轮设计(共148张PPT)

第5章普通V带传动计算机辅助设计5.1用户需求5.2系统结构设计5.3数表的规则化5.4选型图的处理附录普通V带传动计算机辅助设计VB6.0源程序第1页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第1页。5.1用户需求

普通V带传动是工程中使用比较广泛的一种机械传动，主要用于两轴之间距离较远的动力传递。普通V带传动的参数化设计程序涉及到参数选择、设计计算以及数表和线图处理等问题。通过本章的学习，一方面，可提高机械设计数表与线图的处理能力；另一方面，对计算机辅助机械设计软件的开发全过程也可有初步的了解。普通V带为无头环形橡胶带，由伸张层（顶胶）、强力层（抗拉体）、压缩层（底胶）和包布层（胶帆布）组成。第2页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第2页。

普通V带是标准件，按截面尺寸从小到大分为Y、Z、A、B、C、D、E七种型号。需要用户提供的原始数据一般为：传动用途、传递功率、主动轮转速、从动轮转速或传动比、原动机种类、工作机载荷性质、传动位置要求、外廓尺寸等。用户的需求一般包括：确定普通V带型号，带的基准长度、根数，传动中心距，带轮材料、基准直径、结构型式及尺寸，计算带的初拉力、初拉力增量、作用在轴上的压力，张紧装置，绘制带轮零件工作图等。通常，用户提供的原始数据是计算机程序的主要输入参数，用户的需求是计算机程序的主要输出参数。普通V带传动参数化设计程序的主要输入/输出参数见表5-1。第3页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第3页。5.2系统结构设计普通V带传动的手工设计过程

1．普通V带传动的手工设计过程普通V带传动的手工设计过程一般如图5-1所示。第4页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第4页。图5-1普通V带传动的手工设计过程第5页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第5页。

2．普通V带传动手工设计方法与步骤机械设计软件的最基本功能之一是代替手工设计。因此，手工设计步骤与设计依据或公式，是软件功能结构与算法设计的基本依据，计算机求解问题的过程基本是仿照手工设计的步骤与方法进行的。很难想象，软件开发人员在不了解手工设计方法与步骤的情况下，能够独立开发出一套有实用价值的软件。因此，回顾手工设计的方法与步骤是软件设计之初必须进行的一项基础工作。下面列出普通V带传动手工设计的方法与步骤（见表5-2），以便于读者回顾机械设计的方法与步骤，也有助于阅读理解本章附录列出的普通V带传动设计源程序，有利于机械设计软件开发思路的逐步形成。第6页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第6页。【例5-1】设计由电动机驱动的旋转式水泵所用的普通V带传动。电动机型号为Y160M-4，其额定功率P=11kW，转速n1=1460r/min，水泵轴转速n2=400r/min，轴间距约为1500mm，每天工作8小时。设计过程见表5-3。第7页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第7页。软件结构设计软件结构指软件的各功能模块及其相互间的调用关系。所谓功能模块，就是实现一定功能的若干语句或函数序列。比如，VB6.0应用软件中,sub过程（包括事件sub和一般sub过程）、function函数、独立的bas模块、form窗体都是一个功能模块。bas模块和form模块一般可以包括多个sub和function模块，是多个sub和function模块的集合。同样，在VF6.0中，procedure、function都是功能模块。在VL中，一个用户自定义函数就是一个功能模块。第8页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第8页。

开发机械设计软件时，为了处理问题方便，通常把处理某一个数表、某一个图形的语句或函数序列放在一个模块中，而接受用户输入的语句、输出设计结果的语句或函数等，常放在对象的事件过程中。各种语言都有各自的模块调用方法。比如VB6.0，用call语句实现sub过程之间的相互调用。但值得注意的是，在可视化语言中，用户只能激发对象，引发对象的事件过程，比如鼠标单击命令按钮，引发该命令按钮的click事件过程。设计软件结构，就是划分程序的功能模块，确定相互之间的调用关系。如同写文章要先列文章的提纲一样，设计软件要先设计软件的结构。第9页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第9页。

普通V带传动程序可设置以下功能模块：（1）原始参数输入主模块（主窗体frmbelt.frm）:它包括主要参数接收模块（接收功率、转速、传动比）,工况情况接收模块（接收载荷情况、启动情况、每天工作时间）。这两个模块接收的数据来自原始参数输入窗口，见图5-2。第10页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第10页。图5-2普通V带传动设计的原始数据输入窗口第11页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第11页。

（2）中间数据处理主模块（窗体FrmOptionxhd1a.frm）:它包括并行带型号选择模块、带轮基准直径的试选模块、中心距的试选模块。这三个模块接收的数据来自选择带型、小带轮直径、中心距窗口，见图5-3。（3）基本数据处理模块（一般sub过程、bas独立模块）：包括工况系数查询模块、V带型号及小带轮直径范围查询模块、基准直径查询模块、单根带功率查询模块、功率增量查询模块、包角系数查询模块、长度系数查询模块、带轮轮槽尺寸查询模块、带轮结构与辐板厚度查询模块。第12页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第12页。图5-3普通V带传动的带型、直径、中心距选择窗口第13页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第13页。

（4）设计结果处理模块（窗体frmbeltDisply.frm）：它包括保存结果模块、打印结果模块、显示带轮结构与尺寸模块、生成带轮工作图模块。这些模块处理的数据来自以上两个主模块执行过程中生成的数据文件或处理结果。这些模块的调用窗口见图5-4。第14页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第14页。图5-4普通V带传动设计结果处理窗口第15页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第15页。

如果用填以功能描述的方框表示功能模块，用直线表示模块的调用，则由方框与直线组成的图形称为功能模块结构图。下面给出普通V带的功能模块结构图，供读者参考。（1）窗体模块结构图设计：普通V带传动设计的窗体模块结构图由三个窗体模块组成，见图5-5。（2）功能模块结构图设计：普通V带传动设计的功能模块结构图由三个窗体即包含的sub过程、一个独立的bas模块及其包含的function函数（未列出，可参见本章附录程序）所组成，见图5-6。第16页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第16页。图5-5V带传动参数化设计窗体模块结构图第17页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第17页。图5-6V带传动设计功能模块结构图第18页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第18页。5.3数表的规则化单根带额定功率的查询

对于该表中的“-”号应作0数值化处理，其理由是：V带传动能力随着转速的不断提高，带传递功率以从小到大，又从大到小的规律变化，当转速达到一定值后，将出现明显的“打滑”现象，传递功率几乎减小到零。因此，将表中“-”号代之以“0”数值，造成的误差是不大的，可以满足工程要求。第19页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第19页。

插值处理可以有以下两种方法：

(1)按三维函数表二次插值法查询，此种方法见5.5节所附源程序中的PrivateSubpower1()过程。

(2)按二维函数表二次插值查询。用多重判断语句(如if…then…else或selectcase)先判断输入的V带型号。对于每一个型号的功率查询，按二维函数表二次插值方法进行。第20页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第20页。带轮轮辐结构的查询由节可知，V带轮轮辐结构表的数据规律性不太强、数据量多、代码编写量大，如果采用VF程序处理，则代码量较少。下面介绍用VF程序处理的方法，供读者参考。用VF程序处理时，首先将该表中的数据规则化，然后将其录入数据表(如lunfuhoudu.dbf)，然后编写一个程序文件(如lunfuhoudu.prg)，或编一个事件过程(如，完成查询任务。第21页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第21页。

下面是用VF程序查询V带轮轮辐结构的例子。为了重点说明方法，这里将原始表数据，按照带型号拆分为六个数据表：Z型轮结构.dbf、A型轮结构.dbf、B型轮结构.dbf、C型轮结构.dbf、D型轮结构.dbf、E型轮结构.dbf。限于篇幅，这里以A型轮结构.dbf为例来说明其处理方法。A型轮结构.dbf见图5-7，设计的数据库窗体见图5-8，运行结果见图5-9。第22页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第22页。图5-7A型轮结构.dbf第23页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第23页。图5-8带轮结构查询窗体第24页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第24页。图5-9带轮结构查询结果第25页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第25页。“查询”按钮的单击事件过程的代码，见代码5-1。代码5-1“查询”按钮的单击事件过程代码［］

zuixiaokongjing=0zuidakongjing=0DoCase&&控制孔径输入范围第26页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第26页。Casexinghao="Z"Ifkongjing<12orkongjing>35zuixiaokongjing=12zuidakongjing=35EndIfCasexinghao="A"Ifkongjing<10Orkongjing>45zuixiaokongjing=10zuidakongjing=45EndIfCasexinghao="B"Ifkongjing<32Orkongjing>65zuixiaokongjing=32zuidakongjing=65EndIf第27页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第27页。Casexinghao="C"Ifkongjing<42Orkongjing>85zuixiaokongjing=42zuidakongjing=85EndIfCasexinghao="D"Ifkongjing<60Orkongjing>110zuixiaokongjing=60zuidakongjing=110EndIfCasexinghao="E"Ifkongjing<80Orkongjing>150zuixiaokongjing=80zuidakongjing=150EndIf第28页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第28页。EndCaseIfzuixiaokongjing<>0andzuidakongjing<>0messagebox("孔径太小或太大,最小应为:"+alltrim(str(zuixiaokongjing))+-",最大应为"+alltrim(str(zuidakongjing))+",请重新输入!",0,"查询")ReturnEndIfbiao=xinghao+“型轮结构”

&&获取表名

Select0use数据1!&biaoagainLocateForZhijing=基准直径Andkongjing<=孔径 &&查询

Iffound()=(.t.) &&若查到合适结构结构形式辐板厚度槽数第29页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第29页。Else &&若未查到合适结构

LocateForkongjing<=孔径

biaozhunkongjing=孔径 &&查找与输入孔径相近的标准孔径(因为用户输入的孔径可能不是标准孔径):biaozhunkongjingLocateFor孔径=biaozhunkongjingandisblank(结构形式)=(.f.)&&查找与标准孔径biaozhunkongjing相对应的最小基准直径

Iffound()=(.t.)zuixiao=基准直径

EndIfdowhile孔径=biaozhunkongjingandisblank(结构形式)=(.f.)&&查找与标准孔径biaozhunkongjing相对应的最大基准直径

skip1第30页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第30页。Enddoskip-1zuida=基准直径

messagebox("基准直径太小或太大,最小应为:"+alltrim(str(zuixiao))+-"最大应为:"+alltrim(str(zuida))+chr(13)+chr(10)+;",请重新输入!",0,"查询")returnmessagebox("无合适带形式",0,"查询")EndIf第31页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第31页。5.4选型图的处理V带选型图的处理属于区域处理的范畴，区域处理的一般方法在3.3节中已经介绍过了，此处V带选型图有一些具体情况，需要特别作一些处理。由V带传动能力可知，当转速超过一定值后，将出现打滑现象，此时，转速对功率的变化率较大(即转速增加时，传递功率增加得很少)。对照选型图来看，图中的每条线都有一个转折点，转折点的以上部分的直线就反映了打滑现象。显然，所有转折点以上部分直线所包围的区域是不可用来选型的。为了排除这部分区域，可作一条“增加线”，见图5-10，有效的带型从增加线下区域中选择。第32页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第32页。图5-10V带选型图的处理第33页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第33页。

图中的增加线，由六段直线连接而成。对于增加线上的每段直线以及分型线（粗实线）、直径范围分界线（图中的虚线），都可参照节中所述方法求出其数学模型。求出了上述所有直线的数学模型，也就是建立了带型有效区域的边界线数学模型。接下来要做的事情，就是如何确定选型点，即确定由设计功率pd和小带轮转速n1所确定的坐标点d在有效区中的位置。下面以C型区为例，进一步说明选型思路与程序设计方法。第34页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第34页。

如图5-11所示，有效选型区为B—C—D—E—B包围的区域，这个区域再被直线C—F分为两个分区：C1分区(B—C—F—E—B围成的区域)和C2分区(C—D—F—C围成的区域)。若事先确定各条直线的数学模型如下：第35页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第35页。图5-11V带选型图处理方法第36页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第36页。B—C线的数学模型为

n1BC=29.44249×pd^1.162165（5-1）D—E线的数学模型为

n1DE=7.63971×pd^1.21196（5-2）C—D线的数学模型为

n1CD=3905.5×pd^-0.5078 (5-3)其中，交点C的横坐标为20kW；交点D的横坐标为42kW。设设计功率为spd(kW)，小带轮转速为sn1(转/分)。第37页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第37页。

程序执行式（5-1）、（5-2）、（5-3），分别计算出n1BC、n1DE、n1CD（相对应的坐标点见图中M1、M2、M3），可得以下判断：

(1)如果n1DE≤sn1≤n1BC且spd≤20，则选型点d一定落在C1区内；

(2)如果n1DE≤sn1≤n1CD且20≤spd≤42，则选型点d一定落在C2区内。第38页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第38页。在程序中，判断语句可表述为：ifsn1>=n1DEandsn1<=n1BCandspd<=20orsn1>=n1DEandsn1<=n1CD-andspd>=20andspd<=42thenxh="C“

’

型号为“C”型

dd1="200--315" ’

直径范围为“200--315”

endif第39页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第39页。附录普通V带传动计算机辅助设计VB6.0源程序1．frmbelt.frm窗体

frmbelt.frm窗体设计见图5-2，其全部代码见代码5-2。代码5-2窗体frmbelt.frm的全部代码OptionExplicitOptionBase1Privateworktime(1To7)AsString ’存储工作时间的数组

Privateworkcondition(1To5)AsString ’存储工作情况的数组

Privatekabelt(1To5,1To10)AsSingle ’存储工况系数的数组

PublicsworktimeAsString ’输入的每天工作时间

PublicsworkconditionAsString ’输入的工作情况第40页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第40页。PrivateSubbeltKA(sworktime,sworkcondition,ka,startcondition)’

功能：查询KADimiAsInteger ’

循环变量

DimjAsInteger ’

循环变量

OpenApp.Path+"＼B10-10.dat"ForInputAs＃1’B10-10.dat文件保存有文献19

’

中表6(工况系数表)的数据

Fori=1To4Input＃1,workcondition(i)NextiFori=1To3Input＃1,worktime(i)NextiFori=1To4Forj=1To3第41页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第41页。Input＃1,kabelt(i,j)NextjNextiFori=1To4Forj=4To6Input＃1,kabelt(i,j)NextjNextiCloseFori=1To4Ifsworkcondition=workcondition(i)ThenExitForNextiForj=1To3Ifsworktime=worktime(j)ThenExitForNextj第42页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第42页。Ifstartcondition="轻、空载启动"Thenka=kabelt(i,j)EndIfIfstartcondition="重载启动"Thenka=kabelt(i,j+3)EndIfEndSub

PrivateSublstHeavyClick() ’

功能：输入每天工作时间

sworktime=Lstheavy.TextEndSub

PrivateSublstLight-Click() ’

功能：输入每天工作时间

sworktime=Lstlight.TextEndSub第43页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第43页。PrivateSubCmdend_Click() ’

功能：终止程序

EndEndSub

PrivateSubCmdgoonClick() ’

功能：接收输入、计算、窗体交替

DimxAsInteger ’

定义临时变量

spower=Val(txtpower.Text)’

接收输入功率

n1=Val(Txtn1) ’

接收小带轮转速

sn2=Val(TxtN2.Text) ’

接收大带轮转速

si=Val(TxtI.Text) ’

接收传动比

Ifspower<=0Andn1<=0Then’

以下为判断输入是否适当；如不当，则退出过程

MsgBox"功率、小带轮转速必须大于零"第44页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第44页。ElseIfspower<=0ThenMsgBox"功率必须大于零"ElseIfn1<=0ThenMsgBox"小带轮转速必须大于零"EndIfIfsn2=0Andsi=0ThenMsgBox"从动轮转速和传动比不能同时为零"ExitSubEndIfIfsworkcondition=""ThenMsgBox"工作情况不能为空":ExitSubIfsworktime=""ThenMsgBox"工作时间不能为空":ExitSubIfspower<>0Andn1<>0Andsn2<>0Andsworktime<>""And-第45页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第45页。sworkcondition<>""Orspower<>0Andn1<>0Andsi<>0And-sworktime<>""Andsworkcondition<>""Then’

如输入适当

Ifsi=0Then’

传动比为0si=n1/sn2’

计算传动比

EndIfIfsn2=0Then’

大带轮转速为0sn2=n1/si’

计算大带轮转速

EndIfCallbeltKA(sworktime,sworkcondition,ka,startcondition) ’调用beltKA过程， ’查工况系数kapd=spower*ka ’为计算功率pd赋值，以便调用beltxh Callbeltxh(Pd,n1,xh(),d1()) ’调用beltxh过程，确定两种带 ’型XH()和两种小带轮直径范围第46页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第46页。 Ifxh(1)=“NIL”Then ’

若数组xh(1)(存储有带型号)值为空，说 ’明没有合适型号，给出提示信息，并退 ’出过程

MsgBox("无合适带型!可能是转速N1太高或功率P太大,请重新确定N1;P!"):ExitSubEndIfElseMsgBox"输入数据不正常,请重新输入":ExitSubEndIfCallzhoujing’

为下一个窗体FrmOptionxhd1a的控件lblxh1的’标题Caption赋值，以显示第一个带型号xh(1)第47页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第47页。’

为下一个窗体FrmOptionxhd1a的控件lblxh2的标题Caption赋值，以显示第二个带型号xh(2)FrmOptionxhd1a.Visible=True’

使下一个窗体FrmOptionxhd1a可见

’

使下一个窗体FrmOptionxhd1a的控件picd1a不可见

FrmBelt.Visible=False ’

使本窗体frmbelt不可见

FrmOptionxhd1a.optionxh=0 ’

为下一个窗体FrmOptionxhd1a的窗体变量optionxh初始化

EndSub第48页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第48页。PrivateSubFormLoad()’

功能：窗体加载，使其上对象初始化

TxtI.Visible=FalseTxtN2.Visible=FalseLstlight.Visible=FalseLstheavy.Visible=FalseLbLtime1.Visible=FalseLbLtime2.Visible=FalseEndSub

PrivateSubOptcondition1Click()’

功能：输入工作情况1sworkcondition=Optcondition1.CaptionEndSub第49页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第49页。PrivateSubOptcondition2Click() ’

功能：输入工作情况2sworkcondition=Optcondition2.CaptionEndSub

PrivateSubOptcondition3Click() ’

功能：输入工作情况3sworkcondition=Optcondition3.CaptionEndSub

PrivateSubOptcondition4-Click() ’

功能：输入工作情况4sworkcondition=Optcondition4.CaptionEndSub第50页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第50页。PrivateSubOptn2Click() ’

功能：用户决定输入从动轮转速n2TxtI.Visible=False ’

使文本框txtI不可见

TxtN2.Visible=True ’

使文体框txtN2可见

TxtI.Text="" ’

并清空文本框TxtIEndSub

PrivateSubOptiClick() ’

功能：用户决定输入传动比iTxtN2.Visible=False ’

使文本框TxtN2不可见

TxtI.Visible=True ’

使文本框TxtI可见

TxtN2.Text="" ’

并清空文本框TxtN2EndSub第51页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第51页。PrivateSubOptlightClick()’

用户决定选择轻、空载启动

Lstheavy.Visible=False’

使单选钮控件Lstheavy不可见

Lstlight.Visible=True’

使单选钮控件Lstlight可见

LbLtime1.Visible=True’

使列表框控件LbLtime1可见

LbLtime2.Visible=False’

使列表框控件LbLtime2不可见

startcondition=Optlight.Caption’

变量startcondition取控件Optlight的CaptionEndSub第52页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第52页。PrivateSubOptheavy_Click() ’

用户决定选择重载启动

Lstlight.Visible=False ’

使单选钮控件Lstlight不可见

Lstheavy.Visible=True ’

使单选钮控件Lstheavy可见

LbLtime2.Visible=True ’

使列表框控件LbLtime2可见

LbLtime1.Visible=False ’

使列表框控件LbLtime1不可见startcondition=Optheavy.Caption’

变量startcondition取控件Optheavy的CaptionEndSubPrivateSubbeltxh(PdAsSingle,n1AsSingle,xh()AsString,d1()AsString)

’

功能：查普通V带型号及小带轮直径范围

Rem输入参数:计算功率Pd(kW)Rem输入参数:小带轮转速n1(转/分)第53页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第53页。Rem输出参数:带型xh(1),xh(2)Rem输出参数:小带轮直径d1(1),d1(2)Rem字符型数组xh()的值按工程规定必须用英文大写

Dimnze1AsSingle,nze2AsSingle,nze3AsSingle,nze4AsSingleDimnze5AsSingle,nze6AsSingle,nze7AsSingle,nze8AsSingleDimnze9AsSingle ’nze1~nze9,选型图中的九条分型界线

Dimnk1AsSingle,nk2AsSingle,nk3AsSingle,nk4AsSingleDimnk5AsSingle,nk6AsSingle’nk1~nk6,增加线的六段直线

nze1=787.5327*Pd^1.07nze2=458.2745*Pd^1.095nze3=237.9256*Pd^1.035nze4=120*Pd^1.05324第54页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第54页。nze5=52.8337*Pd^1.160658nze6=29.44249*Pd^1.162165nze7=7.63971*Pd^1.21196nze8=2.614477*Pd^1.175764nze9=0.7456016*Pd^1.252225nk1=7066.3*Pd^-0.6456+200nk2=8182.6*Pd^-0.7368+200nk3=11090.4*Pd^-0.8689+200nk4=3905.5*Pd^-0.5078+150nk5=732.57*Pd^-0.0541+150nk6=550+100Ifn1>=nze2+50AndPd<=3.5Orn1>=nze2+50Andn1<=nk1AndPd<=4.5Then第55页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第55页。 xh(1)="Z":xh(2)="Z"’Z型区

d1(1)="50--71" d1(2)="80--100"ElseIfn1<=nze2+50Andn1>=nze2AndPd<=3.5Orn1>=nze2Andn1<=nk1-AndPd<=5Then ’Z_A型交界区。注意：VB规定，一个语句要接行写，应加一个空格和下划线

xh(1)="Z":xh(2)="A"d1(1)="80--100":d1(2)=d1(1)ElseIfn1<=nze2Andn1>=nze2-50AndPd<=5Orn1>=nze2-50And_n1<=nk2AndPd<=6Then’A-Z型交界区

xh(1)="A":xh(2)="Z"d1(1)="80--100":d1(2)=d1(1)第56页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第56页。ElseIfn1<=nze2-50Andn1>=nze4+50AndPd<=5Orn1>=nze4+50And_n1<=nk2AndPd<=10Then ’A型区

xh(1)="A":xh(2)=xh(1)d1(1)="80--100":d1(2)="112--140"ElseIfn1<=nze4+50Andn1>=nze4AndPd<=5Orn1>=nze4Andn1<=nk2_AndPd<=10Then ’A-B型交界区

xh(1)="A":xh(2)="B"d1(1)="112--140":d1(2)="125--140"ElseIfn1<=nze4Andn1>=nze4-50AndPd<=5Orn1>=nze4-50And_n1<=nk2AndPd<=10Then ’B-A型交界区

xh(1)="B":xh(2)="A"d1(1)="125--140":d1(2)="112--140"第57页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第57页。ElseIfn1<=nze4-50Andn1>=nze6+50AndPd<=10Orn1>=nze6+50_Andn1<=nk3AndPd<=18Then ’B型区

xh(1)="B":xh(2)=xh(1)d1(1)="125--140":d1(2)="160--200"ElseIfn1<=nze6+50Andn1>nze6AndPd<=10Orn1>=nze6Andn1<=nk3_AndPd<=18Then ’B-C型交界区

xh(1)="B":xh(2)="C"d1(1)="160--200":d1(2)="200--315"ElseIfn1<=nze6Andn1>=nze6-30AndPd<=10Orn1>=nze6-30And_n1<=nk3AndPd<=18Then ’C-B型交界区

xh(1)="C":xh(2)="B"d1(1)="200--315":d1(2)="160--200"ElseIfn1<=nze6-30Andn1>=nze7+30AndPd<=18Orn1>=nze7+30_ Andn1<=nk4AndPd<=40Then ’C型区第58页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第58页。xh(1)="C":xh(2)=xh(1)d1(1)="200--315":d1(2)=d1(1)ElseIfn1<=nze7+30Andn1>=nze7AndPd<=18Orn1>=nze7Andn1<=nk4_AndPd<=40Then ’C-D型交界区

xh(1)="C":xh(2)="D"d1(1)="200--315":d1(2)="355--400"ElseIfn1<=nze7Andn1>=nze7-30AndPd<=18Orn1>=nze7-30And_n1<=nk4AndPd<=40Then ’D-C型交界区

xh(1)="D":xh(2)="C"d1(1)="355--400":d1(2)="200--315“ElseIfn1<=nze7-30Andn1>=nze9+30AndPd<=40Orn1>=nze9+30-Andn1<=nk5AndPd<=200Then ’D型区

xh(1)="D":xh(2)=xh(1)d1(1)="355--400":d1(2)="450--500"第59页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第59页。ElseIfn1<=nze9+30Andn1>=nze9AndPd<=40Orn1>=nze9And=n1<=nk5AndPd<=200Then’D-E型交界区

xh(1)="D":xh(2)="E"d1(1)="450--500":d1(2)="500--800"ElseIfn1<=nze9Andn1>=nze9-30AndPd<=40Orn1>=nze9-30And_n1<=nk5AndPd<=200Then’E-D型交界区

xh(1)="E":xh(2)="D"d1(1)="500--800":d1(2)="450--500"ElseIfn1<=nze9-30Andn1>0AndPd<=200Orn1>0Andn1<=500_ AndPd<=250Then’E型区

xh(1)="E":xh(2)=xh(1)d1(1)="500--800":d1(2)=d1(1)Elsexh(1)=“NIL”:xh(2)=xh(1)’

选型点落在可选区域之外，即没有合适 ’带型，此时令xh(1),xh(2)为″NIL″第60页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第60页。d1(1)="NIL":d1(2)=d1(1)EndIfEndSub

PrivateSubvsbxuyongyingli-Change()’

功能：改变轴材料的许用应力 的值

txtxuyongyingli=vsbxuyongyingli.ValueEndSub

PrivateSubzhoujing()’

功能：计算轴颈的直径

DimxuyongyingliAsSinglezhoucailiao=Trim(txtzhoucailiao.Text)Iftxtzhoucailiao.Text=""OrVal(txtzhoucailiao.Text)=0ThenMsgBox("请输入轴材料代号")EndEndIf第61页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第61页。xuyongyingli=Val(txtxuyongyingli.Text)dailunkongjing(1)=(9550!*1000!*Pd/n1*16/3.14/xuyongyingli)^(1/3)dailunkongjing(2)=(9550!*1000!*Pd/sn2*16/3.14/xuyongyingli)^(1/3)IfInt(dailunkongjing(1)/5)<dailunkongjing(1)/5Thendailunkongjing(1)=5*Int(dailunkongjing(1)/5)+5EndIfIfInt(dailunkongjing(2)/5)<dailunkongjing(2)/5Thendailunkongjing(2)=5*Int(dailunkongjing(2)/5)+5EndIfEndSubPrivateSubForm-KeyPress(KeyAsciiAsInteger)’

用回车键代替单击事件

IfKeyAscii=13ThenCallCmdgoon_Click ’13是回车键的KeyAscii码

EndSub第62页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第62页。2．FrmOptionxhd1a.frm窗体窗体FrmOptionxhd1a.frm的设计见图5-3，其全部代码见代码5-3。代码5-3窗体FrmOptionxhd1a.frm的全部代码OptionExplicitOptionBase1PublicoptionxhAsInteger’optionxh=1或optionxh=2说明用户选择了型号, ’optionxh=0说明未选择型号

PrivateSubcmdContinue-Click()’该过程实现：查询标准带轮直径、单根带基本功率、功率增量、长度系数、包角系数等

Dima0AsSingle ’定义几个临时变量

Dimdf0AsSingleIfoptionxh<>1Andoptionxh<>2ThenMsgBox“请选择型号！”:ExitSub第63页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第63页。dd1=Val(txtd1.Text)’

接收用户输入的小带轮直径（初值）

a0=Val(txta.Text)’

接收用户输入的中心距（初值）

Ifdd1<hsbd1.MinOrdd1>(hsbd1.Max)*1.5Orxh1=""ThenMsgBox ("小带轮直径选择不正确，请重新选择"):ExitSubIfa0<hsba.MinThenMsgBox"中心距选择不合适,请重新选择":ExitSubCallbeltd(dd1)’

调用beltd过程,确定小带轮标准直径

dd2=si*dd1Callbeltd(dd2)’

调用beltd过程,确定大带轮标准直径

sis=dd2/dd1’

计算实际传动比

sis=Int(sis*100)/100dlti=Str$(Int((sis-si)/si*100))&“%”’计算传动比误差（百分数）

Callpower1 ’调用power1过程,查询单根带基本额定功率p1CallbeltkL(a0) ’调用beltkL过程,查普通V带长度系数KL第64页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第64页。Callkalf1 ’

调用kalf1过程,查包角系数kalfv1=n1*dd1*3.1415/60/1000’

计算线速度

v1=Int(v1*100)/100Callbeltdp1’

调用beltdp1过程,查单根V带的额定功率值的增量dp1Callbeltsize(df0)’

调用beltsize过程,查带的截面尺寸和带初拉力增量df0z=Pd/(p1+dp1)/kalf/kL’

计算带根数

f0=500*(2.5-kalf)*Pd/kalf/z/v1+q*v1^2’

计算初拉力f0f0=Int(f0*100)/100fz=2*z*f0*Sin(X1/2*3.14159/180)’

计算压轴力fzfz=Int(fz*100)/100g=(f0+df0)/16 ’

计算初拉力的测定值gg=Int(g*100)/100frmbeltDisply.Visible=True’

使下一个窗体“frmbeltDisply”可见’用下一个窗体上的控件显示各参数值。各被显示的参数必须在本窗体或在bas模块中用public声明第65页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第65页。frmbeltDisply.Lbldisply(0).Caption=xh1frmbeltDisply.Lbldisply(1).Caption=zfrmbeltDisply.Lbldisply(2).Caption=LdfrmbeltDisply.Lbldisply(3).Caption=dd1frmbeltDisply.Lbldisply(4).Caption=dd2frmbeltDisply.Lbldisply(5).Caption=afrmbeltDisply.Lbl2(0).Caption=sisfrmbeltDisply.Lbl2(1).Caption=v1frmbeltDisply.Lbl2(2).Caption=X1frmbeltDisply.Lbl2(3).Caption=kLfrmbeltDisply.Lbl2(4).Caption=kalffrmbeltDisply.Lbl2(5).Caption=ka第66页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第66页。frmbeltDisply.Lbl4(0).Caption=f0frmbeltDisply.Lbl4(1).Caption=fzfrmbeltDisply.Lbl4(2).Caption=p1frmbeltDisply.Lbl4(3).Caption=dp1frmbeltDisply.Lbl4(4).Caption=gfrmbeltDisply.Lbl4(5).Caption=dltifrmbeltDisply.Label1(1).Caption=spowerfrmbeltDisply.Label1(3).Caption=PdfrmbeltDisply.Label1(5).Caption=n1CallFrmbeltDisply.cmddisplysize_Click’

调用下一个窗体 “frmbeltDisply”的“cmddisply’size_click”过程

FrmOptionxhd1a.Visible=False’

使本窗体FrmOptionxhd1a不可见EndSub第67页，共148页。计算机辅助机械设计V带轮设计(共148张PPT)全文共148页，当前为第67页