基于VB标准圆锥齿轮参数设计系统正文

摘 要在各类机械产品的零件中,齿轮占有相当大的比重,提高齿轮的设计质量和效率已成为提高机械产品质量和效率的关键。快速设计与制造技术为制造业提高市场响应速度，广泛应用于航空、汽车、机床和自动化生产线等各种机械中。本文主要介绍圆锥齿轮传动参数设计系统开发，通过visual Basic6.0的可视化界面设计方法对齿轮传动参数的设计。在此基础上，以Windows操作系统为平台，以VB语言为开发工具，开发出了齿轮参数设计系统。本文使用了数表和线图的程序化方法，消除了人工取值的误差问题，做到了设计计算值规范化和标准化；利用数学模型将工程问题转化为数学问题，便于修改和计算。利用可视化设计工具，开发出了非常友好的窗体界面，通过点击按钮便可实现齿轮参数的自动设计，方便的得出齿轮各种基本参数使系统对实际生产更具有应用价值。关键词： 齿轮传动； 参数化设计；VB stractIn the part of all kinds of engineering goods, the gear wheel occupies sizable proportion, improve designing quality and efficiency of gear wheel become3333, improve mechanical product quality and key to the efficiency already .Fast to design with manufacturing technology raising market response speed for manufacturing industry, apply aviation, car, lathe, automatic production line,etc. to of the various machinery extensively . This text introduce cylinder gear wheel transmission parameter design systematic development, pass visual sectional design method of visual Basic6.0 to gear wheel transmission design of parameter mainly . On this basis,with WindowsOS as platform,last developing instrument, develop parameter design the system. This text use count form and procedure method of line chart, dispel artificial error issue of fetching value, accomplish design standardization and standardization of calculating etc. Utilize mathematical model turn mathematics issue into by issue project, easy to revise and calculate . Utilize the visual design tool, develop very friendly window body interface, can realize the automatic design of the parameter of the gear wheel with button through clicking, convenient drawing various kinds of basic parameters of gear wheel makes the system worth more using to producing actually.Keyword: Gear wheel transmission； The parameter is designed； VB 前 言毕业设计是学生在校学习阶段的最后一个教学环节，也是学生完成工程师基本训练的重要环节。其目的培养学生综合运用所学专业和基础理论知识，独立解决本专业一般工程技术问题能力，树立正确的设计思想和工作作风。在设计方案的选定，设计资料的收集，手册和国家标准规范的运用，零部件及总装图的绘制等方面有较全面的锻炼。毕业设计说明书不只反映了设计的思想内容，方法和步骤，而且还反映了学生的文理修养和作风。齿轮传动是机械传动中最重要的传动之一，型式很多，应用广泛 ，传递的功率可达近十万千瓦，圆周速度可达200m/s。齿轮传动有1）效率高，像一级圆柱齿轮传动的效率可达99%实用意义很大。2）齿轮结构紧凑，工作可靠，寿命长，一般可以工作一、二十年对车辆及在矿井工作的机器尤为重要。3）传动比稳定。在各类机械产品的零件中,齿轮占有相当大的比重,提高齿轮的设计质量和效率已成为提高机械产品质量和效率的关键。快速设计与制造技术的出现为制造业提高市场响应速度奠定了坚实的基础，国外应用此技术与方法已有大量成功的先例，如美国莱斯勒公司开发Neno小型汽车，减少了63%的工程技术人员，缩短28%的开发时间；DEC公司使产品开发时间缩短了60%；通用发动机厂使设计修改量减少了75 %等等。 在选择程序语言时，要考虑开发语言的功能是否强大，技术是否先进，使用是否方便，同时还要考虑开发所花费的时间及效果。在齿轮传动参数设计中，采用VB语言作为开发工具，这是由于VB是一种在windows环境下的、可视的面对象的程序设计语言，在其图形用户界面上通过操作界面元素，如菜单、按钮、对话框、编辑框、单选框、复选框、列表框和滚动等，由可视开发工具自动生成应用软件，并且VB开发的应用软件具有良好的可移植性和可扩充性，所以本设计采用VB语言。本文主要介绍圆柱齿轮传动参数设计系统开发，通过visual Basic6.0的可视化界面设计方法对齿轮传动参数的设计。为达到齿轮类产品的系列化、标准化、通用化的要求，实现在不同的参数和要求的情况下能够快速的、较为精确的得出齿轮所需的各种参数，从而以减少零件的种数，缩短设计时间，提高加工效率，便于生产管理，有利于产品的更新改型和获得较高的经济效益。本文在编写过程中，承蒙指导老师肖志信和各位同学的大力支持、热心帮助，在此并表示谢意。由于本人水平有限，时间仓促，说明书中错误或不足之处在所难免, 恳请各位老师及同学提出宝贵意见和建议。 1 参数设计技术面向对象的程序设计技术代表了当今程序设计的发展方向，已逐渐成为程序设计的一个“热门”技术。它最大的优点就是开发效率高、代码重用率高，为软件开发提供了一种新的方法，引入了许多新的概念。基于对象的可视化程序设计，使程序设计员不再是单纯地从代码的第一行一直写到最后一行，而是考虑如何创建对象，利用对象来简化程序设计，将软件开发的设计阶段与实现阶段紧密地连接在一起。1.1研究的意义与目的齿轮传动的参数设计技术。齿轮传动是机械传动中应用最为广泛的一种传动装置，传统的齿轮传动参数设计计算，过程复杂，需要查取很多图、表，设计费时、效率低，且手工计算容易出错。随着计算机技术的发展，出现了新的设计模式，齿轮传动的参数设计已由手工转向计算机自动完成。这样不但提高了设计速度和质量，减少设计工件量，同时为现代高速、多变、中少批量的设计提供了必要的保障手段。现代齿轮设计与制造寻找一种有效的技术方法。可以说，它是齿轮快速设计技术的需要,亦是我国齿轮工业产业升级的需要,具有重大的现实意义。现代模块化设计方法的研究已经广泛融合其他现代设计方法、制造和管理技术，如计算机辅助设计、价值工程、成组技术等，经理论分析和实践证明，其优越性主要体现在下述几个方面: (1)可使现有机械工业得到振兴，并向高科技产业发展；(2) 有利于企业根据市场变化，采用先进技术提高产品的质量和新产品的开发，增加企业对市场的快速应变能力；(3) 有利于降低成本，增强机械产品的竞争能力；(4)减轻机械产品设计、制造及装配专业技术人员的劳动强度；(5)缩短机械产品的设计、制造和供货期限，以赢得用户。1.2 开发语言选择 在齿轮传动的参数设计模块中，采用VB6.0语言进行编程设计。之所以选择VB语言作为开发工具，是因为Microsoft Visual Basic(简称VB)是一种在Windows环境下的、可视的面向对象的程序设计语言，它将Windows编程的复杂性封装起来，使用可视化设计应用程序，提高了应用程序的开发效率，并且具有功能强大，易学易用，编程简洁等特点。除了VB之外,当前能够编制Windows应用程序的可视化编程工具还有很多,所针对的编程领域也各有侧重,就微软系列的可视化开发工具而言,就有VB,VisualC+,VisualJ+,Visual Foxpro等,其中Visual Foxpro是针对数据库编程的开发工具； Visual J+能结合微软的一贯编程风格，很方便进行Java的应用开发，但它的移植性较差；Visual C+是为专业程序设计员提供的开发工具,变量声明和定义严密,功能强大灵活,必须经过相当的努力才能掌握。相对而言，VB简单易学,变量定义不太严密,对于非专业程序员而言功能足够强大。除了微软之外,其他公司也在为Windows操作系统平台制作应用程序开发工具,例如前Borland的公司出品的Delphi,C+Bulider, J+Bulider等,其他一些公司出品的针对数据库编程的PowerBulider, PowerDesigner等,不可否认,这些产品相当出色,如果能够熟练掌握将是编程者能力的体现,但是必须承认,对Windows操作系统最熟悉的还是微软,而且微软本身Windows操作系统的源代码采取不公开的策略,使得其他公司出品的产品在实现相同功能时多少都要走些弯路,用户在使用这些产品设计应用程序时,程序的效率将会受到影响。在选择所需要的应用程序开发工具时,不但要考虑开发工具的功能是否强大,还要考虑所花费的时间和效果。综合考虑，在确定开发工具时选择VB6.0语言编程。1.3 VB应用程序的基本特点美国微软公司从1991年推出VB1.0至今已经经历了6个版本，VB6.0运行在win9x或winme，win2000，winxp，windowsNT等操作系统下，是一个32位的应用程序开发工具，用其设计应用程序时有两个基本特点:可视化设计和事件驱动编程。 1.3.1 可视化设计 同其他的一些可视化程序开发工具一样, VB在设计应用程序界面时可以说是“所见即所得”，在设计时,头脑中所想象的应用程序界面,完全可以通过键盘鼠标以及徒手画出来,而不是编制大量的代码然后再编译生成,如果需要修改,也是利用键盘鼠标和手画,而底层的一些程序代码由VB自动生成或修改。 VB为用户提供大量的界面元素(在VB中称为控件对象),这些控件对象对于熟悉Windows应用程序的用户而言是一点也不陌生,如“窗体”、“菜单”、“命令按钮”、“工具按钮”、“检查框”等等,用户只需要利用鼠标、键盘把这些控件对象拖动到适当的位置,设置它们的大小、形状、属性等,就可以设计出所需的应用程序界面。 1.3.2 事件驱动编程 Windows操作系统出现以来,图形化的用户界面和多任务多进程的应用程序要求程序设计不能是单一性的,在使用VB设计应用程序时,必须首先确定应用程序如何同用户进行交互。例如发生鼠标单击、键盘输入等事件时,由用户编写的代码控制这些事件的响应,这就是所谓的事件驱动编程。前面已经谈到,在VB中把窗体以及“菜单”、“命令按钮”等控件称为对象,如果设计出了应用程序,那么与应用程序的用户直接进行交互的就是这些对象组成的图形界面,也称为用户接口或用户界面,在设计应用程序时就必须考虑到用户如何与程序进行交户。更进一步,甚至程序和程序之间也会有通讯和交户,基本上用户是通过鼠标、键盘与应用程序进行交互的,这时那些对象就必须对鼠标和键盘操作所引发的事件做出响应。响应就是指执行一段应用程序,它不沿预定的路径执行,而是在响应不同事件时执行不同的代码。因此,应用程序代码的路径在每次响应而执行时可能都是不形同的。1.4 拟合理论在齿轮参数设计的计算中，常常遇到用线图表达参数间的函数关系。常用的曲线拟合方法有两类：一类是严格通过被拟合曲线f(x)各结点（xi,yi）的曲线拟合法；另一类是不通过被拟合曲线f(x)各结点（xi,yi），但严格控制各结点与拟合曲线对应的偏差而作的拟合曲线。工程上常采用第二种方法进行曲线拟合, 本系统采用控制偏差平方和最小的方法进行曲线拟合。1.4.1 拟合原理拟合基本原理如下：如图1-1所示的一组数据可以用一个m次多项式 （1-1） 来拟合，即用多项式近似代替这组数据的函数y=f(x)。设拟合多项式xi处的偏差为,则 .拟合多项式曲线要控制局部偏差就是要使结点处的偏差R最小，通过控制局部偏差从而控制全局偏差就要使各结点的偏差总和最小。为避免出现失真现象，采用下式控制在结点处的偏差： (1-2) 与式（1-1）联立，式（1-2）可记为: (1-3)上式的几何解释是曲线不严格过原曲线f(x)各结点，但要控制在各结点处与原曲线的偏差最小，即拟合曲线较准确地反映原曲线f(x)(各结点)的变化趋势。 由于和是已知的一组数据，因此式（1-3）的可看作是多项式样(x)待定系数j(j=1,2,m,m+1)的函数，可表示为： =(1,2,m,m+1)求出上式中为极小时的1,2 ,m ,m+1值代入式（1-3）中，所得多项式就是与原函数（曲线）各结点处偏差平方和极小时的拟合多项式（拟合曲线）。因此，这类曲线拟合问题最终是一个多元函数求极值问题。要使=（1,2,m,m+1）为极小，（1,2,m,m+1）必须满足下式 = (1-4) = (1-5)= (1-6)则式（1-4）可表示为:=0， （k = 1，2，m，m+1）即 (1-7) 解线性方程组(1-7)，便可以求得多项式的待定系数=（1，2，,m,m+1）。实际应用中常取mn。1.4.2 拟合运算拟合曲线f(x)的运算分两步进行。第一步，根据式(1-5)及式(1-6)求出线性方程组式(1-7)的各个系数及常数项以建立方程组；第二步，求解线性方程组式(2-7)。 式(1-7)的系数矩阵是一对称矩阵，因此整个系数矩阵只有2m+1个不同元素sl (l=1，2，2m+1)。仿照式（1-5）得:=系数及常数项的运算可用for循环语句实现。建立和求解线性方程组的运算程序框图如图2-2所示。1.4.3 拟合精度对于拟合精度，若要求过高，则拟合公式可能变得很复杂，甚至根本找不到满足该精度的数学方程；若要求过低，不能满足实际要求，甚至失去拟合公式的实际意义。为控制误差在合理的范围内，齿轮传动参数设计系统涉及的所有线图均控制偏差平方和与其值的误差不超过0.01亦即精度为10-2。 2 关键技术2.1 数表和线图的程序化处理齿轮参数设计时，需要查阅大量的图表，为了实现设计过程的自动化，必须对图表作预处理，使其程序化。对于数表，由于数据不变化且数据量不太多，直接将其编入程序中，利用条件判断语句在计算程序中自动读取。对于线图，采用拟合算法将其拟合成多项式方程，在计算程序中，直接利用这些方程式。下面用一例来说明线图数据的处理过程。 齿轮齿面的接触疲劳极限Hlim和齿根弯曲疲劳极限Flim与齿轮的材料和硬度有关，要求接触疲劳极限Hlim和弯曲疲劳极限Flim必须根据齿轮的材料和硬度分别查取下面图2-3、图2-4(共10个图表)中的某一图形。人工查阅相当麻烦。为此我们先对各图进行拟合，求出线图的拟合公式(见表2-1)，再用VB语言写出表2-1的程序。以40Cr调质来说明，其接触疲劳极限拟合公式为Hlim=331+1.46HBS，查手册可知其硬度范围为241286HBS，取结点数8个，由表2-2可知，其偏差平方和与最小图值之比为0. 0062,误差不到0. 01,满足精度要求。2-1 常用齿轮材料的接触疲劳极限和弯曲疲劳极限序号材料热处理Hlim /MPaFlim /MPa1碳钢正火220+1.2HBS250+0.7HBS2铸钢正火198+0.875HBS170+0.73HBS3碳钢调质354+0.93HBS349+0.353HBS4铸钢调质289+0.93HBS202+0.765HBS5合金铸钢调质245+1.5HBS293+0.66HBS6合金钢调质331+1.46HBS335 +0. 86HBS7调质钢渗碳550 + 12HRC14HRC一508合金钢渗碳14758309调质钢氮化100069010球墨铸铁正火272+2.52HBS120+0.4HBS11灰口铸铁222+0.93HBS70+0.4HBS 表2-2 接触疲劳极限图值与计算值比较硬度值245250255260265270275280计算值688.7696703.3710.6717.9725.2732.5739.8图值690697704711718725732739偏差1.310.70.4-0.1-0.2-0.5-0.8绝对最大差值1.3偏差平方和4.28误差0.00622.2 界面设计VB窗体的设计和规划不仅影响到应用程序外观的可观赏性，而且对应用程序的可操作性和易用性等也有很重要的作用。一个优秀的用户界面即是一个直观的、对用户透明的界面。用户在初次接触这个软件就感觉一目了然，不需要多少培训即可方便地上手使用。因此，在设计应用程序界面时，必须从用户角度出发，以方便用户使用为根本。在齿轮传动参数设计系统用户界面设计中主要考虑了以下几方面：2.2.1 保持界面元素的一致性一致性是界面设计中的一个重要问题。缺乏一致性就会使界面混乱、无序、不协调，给用户的使用带来不便，甚至还会使用户觉得应用程序不可靠。所以本系统坚持用同一种风格贯穿整个应用程序界面设计，如:保证各对话框具有相同的形式；在菜单和联机帮助中必须使用相同的术语；不同窗体选择统一的背景、边框线、字体属性值等。2.2.2 设置常用操作的快捷方式对常用操作，如窗体的最小化、最大化、关闭，文件的存盘、另存等设置快捷方式。使常用的操作直观、快捷、方便，这不仅会提高用户的工作效率，还使得界面在功能实现上简明和高效。2.2.3 提供信息反馈和联机帮助加强“人机对话”，对用户的重要操作有信息反馈，这对于帮助广大用户，特别是不熟练用户更好地使用尤为重要。对不常用操作和至关重要的操作提供“向导”，帮助用户正确的实现操作；在屏幕上提供对话框来对用户操作进行信息反馈。联机帮助对于大多数用户来说也具有非常重要的作用。界面设计时在窗口、对话框等对象上设立帮助菜单、帮助按钮。当用户在使用应用软件遇到问题时，不必翻阅参考手册，通过联机帮助系统就能随时随地获得有效的帮助，迅速解决问题。2.2.4 提供简单的错误处理能力当用户出现录入错误时，系统能准确地检测出错误发生的位置，报告出错误发生的性质，提供简单和容易理解的错误处理结果或提示给用户一个修正参考，从而保证系统运行状态的稳定性，保证已经完成的工作数据和系统中间数据的完整性，保证用户操作的连续性。2.2.5 操作可逆操作应该可逆，这对于不具备专门知识的操作人员相当有用。2.2.6 采用简洁直观的界面风格在界面设计中，极力去模仿现实世界的对象是人们普遍易犯的错误。这样的设计，不仅会给自己的设计增加难度，而且往往使界面看上去庞杂，对用户没有真正的好处。因此本系统设计时根据对现实对象的认识和理解，设计出简洁直观易用的用户界面。2.2.7 采用严格的先后逻辑顺序根据设计计算的先后顺序，我们把已经完成的和正在进行操作的控件的Enabled属性设置为True，这些控件是可见的。其它的后继控件Enabled属性设置为False，这些控件是灰白色的（不可见的），是无效的、不能操作的。这样设置的目的是保证设计过程的连续性和严格先后顺序。2.3 菜单设计在Windows界面设计中，菜单设计是至关重要的一环，菜单的基本作用有两个，一是提供人机对话的界面，让用户使用系统的各种功能；二是管理应用系统，控制各种功能模块的运行。一个好的菜单设计，不仅能使系统美观，而且能使操作者使用方便，还可避免误操作带来的严重后果。本系统在菜单设计中采用了如下技术：2.3.1 菜单项的可用与禁止、可见与隐藏 为了表示菜单项的一些特殊功能，以及控制用户的操作流程，要用到菜单选项的可用与禁止、可见与隐藏属性。当因为某种原因使得某个选项所代表的功能不能被实现时，就应该禁止该选项被选中，表现在界面上为灰色，反之为正常黑色。菜单选项的可用与禁止有两种方法可以实现，一是利用菜单编辑器中的“有效”选项，二是通过代码来改变改选项的enabled属性实现。可见与隐藏也有两种方法，一是菜单编辑器中的“可见”选项，二是用代码改变visible属性实现。本系统均利用菜单编辑器来实现。2.3.2 常用菜单项快捷操作的设置 菜单项快捷操作的设置分为快捷键和访问键两个部分。打开菜单设计窗口(Menu Design Windows)，每个菜单项都有相应的快捷键(Shortcut)列表，在该表中选择一个即可。对于一些常用的功能菜单项，有约定俗成的快捷键，例如，文件存盘用CRTL十S，打印用CTRL + P，等等，在设计菜单时严格遵循这些约定。为菜单选项定义好快捷键之后，菜单上该选项的后面就出现快捷键的文字表示。 具有子菜单的菜单项或者顶层菜单不能定义快捷键，只能定义访问键。按照Windows的界面设计原则，顶层菜单访问键的形式是Alt十字母键；或者在菜单打开后用字母键激活一个菜单项。访问键的设置使用“&”符号，它用在菜单项的标题(Caption)属性里。如将一顶层菜单的标题属性设为“文件(&F)，在菜单中就表现为“文件(F) ，可以用“Alt + F打开这个菜单。如果该菜单中有一子菜单项的标题为“保存(&S)，在菜单中就表现为“保存(&S)，当文件菜单展开后，可以用字母键“S来使用这个菜单项。2.3.3 菜单项的分组 菜单项的分组是通过菜单栏分隔线实现的。打开菜单编辑器(Menu Design Windows),在菜单的一定位置增加一个Caption属性为“”的菜单项，它在菜单上就表现为一条横线，注意分隔线菜单项同样需要名称属性，且不能重复。同一功能菜单下又可以按照菜单项的功能分为若干组，这时就可以用分隔线实现菜单项的分组。2.3.4 下拉式菜单的实现下拉式菜单是用户在任何时候都可以在顶端菜单条上选择后拉出的菜单。本系统通过菜单设计窗口(Menu Design Window)设计下拉式菜单。 3 系统设计过程3.1 信息描述对于齿轮传动参数设计系统，需要输入及选择的数据是:传递的功率P1，小齿轮转速n1，传动比i，使用寿命(总工作时数)，原动机类型，工作机载荷性质，齿轮布置情况，齿轮啮合情况，齿轮材料、热处理方式及硬度，齿轮螺旋角度，变位系数，端面模数等。系统经设计计算得出的输出数据是:齿轮模数m，中心距a，大(小)齿轮齿数Z，大(小)齿轮分度圆直径d，转矩，齿宽B，应力及许用应力，齿轮精度等级，齿轮实际螺旋角度，节圆直径，端面重合度等。3.2 功能过程描述与传统的齿轮传动设计相比，本系统具有计算精确，设计速度快、提供的可行方案多等优点，流程图如图2-6所示，具体步骤如下：1 选择齿轮类型；2选择齿轮材料、热处理方法，求出许用应力；3确定设计准则；4进行设计计算，求出齿轮的各项基本参数；5计算齿轮几何尺寸，确定齿轮精度等级； 6校核齿轮应力；7数据保存及输出。在图3-2中，模块1包括：输入原始数据，确定，选择原动机、工作机类型，选择齿轮布置、啮合情况，选择齿轮材质及热处理方式，确定硬度值HB，计算极限应力；模块2包括：模块1的全部功能，确定变位后中心距，初选及端面模数，初选变位系数；模块3包括：确定设计准则，计算转矩，初取小齿轮直径及齿数，确定齿轮精度等级；模块4包括：确定各项参数，几何尺寸计算，应力及许用应力计算；模块5包括：确定设计准则，主要几何尺寸计算，确定各齿变位系数及齿轮精度等级，应力及许用应力计算； 3.3 创建应用程序界面建立Visual Basic应用程序的第一步是创建窗体，然后在创建的窗体上绘制构成界面的控件。所谓绘制控件，就是要从工具箱中把我们把需要的控件添加到窗体中去。如何来绘制控件呢?首先我们单击工具箱中的文本框，然后将指针移到窗体上，大家看到窗体中的指针变成十字(+)光标，拖动十字光标到你需要大小的位置，释放鼠标按钮，控件就出现在窗体中。还有一个更简单的方法来绘制控件，只要双击工具箱中的控件，这样会在窗体中央创建一个尺寸为缺省值的控件，然后再用鼠标调整控件的大小，移动控件到窗体中的其它位置。我们可以用这种方法，将OptionButton,TextBox,ComboBox ,label,Frame, CommandButton等控件添加到窗体中去，还可以调整控件大小，移动和锁定控件。当我们选定窗体中的一个控件时，控件四周有一个小矩形框，称为尺寸柄，可以通过尺寸柄来调整控件的大小，就像用鼠标调整Windows系统中窗口的大小一样，只要用鼠标拖尺寸柄的边框，就可以改变控件的大小，也可以用Shift键加箭头来调整控件的尺寸。一旦我们将控件的大小和位置调整好后，就可以锁定控件的位置，可以从“格式”菜单上选定“锁定控件”或在窗体编辑器工具栏上单击“锁定控件”。本系统共创建了17个窗体界面，图2-7为本应用程序的其中一个窗体界面，我们可以看到窗体上有2个框架、18个标签、2个图像框和5个命令按钮3.4 设置控件的属性在设置好控件之后，紧接着就应该给创建的控件设置属性，用“视图”菜单中的“属性窗口”命令或利用工具栏中的“属性窗口”命令打开属性窗口。如何使用“属性窗口”来设置属性呢?首先，打开属性窗口，属性窗口显示所选窗体或控件的属性设置值；然后，从属性列表中选定属性项；接着，在右列输入或选定新的属性设置值 4 应用程序设计Visual Basic编写代码的地方为代码编辑器窗口，代码由语句、常数和声明部分组成，可以使用代码编辑器窗口快速查看和编辑应用程序代码的任何部分。代码窗口包含如下元素：对象列表框:显示所选对象的名称,单击列表框右边的箭头，显示和窗体有关的所有对象清单。过程列表框:列出对象的过程和事件,选取该框右边的箭头可以显示这个对象的全部事件。41 窗体设计4.1.1 窗体Form1代码 Private Sub Command1_Click()N1 = Val(Text2.Text)I = Val(Text3.Text)P = Val(Text1.Text)T = Val(Text1.Text) * 9.55 / N1On Error GoTo lbl:If Text1.Text = ThenMsgBox 请输入功率, vbOKOnly, 警告Exit Sublbl:If Err.Number 0 Then MsgBox Err.Number & - & Err.DescriptionEnd IfEnd IfChikuanxishu = Val(0.15 * (I + 1)Me.HideForm2.ShowEnd Sub4.1.2 Form2窗体代码Dim txtword As StringDim lenth As IntegerPrivate Sub Combo3_Click()Select Case Combo3.ListIndexCase 0HScroll3.Min = 169HScroll3.Max = 217HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 1HScroll3.Min = 217HScroll3.Max = 255HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 2HScroll3.Min = 217HScroll3.Max = 269HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 3HScroll3.Min = 241HScroll3.Max = 286HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 4HScroll3.Min = 207HScroll3.Max = 269HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 5HScroll3.Min = 241:HScroll3.Max = 286HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 6HScroll3.Min = 163HScroll3.Max = 197HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 7HScroll3.Min = 169HScroll3.Max = 299HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 8HScroll3.Min = 163HScroll3.Max = 217HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 9HScroll3.Min = 197HScroll3.Max = 269HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 10HScroll3.Min = 190HScroll3.Max = 240HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 11HScroll3.Min = 210HScroll3.Max = 260HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 12HScroll3.Min = 170HScroll3.Max = 230HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 13HScroll3.Min = 190HScroll3.Max = 270HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 14HScroll3.Min = 180HScroll3.Max = 250HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2Case 15HScroll3.Min = 210HScroll3.Max = 260HScroll3.Value = (HScroll3.Min + HScroll3.Max) / 2End SelectEnd SubPrivate Sub Combo4_Click()Select Case Combo4.ListIndexCase 0HScroll4.Min = 169HScroll4.Max = 217HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 1HScroll4.Min = 217HScroll4.Max = 255HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 2HScroll4.Min = 217HScroll4.Max = 269HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 3HScroll4.Min = 241HScroll4.Max = 286HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 4HScroll4.Min = 207HScroll4.Max = 269HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 5HScroll4.Min = 241HScroll4.Max = 286HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 6HScroll4.Min = 163HScroll4.Max = 197HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 7HScroll4.Min = 169HScroll4.Max = 299HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 8HScroll4.Min = 163HScroll4.Max = 217HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 9HScroll4.Min = 197HScroll4.Max = 269HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 10HScroll4.Min = 190HScroll4.Max = 240HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 11HScroll4.Min = 210HScroll4.Max = 260HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 12HScroll4.Min = 170HScroll4.Max = 230HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 13HScroll4.Min = 190HScroll4.Max = 270HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 14HScroll4.Min = 180HScroll4.Max = 250HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2Case 15HScroll4.Min = 210HScroll4.Max = 260HScroll4.Value = (HScroll4.Min + HScroll4.Max) / 2End SelectEnd SubPrivate Sub Command1_Click()Select Case Combo3.ListIndexCase 0Form3.Label2.Caption = 220 + 1.2 * HScroll3.Value & MPaForm3.Label4.Caption = 250 + 0.7 * HScroll3.Value & MPaCase 1Form3.Label2.Caption = 354 + 0.93 * HScroll3.Value & MPaForm3.Label4.Caption = 349 + 0.353 * HScroll3.Value & MPaCase 2, 3, 4, 5Form3.Label2.Caption = 331 + 1.46 * HScroll3.Value & MPaForm3.Label4.Caption = 335 + 0.86 * HScroll3.Value & MPaCase 6, 7, 8Form3.Label2.Caption = 198 + 0.875 * HScroll3.Value & MPaForm3.Label4.Caption = 170 + 0.73 * HScroll3.Value & MPaCase 9Form3.Label2.Caption = 245 + 1.5 * HScroll3.Value & MPaForm3.Label4.Caption = 293 + 0.66 * HScroll3.Value & MPaCase 10, 11Form3.Label2.Caption = 222 + 0.93 * HScroll3.Value & MPaForm3.Label4.Caption = 70 + 0.4 * HScroll3.Value & MPaCase 12, 13, 14, 15Form3.Label2.Caption = 272 + 2.52 * HScroll3.Value & MPaForm3.Label4.Caption = 120 + 0.4 * HScroll3.Value & MPaEnd SelectForm5.Label8.Caption = HScroll3.Value & HBSSelect Case Combo4.ListIndexCase 0Form3.Label7.Caption = 220 + 1.2 * HScroll4.Value & MPaForm3.Label9.Caption = 250 + 0.7 * HScroll4.Value & MPaCase 1Form3.Label7.Caption = 354 + 0.93 * HScroll4.Value & MPaForm3.Label9.Caption = 349 + 0.353 * HScroll4.Value & MPaCase 2, 3, 4, 5Form3.Label7.Caption = 331 + 1.46 * HScroll4.Value & MPaForm3.Label9.Caption = 335 + 0.86 * HScroll4.Value & MPaCase 6, 7, 8Form3.Label7.Caption = 198 + 0.875 * HScroll4.Value & MPaForm3.Label9.Caption = 170 + 0.73 * HScroll4.Value & MPaCase 9Form3.Label7.Caption = 245 + 1.5 * HScroll4.Value & MPaForm3.Label9.Caption = 293 + 0.66 * HScroll4.Value & MPaCase 10, 11Form3.Label7.Caption = 222 + 0.93 * HScroll4.Value & MPaForm3.Label9.Caption = 70 + 0.4 * HScroll4.Value & MPaCase 12, 13, 14, 15Form3.Label7.Caption = 272 + 2.52 * HScroll4.Value & MPaForm3.Label9.Caption = 120 + 0.4 * HScroll4.Value & MPaEnd SelectForm5.Label3.Caption = HScroll4.Value & HBSIf Combo3.ListIndex 10 And Combo4.ListIndex 10 ThenMsgBox 小齿轮材料选择有误Exit SubEnd IfIf HScroll3.Value HScroll4.Value ThenMsgBox 小齿轮硬度需要大于大齿轮硬度Exit SubEnd IfIf Combo3.ListIndex = 5 Then If Combo4.ListIndex = 6 And Combo4.ListIndex = 10 And Combo4.ListIndex = 12 And Combo4.ListIndex = 6 And Combo3.ListIndex = 6 And Combo4.ListIndex = 10 And Combo4.ListIndex = 12 And Combo4.ListIndex = 10 And Combo3.ListIndex = 10 And Combo4.ListIndex = 12 And Combo4.ListIndex = 12 And Combo3.ListIndex = 12 And Combo4.ListIndex = 15 ThenAD = 0.836: ZE = 145.2End IfMe.HideForm3.ShowEnd SubPrivate Sub Command2_Click()Unload MeForm1.ShowEnd SubPrivate Sub Form_Load()Combo3.AddItem 45正火（162-217）HBSCombo3.AddItem 45调质（217-255）HBSCombo3.AddItem 42SiMn调质（217-269）HBSCombo3.AddItem 40MnB调质（241-286）HBSCombo3.AddItem 35CrMo调质（207-269）HBSCombo3.AddItem 40Cr调质（241-286）HBSCombo3.AddItem ZG310-570正火（163-197）HBSCombo3.AddItem ZG340-640正火（169-229）HBSCombo3.AddItem ZG35CrMnSi正火、回火（163-217）HBSCombo3.AddItem ZG35CrMnSi调质（197-269）HBS