计算机辅助减速器设计

毕业设计任务书设计题目：计算机辅助减速器设计1设计的主要任务及目标减速器是一种介于原动机和工作机之间的独立的闭式传动装置，主要作用是用来传递动力、降低转速和增大转矩，减速器广泛运用于实际生产制造的各个领域，而减速器的设计计算过程繁琐、容易出错、设计周期长、需要查阅大量的设计资料。随着电子计算机技术的发展，计算机技术在机械制造中的广泛应用，机械设计与计算机技术的有机结合使机械设计逐渐实现了程序化。利用计算机辅助手段进行设计，可提高设计质量，缩短设计周期。本设计是利用VB6.0对减速器设计中所需要的计算公式、线图、表格等，进行了程序化处理，利用计算机完成减速器设计中大量烦琐和重复性的计算工作.2设计的基本要求和内容1、在输入给定条件、参数后，计算机能进行相应的减速器设计；2、自动确定传动比、齿轮尺寸，进行传动件强度、刚度计算和校核；3、对输出的数据应进行优化处理3主要参考文献1陆凤仪机械设计M机械工业出版社，2006.2刘伟Cad2010工程师认证标准培训教材M人民邮电出版社，2009.3吴宗泽机械设计课程设计手册M高等教育出版社，2010.4宜沈平减速器课程设计指导书及图册M机械工业出版社，20115张春宜.减速器设计实例精解M机械工业出版社，2011.6谭浩强.VB程序设计M清华大学出版社，2004.4进度安排设计各阶段名称起止日期1完成开题报告3月01日3月10日2拟定具体方案3月11日3月16日3毕业设计阶段3月17日5月16日4毕业设计修改5月17日5月31日5毕业答辩6月01日6月16日计算机辅助减速器设计摘要：减速器是一种介于原动机和工作机之间的独立的闭式传动装置，主要作用是用来传递动力、降低转速和增大转矩，减速器广泛运用于实际生产制造的各个领域，而减速器的设计计算过程繁琐、容易出错、设计周期长、需要查阅大量的设计资料。随着电子计算机技术的发展，计算机技术在机械制造中的广泛应用，机械设计与计算机技术的有机结合使机械设计逐渐实现了程序化。利用计算机辅助手段进行设计，可提高设计质量，缩短设计周期。本设计是利用VB6.0对减速器设计中所需要的计算公式、线图、表格等，进行了程序化处理，利用计算机完成减速器设计中大量烦琐和重复性的计算工作；在输入给定条件、参数后，计算机能进行相应的减速器设计，能自动确定传动比、齿轮尺寸，能进行传动件强度、刚度计算和校核。关键词:齿轮，减速器，VB软件Computeraideddesignforreducersummary：reducerisacrossbetweentheprimemoverandseparateencloseddrivedevicebetweenthemachine,themainroleisusedtotransmitpower,reducingspeedandincreasingtorque,reducerarewidelyusedinvariousfieldsofactualmanufacture,geardesignreducerforcalculationistedious,error-prone,longdesigncycle,checkoutalotofdesigninformation.Withthedevelopmentofcomputertechnology,mechanicaldesignandcomputertechnologycombinetomakethemachinedesigntheprogressiverealizationoftheprogram.Withtheextensiveuseofcomputertechnologyinmachinerymanufacturing,usingcomputer-aidedtoolsfordesign,designcanimprovequality,shortenthedesigncycle.ThisdesignisusingVB6.0onreducerdesigninthebyneedsofcalculationformula,andlinefigure,andform,forhasprogrammedprocessing,usingcomputercompletedreducerdesigninthelargecumbersomeandrepeatedsexofcalculationwork;inenteredgivenconditions,andparameterHou,computercanforcorrespondingofreducerdesign,canautomaticallydeterminesratio,andgearsize,canfordrivepiecesstrength,andstiffnesscalculationandcheck.keywords:gear,gearreducer,VBsoftware目录1前言.12VB6.0的概述.22.1VB6.0简介.22.2VB6.0程序设计的步骤：.23减速机的概述.33.1减速器的作用.33.2减速器的分类.33.3减速器的发展趋势.33.4减速器的应用领域.34计算机辅助减速器设计.54.1设计任务.54.2程序的总体设计.54.3程序的详细设计.54.3.1VB6.0的窗口的建立.54.3.2电机选取的设计.74.3.3减速器的齿轮的设计.124.3.4齿轮的校核.234.3.5减速器的轴的设计.294.3.6减速器的联轴器的设计.314.3.7减速器的轴承的设计.334.3.8减速器的轴的校核.404.3.9减速器的箱体的设计.44结论.49参考文献.50致谢.51-0-1前言VB6.0是微软公司提供的一种可视化的应用程序开发工具。它是在Basic和QuickBasic语言的基础上发展起来的，具有高级程序语言的语句结构（顺序，选择和循环结构），接近于自然语言和人类的逻辑思维方式，其语言简单易懂。这个特点使它成为一种功能十分强大的编程语言。VisualBasic是功能十分齐全的编程工具之一，学习Visualbasic的目的在于应用，利用其编写应用程序解决工程实际问题。Visual意为可视化的，可见的。减速器是一种介于原动机和工作机之间的独立的闭式传动装置，主要作用是用来传递动力、降低转速和增大转矩，减速器广泛应用于机械传动行业，如矿业生产、化工设备、汽车制造、农业生产等领域。减速器的设计过程几乎涉及机械设计各个方面，如几何参数设计、结构设计、标准件选型、强度设计、动力学设计、润滑与密封设计等。减速器的设计因计算过程繁琐，容易出错，设计周期长，并且在进行机械设计过程中往往需要查阅大量的设计资料，如设计手册、技术资料、实验结果等等。在这些设计资料中，许多数据被列成表格或绘制成线图。而随着计算机技术在机械制造中的广泛应用。利用计算机辅助手段进行设计，可提高设计质量，缩短设计周期。随着电子计算机技术的发展，机械设计与计算机技术的有机结合使机械设计逐渐实现了程序化。在利用VB6.0进行设计时，首先需要将上述的资料存储在计算机中。以便在设计过程中调用。而VB6.0创建一个应用程序的第一步是创建界面，它是用户与设计的应用程序进行交互操作的可视部分。窗体是构成应用程序界面的窗口，是应用程序界面的基础，窗体作为控件的容器，用户可向窗体增加控件、图形或图片来创建应用程序界面。现以VB6.0作为工具在机械设计的基础上进行减速器的设计。设计时利用VB6.0对减速器设计过程中所需要的计算公式、线图、表格等，进行了程序化处理，利用计算机完成减速器设计中大量烦琐和重复性的计算工作；设计完成后当输入给定条件、参数时，计算机能进行相应的减速器设计，能自动确定传动比、齿轮尺寸，能进行传动件强度、刚度计算和校核。-1-2VB6.0的概述2.1VB6.0简介VisualBasic是美国微软公司推出的MicrosoftVisualStudio可视化开发工具套件中的一个组件，是在QuickBASIC的基础上，为开发Windows应用程序而提供的强有力的开发工具，是一种具有良好的图形用户界面的程序设计语言。它采用面向对象和事件驱动的程序设计两种新机制，把过程化和结构化编程集合在一起。VB作为基于Windows平台最方便快捷的软件开发工具，无论是网络应用，多媒体技术还是当前流行的MIS系统的开发，都应付的游刃有余。因此，VisualBasic也就成为众多程序员的首选编程工具。Visual的原意是“视觉的”或“可视的”，而在VB中是指开发图形用户界面的方法，即不需要编写大量代码去描述界面元素的外观和位置，只要把VB预先定义好的对象（如工具箱提供的各种控件）拖放到窗体上即可。也就是说，屏幕上的用户界面是用VB提供的可视化设计工具直接“画”出来的，而不是用程序“写”出来的。这种直观的编程方法，就是我们通常所说的可视化编程。Basic是指BASIC语言，它是BeginnersAll-purposeSymbolicInstructionCode（初学者通用符号指令代码）的缩写，与其他高级语言相比，它的语法规则相对简单，容易理解和掌握，且具有实用价值，被认为是最理想的初学者语言。之所以叫做“VisualBasic”就是因为它是在BASIC语言的基础上发展而来的，并赋予了全新的面向对象的可视化编程方法。VisualBasic在许多方面有着重大的突破。叙述两个最基本的特点：（1）可视化的编程工具（2）程序采取“事件驱动”方式2.2VB6.0程序设计的步骤：（1）设计应用程序界面（2）设置对象的属性（3）编写事件驱动代码-2-3减速机的概述3.1减速器的作用（1）减速机一般用于低转速大扭矩的传动设备，把电动机、内燃机或其它高速运转的动力通过减速机来减速；（2）降速同时提高输出扭矩，扭矩输出比例按电机输出乘减速比，大小齿轮的齿数之比，就是传动比；（3）减速同时降低了负载的惯量，惯量的减少为减速比的平方。3.2减速器的分类减速器的种类繁多，按照传动类型可分为齿轮减速器、蜗杆减速器和行星齿轮减速器；按照传动级数不同可分为单级和多级减速器；按照齿轮形状可分为圆柱齿轮减速器、圆锥齿轮减速器和圆锥圆柱齿轮减速器；按照传动的布置形式又可分为展开式、分流式和同轴式减速器。3.3减速器的发展趋势通用减速器的发展趋势如下：高水平、高性能，体积小、重量轻、噪声低、效率高、可靠性高；尺寸规格整齐，零件通用性和互换性强，系列容易扩充和花样翻新，利于组织批量生产和降低成本；型式多样化，变型设计多：摆脱了传统的单一的底座安装方式，增添了空心轴悬挂式、浮动支承底座、电动机与减速器一体式联接，多方位安装面等不同型式，扩大使用范围。3.4减速器的应用领域减速机是诸多工业生产领域的机械传动装置，行业涉及的产品类别包括了各类齿轮减速机、行星齿轮减速机及蜗杆减速机，也包括了各种专用传动装置，如增速-3-装置、调速装置、以及包括柔性传动装置在内的各类复合传动装置等。产品服务领域涉及冶金、有色、煤炭、建材、船舶、水利、电力、工程机械及石化等行业。在工业的各个领域中减速机产品都有着广泛的应用。食品轻工、电力机械、建筑机械、冶金机械、水泥机械、环保机械、电子电器、筑路机械、水利机械、化工机械、矿山机械、输送机械、建材机械、橡胶机械、石油机械等行业领域对减速机产品都有旺盛的需求。-4-4计算机辅助减速器设计4.1设计任务1、在输入给定条件、参数后，计算机能进行相应的减速器设计；2、自动确定传动比、齿轮尺寸，进行传动件强度、刚度计算和校核；3、对输出的数据应进行优化处理4.2程序的总体设计利用VB软件建立多个窗口，并且通过设计每个窗口的控件和属性可以实现减速器的每个步骤的设计。即通过设计第一个窗口的界面、属性和代码可以实现减速器的电机的选取，通过设计第二个窗口的界面、属性和代码可以实现减速器的各轴转速、功率、转矩的计算。通过设计第三个窗口的界面、属性和代码可以实现减速器大齿轮齿数的计算和应力循环次数的计算。通过设计第四个窗口的界面、属性和代码可以实现减速器的齿轮模数的计算并能通过第三个窗口计算所得的应力循环次数选取齿轮的寿命系数。等等建立多个窗口来实现减速器的每个步骤的设计，最后利用代码将这些窗口按照循序链接起来就可以实现减速器的设计4.3程序的详细设计4.3.1VB6.0的窗口的建立（1）运行VB程序，选择【新建】，点击【标准EXE】，点击【确定】，即新建了一个窗体如下图：-5-图6.1窗口界面（2）通过对窗体的界面和属性的设计可以得到如下窗体：-6-图6.2进入界面编写“Form1”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()Form1.HideForm2.ShowEndSub到此第一个窗体已经设计完毕下一步需要添加第二个窗体并进行第二个窗体的界面设计、属性设计和代码的编写。4.3.2电机选取的设计（3）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。-7-通过对新添加的窗体的界面和属性设计可以得到如下窗体：图6.3参数输入界面编写“Form2”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()IfVal(Text1.Text)=0OrVal(Text2.Text)=0OrVal(Text3.Text)=0ThenMsgBox请输入已知参数ElseIc=Val(Text1.Text)Nc=Val(Text2.Text)Pc=Val(Text3.Text)Nyx=NcPyx=Pc/0.96-8-Text4.Text=NyxText5.Text=PyxEndIfEndSubPrivateSubCommand2_Click()Form2.HideForm1.ShowEndSubPrivateSubCommand3_Click()IfVal(Text4.Text)=0OrVal(Text5.Text)=0ThenMsgBox请计算相关数据ElseForm2.HideForm3.ShowEndIfEndSubPrivateSubLabel11_Click()IfVal(Text1.Text)6ThenMsgBox请输入合适的传动比EndIfEndSubPrivateSubLabel12_Click()IfVal(Text2.Text)3000ThenMsgBox请输入合适的主轴转速EndIfEndSubPrivateSubLabel13_Click()IfVal(Text3.Text)28ThenMsgBox请输入合适的传递功率EndIf-9-EndSub到此第二个窗体已经设计完毕下一步需要添加第三个窗体并进行第三个窗体的界面设计、属性设计和代码的编写。（4）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：图6.4电机选取界面编写“Form3”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()-10-IfText1.Text=OrVal(Text2.Text)=0OrVal(Text3.Text)=0ThenMsgBox请输入已知参数ElseNd=Val(Text2.Text)Pd=Val(Text3.Text)Nz1=NdNz2=Nd/IcPz1=Pc*0.98Pz2=Pc*0.98*0.98Tz1=9550*Pz1*1000/Nz1Tz2=9550*Pz2*1000/Nz2Text4.Text=Nz1Text5.Text=Nz2Text6.Text=Pz1Text7.Text=Pz2Text8.Text=Tz1Text9.Text=Tz2EndIfEndSubPrivateSubCommand2_Click()Form3.HideForm2.ShowEndSubPrivateSubCommand3_Click()IfVal(Text4.Text)=0OrVal(Text5.Text)=0OrVal(Text6.Text)=0OrVal(Text7.Text)=0OrVal(Text8.Text)=0OrVal(Text9.Text)=0ThenMsgBox请计算相关数据ElseForm3.HideForm4.Show-11-EndIfEndSub到此第三个窗体已经设计完毕下一步需要添加第四个窗体并进行第四个窗体的界面设计、属性设计和代码的编写。4.3.3减速器的齿轮的设计（5）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：图6.5齿宽系数选取界面编写“Form4”中的事件驱动代码如下：-12-OptionExplicitPrivateSubCommand1_Click()IfVal(Text1.Text)=0OrVal(Text2.Text)=0ThenMsgBox请输入已知参数ElseQb=Val(Text1.Text)Z1=Val(Text2.Text)Z2=Z1*IcCa=1.88-3.2*(1/Z1+1/Z2)Zc=(4-Ca)/3)(1/2)Nx1=60*Nz1*2*8*250*10Nx2=60*Nz2*2*8*250*10Text3.Text=Z2Text4.Text=CaText5.Text=ZcText6.Text=Nx1Text7.Text=Nx2EndIfEndSubPrivateSubCommand2_Click()Form4.HideForm3.ShowEndSubPrivateSubCommand3_Click()IfVal(Text3.Text)=0OrVal(Text4.Text)=0OrVal(Text5.Text)=0OrVal(Text6.Text)=0OrVal(Text7.Text)=0ThenMsgBox请计算相关数据ElseForm4.HideForm5.Show-13-EndIfEndSub到此第四个窗体已经设计完毕下一步需要添加第五个窗体并进行第五个窗体的界面设计、属性设计和代码的编写。（6）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：图6.6寿命系数选取界面编写“Form5”中的事件驱动代码如下：OptionExplicit-14-PrivateSubCommand1_Click()IfVal(Text1.Text)=0OrVal(Text2.Text)=0OrVal(Text3.Text)=0ThenMsgBox请输入已知参数ElseKh1=Val(Text1.Text)Kh2=Val(Text2.Text)Kc=Val(Text3.Text)LLh1=Kh1*550LLh2=Kh2*550LLh=LLh1dc=(2*Kc*Tz1/Qb)*(1+1/Ic)*(2.5*189.8*Zc/LLh)2)(1/3)Mc=dc/Z1Text4.Text=LLh1Text5.Text=LLh2Text6.Text=LLhText7.Text=dcText8.Text=McEndIfEndSubPrivateSubCommand2_Click()Form5.HideForm4.ShowEndSubPrivateSubCommand3_Click()IfVal(Text4.Text)=0OrVal(Text5.Text)=0OrVal(Text6.Text)=0OrVal(Text7.Text)=0OrVal(Text8.Text)=0ThenMsgBox请计算相关数据ElseForm5.Hide-15-Form6.ShowEndIfEndSub到此第五个窗体已经设计完毕下一步需要添加第六个窗体并进行第六个窗体的界面设计、属性设计和代码的编写。（7）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：图6.7标准模数选取界面编写“Form6”中的事件驱动代码如下：-16-OptionExplicitPrivateSubCommand1_Click()IfVal(Text1.Text)=0ThenMsgBox请输入已知参数ElseM=Val(Text1.Text)dm=M*Z1bm=Qb*dmhm=2.25*MVm=3.14*dm*Nz1/60000Text2.Text=dmText3.Text=bmText4.Text=hmText5.Text=VmEndIfEndSubPrivateSubCommand2_Click()Form6.HideForm5.ShowEndSubPrivateSubCommand3_Click()IfVal(Text2.Text)=0OrVal(Text3.Text)=0OrVal(Text4.Text)=0OrVal(Text5.Text)=0ThenMsgBox请计算相关数据ElseForm6.HideForm7.ShowEndIfEndSubPrivateSubImage2_Click()-17-EndSub到此第六个窗体已经设计完毕下一步需要添加第七个窗体并进行第七个窗体的界面设计、属性设计和代码的编写。（8）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：图6.8等级选取界面编写“Form7”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()IfText1.Text=OrVal(Text2.Text)=0Then-18-MsgBox请输入已知参数ElseKv=Val(Text2.Text)EndIfEndSubPrivateSubCommand2_Click()Form7.HideForm6.ShowEndSubPrivateSubCommand3_Click()IfKv=0ThenMsgBox请确定相关数据ElseForm7.HideForm8.ShowEndIfEndSubPrivateSubLabel4_Click()EndSub到此第七个窗体已经设计完毕下一步需要添加第八个窗体并进行第八个窗体的界面设计、属性设计和代码的编写。（9）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：-19-图6.9齿间载荷系数选取界面编写“Form8”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()IfVal(Text1.Text)=0OrVal(Text2.Text)=0OrVal(Text3.Text)=0ThenMsgBox请输入已知参数ElseKha=Val(Text1.Text)Kfa=Val(Text2.Text)Khp=Val(Text3.Text)EndIfEndSubPrivateSubCommand2_Click()-20-Form8.HideForm7.ShowEndSubPrivateSubCommand3_Click()IfKha=0OrKfa=0OrKhp=0ThenMsgBox请确定相关数据ElseForm8.HideForm9.ShowEndIfEndSub到此第八个窗体已经设计完毕下一步需要添加第九个窗体并进行第九个窗体的界面设计、属性设计和代码的编写。（10）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：-21-图6.10齿向载荷系数选取界面编写“Form9”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()IfVal(Text1.Text)=0ThenMsgBox请输入已知参数ElseKfp=Val(Text1.Text)Km1=Kv*Kha*Khpdms=(2*Km1*Tz1/Qb)*(1+1/Ic)*(2.5*189.8*Zc/LLh)2)(1/3)Text2.Text=Km1Text3.Text=dms-22-EndIfEndSubPrivateSubCommand2_Click()Ifdm=dmsThenMsgBox齿面接触疲劳强度足够ElseMsgBox齿面接触疲劳强度不够，需要增大KcEndIfEndSubPrivateSubCommand3_Click()Form9.HideForm8.ShowEndSubPrivateSubCommand4_Click()IfVal(Text2.Text)=0OrVal(Text3.Text)=0ThenMsgBox请计算相关数据ElseForm9.HideForm10.ShowEndIfEndSub到此第九个窗体已经设计完毕下一步需要添加第十个窗体并进行第十个窗体的界面设计、属性设计和代码的编写。4.3.4齿轮的校核（11）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。-23-通过对新添加的窗体的界面和属性设计可以得到如下窗体：图6.11寿命系数选取界面编写“Form10”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()IfVal(Text1.Text)=0OrVal(Text2.Text)=0ThenMsgBox请输入已知参数ElseKf1=Val(Text1.Text)Kf2=Val(Text2.Text)Yc=0.25+0.75/CaKm2=Kv*Kfa*KfpLLf1=Kf1*210/1.3-24-LLf2=Kf2*210/1.3Text3.Text=YcText4.Text=Km2Text5.Text=LLf1Text6.Text=LLf2EndIfEndSubPrivateSubCommand2_Click()Form10.HideForm9.ShowEndSubPrivateSubCommand3_Click()IfVal(Text3.Text)=0OrVal(Text4.Text)=0OrVal(Text5.Text)=0OrVal(Text6.Text)=0ThenMsgBox请计算相关数据ElseForm10.HideForm11.ShowEndIfEndSub到此第十个窗体已经设计完毕下一步需要添加第十一个窗体并进行第十一个窗体的界面设计、属性设计和代码的编写。（12）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：-25-图6.12齿形系数选取界面编写“Form11”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()IfVal(Text1.Text)=0OrVal(Text2.Text)=0OrVal(Text3.Text)=0OrVal(Text4.Text)=0ThenMsgBox请输入已知参数ElseYfa1=Val(Text1.Text)Yfa2=Val(Text2.Text)Ysa1=Val(Text3.Text)Ysa2=Val(Text4.Text)Lf1=(2*Km2*Tz1*Yfa1*Ysa1*Yc)/(bm*dm*M)-26-Lf2=(Lf1*Yfa2*Ysa2)/(Yfa1*Ysa1)Text5.Text=Lf1Text6.Text=Lf2EndIfEndSubPrivateSubCommand2_Click()IfLf1=LLf1AndLf2=LLf2ThenMsgBox齿根弯曲疲劳强度足够ElseMsgBox齿根弯曲疲劳强度不够，需要增大KcEndIfEndSubPrivateSubCommand3_Click()Form11.HideForm10.ShowEndSubPrivateSubCommand4_Click()IfVal(Text5.Text)=0OrVal(Text6.Text)=0ThenMsgBox请计算相关数据ElseForm11.HideForm12.ShowEndIfEndSub到此第十一个窗体已经设计完毕下一步需要添加第十二个窗体并进行第十二个窗体的界面设计、属性设计和代码的编写。（13）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。-27-通过对新添加的窗体的界面和属性设计可以得到如下窗体：图6.13齿轮上受力计算界面编写“Form12”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()Ft=2*Tz1/dmFn=Ft/0.94Text1.Text=FtText2.Text=FnEndSubPrivateSubCommand2_Click()Form12.Hide-28-Form11.ShowEndSubPrivateSubCommand3_Click()IfVal(Text1.Text)=0OrVal(Text2.Text)=0ThenMsgBox请计算相关数据ElseForm12.HideForm13.ShowEndIfEndSub到此第十二个窗体已经设计完毕下一步需要添加第十三个窗体并进行第十三个窗体的界面设计、属性设计和代码的编写。4.3.5减速器的轴的设计（14）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：-29-图6.14轴最小直径计算界面编写“Form13”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()dmin=120*(Pz1/Nz1)(1/3)*1.06Tlzs=1.3*Tz1Text1.Text=dminText2.Text=TlzsEndSubPrivateSubCommand2_Click()Form13.HideForm12.Show-30-EndSubPrivateSubCommand3_Click()IfVal(Text1.Text)=0OrVal(Text2.Text)=0ThenMsgBox请计算相关数据ElseForm13.HideForm14.ShowEndIfEndSubPrivateSubImage2_Click()EndSub到此第十三个窗体已经设计完毕下一步需要添加第十四个窗体并进行第十四个窗体的界面设计、属性设计和代码的编写。4.3.6减速器的联轴器的设计（15）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：-31-图6.15联轴器的选取界面编写“Form14”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()IfText1.Text=OrVal(Text2.Text)=0OrVal(Text3.Text)=0OrVal(Text4.Text)=0ThenMsgBox请输入已知参数Elsedlz=Val(Text2.Text)Llz1=Val(Text3.Text)Llz=Val(Text4.Text)EndIfEndSub-32-PrivateSubCommand2_Click()Form14.HideForm13.ShowEndSubPrivateSubCommand3_Click()Ifdlz=0OrLlz1=0OrLlz=0ThenMsgBox请确定相关数据ElseForm14.HideForm15.ShowEndIfEndSubPrivateSubLabel1_Click()EndSubPrivateSubLabel2_Click()EndSubPrivateSubLabel4_Click()EndSubPrivateSubLabel5_Click()EndSub到此第十四个窗体已经设计完毕下一步需要添加第十五个窗体并进行第十五个窗体的界面设计、属性设计和代码的编写。4.3.7减速器的轴承的设计（16）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：-33-图6.16轴承的选取界面编写“Form15”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()IfVal(Text1.Text)=0ThenMsgBox请输入已知参数Elsedzc2=Val(Text1.Text)EndIfEndSubPrivateSubCommand2_Click()Form15.HideForm14.Show-34-EndSubPrivateSubCommand3_Click()Ifdzc2=0ThenMsgBox请确定相关数据ElseForm15.HideForm16.ShowEndIfEndSub到此第十五个窗体已经设计完毕下一步需要添加第十六个窗体并进行第十六个窗体的界面设计、属性设计和代码的编写。（17）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：-35-图6.17轴承的校核计算界面编写“Form16”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()IfText1.Text=OrVal(Text2.Text)=0OrVal(Text3.Text)=0OrVal(Text4.Text)=0OrVal(Text5.Text)=0ThenMsgBox请输入已知参数Elsedzc=Val(Text2.Text)bzc=Val(Text3.Text)da=Val(Text4.Text)Cr=Val(Text5.Text)Pdl=1.2*Fn-36-Cs=Pdl*(60*Nz1*2*8*250*10/1000000)(1/3)Text6.Text=PdlText7.Text=CsEndIfEndSubPrivateSubCommand2_Click()IfCs=CrThenMsgBox轴承的疲劳强度足够ElseMsgBox轴承的疲劳强度不够，需要选额定载荷大的。EndIfEndSubPrivateSubCommand3_Click()Form16.HideForm15.ShowEndSubPrivateSubCommand4_Click()IfVal(Text6.Text)=0OrVal(Text7.Text)=0ThenMsgBox请计算相关数据ElseForm16.HideForm17.ShowEndIfEndSub到此第十六个窗体已经设计完毕下一步需要添加第十七个窗体并进行第十七个窗体的界面设计、属性设计和代码的编写。（18）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。-37-通过对新添加的窗体的界面和属性设计可以得到如下窗体：图6.18轴的设计界面编写“Form17”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()IfVal(Text1.Text)=0ThenMsgBox请输入已知参数Elsedzs3=Val(Text1.Text)Lz1=Llz-5dz1=dlzLz2=20+5+3*bzc-38-dz2=dzcLz3=bm-5dz3=dzs3Lz41=10dz41=1.1*dz3Lz42=10dz42=daLz5=bzcdz5=dzcText2.Text=Lz1Text3.Text=dz1Text4.Text=Lz2Text5.Text=dz2Text6.Text=Lz3Text7.Text=dz3Text8.Text=Lz41Text9.Text=dz41Text10.Text=Lz42Text11.Text=dz42Text12.Text=Lz5Text13.Text=dz5EndIfEndSubPrivateSubCommand2_Click()Form17.HideForm16.ShowEndSubPrivateSubCommand3_Click()IfVal(Text2.Text)=0OrVal(Text3.Text)=0OrVal(Text4.Text)=0OrVal(Text5.Text)=0OrVal(Text6.Text)=0OrVal(Text7.Text)=0OrVal(Text8.Text)=-39-0OrVal(Text9.Text)=0OrVal(Text10.Text)=0OrVal(Text11.Text)=0OrVal(Text12.Text)=0OrVal(Text13.Text)=0ThenMsgBox请计算相关数据ElseForm17.HideForm18.ShowEndIfEndSub到此第十七个窗体已经设计完毕下一步需要添加第十八个窗体并进行第十八个窗体的界面设计、属性设计和代码的编写。4.3.8减速器的轴的校核（19）右键点击【工程资源管理器】，鼠标放在【添加】选项卡上，左键点击【窗体】，选择【窗体】，点击【打开】，即在窗口编辑区就添加了一个窗体。通过对新添加的窗体的界面和属性设计可以得到如下窗体：-40-图6.19轴校核计算界面编写“Form18”中的事件驱动代码如下：OptionExplicitPrivateSubCommand1_Click()Fnh1=Fn/2Fnh2=Fn/2M3=(bm/2+20+bzc/2)*Fnh1Lwns=(M3*M3+0.6*Tz1*0.6*Tz1)(1/2)/(0.1*(dz3)3)Text1.Text=Fnh1Text2.Text=Fnh2Text3.Text=M3Text4.Text=LwnsEndSub-41-PrivateSubCommand2_Click()IfLwns=60ThenMsgBox轴的弯扭组合强度足够ElseMsgBox轴的弯扭组合强度不够，需要增大dmi