设计说明书封皮.doc

汽车主减速器参数优化软件设计【全套资料】【汽车车辆专业】

收藏

压缩包内文档预览:
预览图 预览图
编号:402766    类型:共享资源    大小:33.48MB    格式:RAR    上传时间:2015-02-06 上传人:好资料QQ****51605 IP属地:江苏
45
积分
关 键 词:
汽车 减速器 参数 优化 软件设计 全套 cad 图纸 毕业论文 车辆 专业
资源描述:

摘    要

汽车主减速器作为汽车驱动桥中重要的传力部件,是汽车最关键的部件之一。与国外相比,我国的车用减速器开发设计不论在技术上、制造工艺上,还是在成本控制上都存在不小的差距。主减速器设计的好坏关系到汽车的动力性、经济性以及噪声、寿命等诸多方面。如何协调好各方关系、合理匹配设计参数,以达到满足使用要求的最优目标,是主减速器设计中最重要的问题。
本文力求改变以往的设计方式,提出针对汽车主减速器整体的最优化设计方法,针对汽车设计中的主减速器参数设计开发计算软件,通过人机交互方式完成主减速器的参数设计,并考虑通过软件进行参数优化(汽车主减速器传动比, 主减速器螺旋锥齿轮结构参数),实现解决复杂计算这一单一功能的目的,实现汽车主减速器参数的最佳匹配,达到充分发挥汽车整体性能、节约能耗、降低成本、提高设计质量和效率。本文在vb语言程序基础上采用参数优化设计方法对汽车主减速器的齿轮机构进行优化,使寻优过程得到简化,确保可靠地获得全局最优解。能够缩短主减速器参数设计计算时间、减轻工程技术人员的劳动强度。

关键词:主减速比;锥齿轮;参数优化;计算软件;软件设计

ABSTRACT

Main reducer drive car in a car, the power transmission components, an important is one of the most key parts of the car. In China compared with foreign countries, the development of design whether vehicle reducer in technology and the manufacturing process, or in the cost control there are considerable disparity. The stand or fall of main reducer design relation to car power, economy and noise, life, and other aspects. How to coordinate all relations, the rational matching design parameters to meet the requirements of the use of optimum target, it is the Lord speed reducer design in the most important question.
This paper tries to change in the past, and puts forward the design way of the whole car advocate reducer for optimum design method, the main reducer for automobile design parameter design development calculation software through the man-machine interactive way fulfilling the reducer, and consider the parameter design parameter optimization (by software, Lord car advocate reducer transmission structure parameter of spiral bevel gear reducer to solve the complex calculation and the realization of the purpose of the single function, and to make the Lord, the best matching parameters of speed reducer to give full play to car performance, saving energy consumption, reduce cost, improve the design quality and efficiency. In this paper, based on vb language program using parameters optimization design method for the car advocate reducer, gear mechanism to optimize the optimization process is simplified, ensure reliable to obtain the global optimal solution. Can shorten the main reducer parameter design calculation time, reduce labor intensity of engineering and technical personnel.

Keywords: Lord deceleration ratio; Bevel gear; Parameter optimization; Calculation software; Software design


目    录

摘要………………………………………………………………………………………Ⅰ
Abstract …………………………………………………………………………………Ⅱ第1章 绪论………………………………………………………………………………1
1.1课题研究的目的和意义…………………………………………………………1
1.2课题的国内外发展状况…………………………………………………………1
1.2.1国内外机械软件技术的发展状况………………………………1
1.2.2  国内外基于Visual Basic 6.0的软件在机械方面的发展状况………3
1.3 课题研究的主要内容及技术路线………………………………………………3
第2章 汽车主减速器的设计方法………………………………………………5
   2.1主减速器的结构形式………………………………………………………5
2.2 基本参数选择与计算载荷的确定………………………………………………10
2.3 锥齿轮强度计算………………………………………………………………… 14
2.4锥齿轮轴承的载荷计算…………………………………………………………16
2.5 锥齿轮的材料及热处理…………………………………………………………17
2.6本章小结…………………………………………………………………………18
第3章 汽车主减速器参数优化软件设计…………………………………20
3.1汽车主减速器参数优化软件编程语言的选择及语言的使用概述…20
   3.1.1汽车主减速器参数优化软件编程语言的选择……………………20
   3.1.2汽车主减速器参数优化软件编程语言的使用概述………………21
3.2汽车主减速器参数优化软件设计体系……………………………………25
3.2.1汽车主减速器参数优化软件系统运行平台………………………25
3.2.2汽车主减速器参数优化软件系统实现功能………………………25
3.3汽车主减速器参数优化软件设计………………………………………25
3.4本章小结…………………………………………………………………………43
第4章 汽车主减速器参数优化软件的测试…………………………………44
4.1 汽车主减速器参数优化软件测试概述…………………………………………44
4.2汽车主减速器参数优化软件的测试………………………………………44
4.3 本章小结…………………………………………………………………………57
结论………………………………………………………………………………………58
参考文献…………………………………………………………………………………59
致谢………………………………………………………………………………………60
附录………………………………………………………………………………………61
附录A 外文文献原文………………………………………………………………61
附录B 外文文献中文翻译…………………………………………………………63

第1章 绪  论

1.1课题研究的目的和意义
汽车问世百余年来,特别是从汽车产品的大批量生产及汽车工业的发展以来,汽车己为世界经济的发展、为人类进入现代生活,产生了无法估量的巨大影响,为人类社会的进步做出了不可磨灭的巨大贡献。近年来随着汽车技术的迅猛发展,对汽车传动系承载能力以及工作可靠性的要求越来越高,汽车主减速器作为汽车传动系统的关键总成,其主要功能是将输入的转矩增大并相应降低转速,以及当发动机纵置时还具有改变转矩旋转方向的作用。主减速器的结构对汽车的动力性、经济性与轻便性、传动的平稳性与效率等都有直接的影响。
许多乘用车和总质量较小的商用车采用了发动机横置的前置前驱布置,都是单级式主减速器,其具有结构紧凑、质量小、制造成本低和传递效率高、高速性能好的优点,通过软件设计方法来设计汽车主减速器是非常重要的。软件设计是以数学规划为理论基础,以计算机为工具,寻求机械设计问题最佳方案的现代设计方法之一,现在已经有很多成熟的软件程序可供选择,但传统的方法存在着求解过程复杂和寻优过程容易陷入局部最优解的问题。通常主减速器设计多是仅从某一角度考虑,单一的改善其某一方面参数,而没有将其参数优化有效结合起来。因此,本课题力求改变以往的设计方式,提出针对汽车主减速器整体的最优化设计方法,针对汽车设计中的主减速器参数设计开发计算软件,通过人机交互方式完成主减速器的参数设计,并考虑通过软件进行参数优化(汽车主减速器传动比, 主减速器双曲面齿轮结构参数),实现解决复杂计算这一单一功能的目的,实现汽车主减速器参数的最佳匹配,达到充分发挥汽车整体性能、节约能耗、降低成本、提高设计质量和效率。本课题在VB语言程序基础上采用参数优化设计方法对汽车主减速器的齿轮机构进行优化,使寻优过程得到简化,确保可靠地获得全局最优解。能够缩短主减速器参数设计计算时间、减轻工程技术人员的劳动强度。
1.2课题的国内外发展状况
1.2.1国内外机械软件技术的发展状况
主减速器的参数计算主要是传动齿轮的基本参数和尺寸参数计算。自从汽车零部件设计引入计算机辅助设计方法后,这一功能的实现已经变得比较容易。现今国外大型的汽车企业都有自己的减速器齿轮设计计算系统,比如瑞典的克林贝格齿轮设计系统、德国的Calculation Base主锥设计系统等等。
   早在上世纪60年代,国外的一些CAD公司就已经开发出一些实用的三维绘图软件,三维绘图技术的进步为汽车零部件的设计引入了全新的概念。伴随着三维绘图软件的日益成熟,国外大型的汽车生产厂家开始引入参数化设计方法来取代以前繁琐的手工设计,目前参数化设计手段已经相当完善。作为汽车的重要部件,主减速器的设计也引入了参数化设计方法。生产厂家利用所设计的主减速器开发平台根据新设计的主减速器尺寸在以前产品的基础上更改相关的尺寸参数建立三维模型图。
不论是在设计还是制造方面,与外国企业相比我国的汽车企业差距都非常明显。但是经过多年的努力,我国的主减速器设计系统软件方面已经取得了一定的成就。其中比较出名的有可以应用于主减速器齿轮设计的齿轮专家系统,哈工大开发的主减速嚣齿轮设计平台等等。
其实软件不仅在汽车方面有广泛的应用,在其他的机械区域里同样有着比较广泛的应用。
1、2009,06,01,厦门大学的沈一凛发表了硕士学位论文:数控弯丝机线材成形软件设计。根据数控弯丝机的实际工作要求,完成其机械结构部分的设计,并且自行开发出界面友好的操作软件,能实现包括模型显示和仿真运动等在内的一系列功能。
2、2005,11,农业机械学报第36卷第11期发表了:农业机械动态仿真软件开发与模拟。现有的一些计算机仿真平台如ADAMS,UG等具有很大的通用性,功能齐全, 但价格昂贵,专业性差, 且需要大量的计算机资源配合系统的运行, 在仿真速度,系统的可扩展性方面难以满足农机设计人员的要求。各种农业机械有其自身的特殊性,对不断更新的农业机械型号,应用类型,需要有相应的仿真功能。而现有软件的模式,内容都比较固定,不利于变动性大的研究。因此开发一种操作简单,成本低的仿真系统对农业机械具有一定的意义。
3、2004,11,农机化研究第6期,基于 UNIX 的机械软件设计思想研究。主要探讨了基于 UNIX 利用 socket 建立客户机/服务

内容简介:
1登录系统首先,进入软件的首个界面如图1-1所示,单击该界面,进入登录界面。登录界面如图1-2所示,输入特定的密码并且正确后,则正事进入设计界面。密码只能为数字,长度为6。如果输入的密码不正确或者为非数字,系统会给出相应的警告。如图1-3,1-4所示。图1-1 系统首页图1-2 密码界面图1-3 密码界面图1-4 密码界面2汽车主减速器参数优化计算软件使用步骤2.1 减速形式选择的使用步骤图2-1为正式进入设计系统的第一个界面,从此界面上可以了解到汽车主减速器设计的大致流程。在界面上方具有菜单栏,用户可根据需求,点击相应的菜单选项,从而得到相应的帮助和信息。单击主减速比的确定,进入下一界面。图2-1 设计主页此界面为主减速比的输入界面。此数据是接下来选择减速形式的主要依据,同时也是以后设计过程中最为主要的数据之一,如图2-2所示。图2-2 主减速比如图2-3所示,此界面为汽车主减速器减速形式的选择界面。可根据主减速比的数值大小以及范围来选择单级主减速器还是双级主减速器。选择相应的减速形式后,单击该选项即可。图2-3 减速形式选择2.2单级主减速器设计的使用步骤图2-4为单级主减速器设计主页,从界面上可以清晰地了解到单级主减速器的设计步骤以及设计顺序。按照设计顺序点击齿轮形式的选择,进入具体设计界面。齿轮形式选择界面是以界面给定的信息作为参考以及选择原则,进行齿轮形式的选择。两种锥齿轮的优缺点都在给定的信息当中,望仔细阅读,从而做出选择。做出选择后,单击所选选项即可。如图2-5所示。之后返回设计主页,单击主从动锥齿轮的支承方案,进入选择界面。支承形式的分类,相应的结构特点以及适用范围都已在界面上的信息当中给出。仔细阅读后做出选择,单击即可。如图2-6所示。再次进入设计主页,单击齿轮计算载荷的确定,进入计算页面。根据不同的情况,齿轮的计算载荷可分为三种。如图2-7 2-8所示,在输入相应的数据之后,单击计算按钮,系统会自动算出与之相对应的结果。输入主减速比,主减速器的传动效率后,也可算出主动齿轮的计算载荷。图2-4 锥齿轮设计首页图2-5 齿轮形式图2-6 支撑形式返回设计首页,单击齿轮主要参数的选择,进入下一界面。图2-9所示界面为汽车主减速器齿轮参数设计主界面。界面上显示了具体的设计步骤以及涉及顺序。请用户按照相应的涉及顺序进入相应的界面。进入锥齿轮齿数查询及选择界面。这一内容包含了四个界面。每个界面当中都含有一个或多个表格。根据表格内的信息,选择适合用户自己的锥齿轮齿数。并输入在相应的界面内。如图2-10所示(由于界面繁多,则不一一列举)返回齿轮参数设计主界面,进入齿轮参数设计的第二个步骤。此步骤为计算锥齿轮端面模数。如图2-11所示,先通过计算出从动锥齿轮大端分度圆直径,再利用相应的公式计算出模数的具体数值。再次返回锥齿轮参数设计的主界面。单击主从动齿轮齿面宽的计算,进入第三步骤。根据界面上相应的信息,点击计算按钮,计算出主从锥齿轮齿面宽。如图2-12所示以相同的方法,进入锥齿轮参数设计的第四步。此步骤主要是中心螺旋角的选择,主从动锥齿轮旋向的选择以及压力角的选择。相应的选择信息都已在界面上给出。用户只需在仔细阅读后,做出选择即可。界面如图2-13所示。图2-7 计算载荷图2-12 齿宽图2-8 计算载荷进入锥齿轮参数设计的最后一步,通过上几步骤对于基本参数的输入,选择以及计算,才使得在这锥齿轮参数设计最后的一个步骤当中,可以顺利的计算出锥齿轮的几何尺寸。具体尺寸名称如图2-14所示。返回设计首页,基本的数据都已产生,接下来进入数据校核界面。齿轮的校核主要从弯曲强度和接触强度上进行。图2-15所示为锥齿轮弯曲强度校核界面,图2-16所示为锥齿轮接触强度校核界面。点击相应的校核按钮,系统会弹出对话框用来提示校核是否成功。如校核成功,则证明设计的数据完全正确,可以使用。进而进入选择齿轮材料界面。根据界面上以给定的信息选择锥齿轮的材料。如图2-17所示。接下来用户可以利用设计而来的数据进入其他软件系统进行建模仿真。图2-9 锥齿轮参数设计图2-11 端面模数图2-10 齿数选择图2-16 接触强度校核图2-13 基本参数选择图2-14 几何尺寸图2-15 弯曲强度校核图2-17 材料2.3双级主减速器设计的使用步骤在进入减速形式选择之前,操作步骤完全一样,这里不做重复声明。进入减速形式选择界面,选择双级主减速器。图2-18所示为双级主减速器设计主页。界面上显示有设计步骤以及涉及顺序。用户可按照相应顺序进行设计。单击主减速比的分配,进入设计第一步。根据界面所提供信息可把主减速比分为两部分。第一部分为锥齿轮传动减速比,第二部分为斜齿圆柱齿轮传动减速比。把分好的两个主减速比分别填入相应的文本框中。如图2-19所示。返回二级设计首页,进入第二步第一级锥齿轮的设计。由于双级主减速器第一级锥齿轮的设计与单级主减速器锥齿轮的设计完全相同,并且前方已经具体阐述过单级主减速器锥齿轮的设计步骤,所以这里就不再做多余重复。如有不明之处,可查翻前方说明。进入第三步第二级斜齿圆柱齿轮的设计。图2-20所示为斜齿圆柱齿轮设计主页。该界面上同样显示了设计的步骤以及涉及顺序。用户只需按照顺序操作即可。图2-18 双级首页图2-19 主减速比分配图2-20 斜齿圆柱齿轮设计进入第一步中心距A与齿宽b的计算。根据界面已给信息,单击计算按钮,可算出中心距A的范围。用户需要从中选取中心距A,一般取整数。选取完中心距A之后,可利用这一结果计算出齿宽b的范围,用户则需从中选取齿宽b.如图2-21所示。图2-21 中心距与齿宽进入第二步模数的选择。根据界面所提供的表格以及用户自己手中所拥有的信息来选择适当的模数。并填入文本框,如图2-22所示。图2-22 模数进入第三步压力角和螺旋角的选择。图2-23所示为该界面。用户可根据界面所提供的信息选择适当的压力角与螺旋角。图2-23 压力角与螺旋角返回斜齿圆柱齿轮设计主页,进入第四步齿数的选择。如图2-24所示,通过界面上方的两个方程,解出主动齿轮齿数和从动齿轮齿数。用户则只需要根据解出的主从动齿轮齿数略作去整即可。图2-24 齿数基本参数已经计算或输入完毕,接下来进行斜齿圆柱齿轮的几何尺寸计算。具体数据名称和大小如图2-25所示。图2-25 几何尺寸接下来进入校核界面。如同锥齿轮校核一样,一是斜齿轮弯曲应力,一是斜齿轮接触应力。图2-26为斜齿轮弯曲应力校核,图2-27为斜齿轮接触应力校核。用户只需点击相应的校核按钮就可校核,系统会弹出对话框,用来提示校核结果。如校核成功,则证明之前设计的数据满足要求,可以使用。之后用户可利用设计数据进入其他软件系统进行建模仿真。图2-26 弯曲强度校核图2-27 接触强度校核3退出系统单击窗体右上方的“关闭”按钮或者在主界面的“文件”菜单里选择“退出”按钮,即可退出本系统。- 19 -本科学生毕业设计汽车主减速器参数优化软件使用说明书院系名称: 汽车与交通工程学院 专业班级: 车俩工程B07-2班 学生姓名: 孙 楠 指导教师: 赵雨旸 职 称: 副教授 黑 龙 江 工 程 学 院二一一年六月目 录1登录系统12汽车主减速器参数优化计算软件使用步骤22.1 减速形式选择的使用步骤22.2 单级主减速器设计的使用步骤42.3 双级主减速器设计的使用步骤133退出系统19毕业设计(论文)开题报告设计(论文)题目: 汽车主减速器参数优化软件设计院 系 名 称: 汽车与交通工程学院 专 业 班 级: 车辆07-2班 学 生 姓 名: 孙楠 导 师 姓 名: 赵雨旸 开 题 时 间: 2011-02- 28 指导委员会审查意见: 签字: 年 月 日开题报告撰写要求一、“开题报告”参考提纲1. 课题研究目的和意义;2. 文献综述(课题研究现状及分析);3. 基本内容、拟解决的主要问题;4. 技术路线或研究方法;5. 进度安排;6. 主要参考文献。二、“开题报告”撰写规范请参照黑龙江工程学院本科生毕业设计说明书及毕业论文撰写规范要求。字数应在4000字以上,文字要精练通顺,条理分明,文字图表要工整清楚。 毕业设计(论文)开题报告学生姓名孙 楠系部汽车与交通工程学院专业、班级车辆工程07-2班指导教师姓名赵雨旸职称副教授从事专业车辆工程交通工程是否外聘是否题目名称汽车主减速器参数优化软件设计一、 课题研究现状、选题目的和意义1 课题背景 汽车问世百余年来,特别是从汽车产品的大批量生产及汽车工业的发展以来,汽车己为世界经济的发展、为人类进入现代生活,产生了无法估量的巨大影响,为人类社会的进步做出了不可磨灭的巨大贡献。近年来随着汽车技术的迅猛发展,对汽车传动系承载能力以及工作可靠性的要求越来越高,汽车主减速器作为汽车传动系统的关键总成,其主要功能是将输入的转矩增大并相应降低转速,以及当发动机纵置时还具有改变转矩旋转方向的作用。主减速器的结构对汽车的动力性、经济性与轻便性、传动的平稳性与效率等都有直接的影响。汽车主减速器作为汽车驱动桥中重要的传力部件,是汽车最关键的部件之一。与国外相比,我国的车用减速器开发设计不论在技术上、制造工艺上,还是在成本控制上都存在不小的差距。主减速器设计的好坏关系到汽车的动力性、经济性以及噪声、寿命等诸多方面。如何协调好各方关系、合理匹配设计参数,以达到满足使用要求的最优目标,是主减速器设计中最重要的问题。许多乘用车和总质量较小的商用车采用了发动机横置的前置前驱布置,都是单级式主减速器,其具有结构紧凑、质量小、制造成本低和传递效率高、高速性能好的优点,通过软件设计方法来设计汽车主减速器是非常重要的。软件设计是以数学规划为理论基础,以计算机为工具,寻求机械设计问题最佳方案的现代设计方法之一,现在已经有很多成熟的软件程序可供选择,但传统的方法存在着求解过程复杂和寻优过程容易陷入局部最优解的问题。通常主减速器设计多是仅从某一角度考虑,单一的改善其某一方面参数,而没有将其参数优化有效结合起来。因此,本课题力求改变以往的设计方式,提出针对汽车主减速器整体的最优化设计方法,针对汽车设计中的主减速器参数设计开发计算软件,通过人机交互方式完成主减速器的参数设计,并考虑通过软件进行参数优化(汽车主减速器传动比, 主减速器双曲面齿轮结构参数),实现解决复杂计算这一单一功能的目的,实现汽车主减速器参数的最佳匹配,达到充分发挥汽车整体性能、节约能耗、降低成本、提高设计质量和效率。本课题在vb语言程序基础上采用参数优化设计方法对汽车主减速器的齿轮机构进行优化,使寻优过程得到简化,确保可靠地获得全局最优解。能够缩短主减速器参数设计计算时间、减轻工程技术人员的劳动强度。2 发展现状 主减速器的参数计算主要是传动齿轮的基本参数和尺寸参数计算。自从汽车零部件设计引入计算机辅助设计方法后,这一功能的实现已经变得比较容易。现今国外大型的汽车企业都有自己的减速器齿轮设计计算系统,比如瑞典的克林贝格齿轮设计系统、德国的Calculation Base主锥设计系统等等。 早在上世纪60年代国外的一些CAD公司就已经开发出一些实用的三维绘图软件,三维绘图技术的进步为汽车零部件的设计引入了全新的概念。伴随着三维绘图软件的日益成熟,国外大型的汽车生产厂家开始引入参数化设计方法来取代以前繁琐的手工设计,目前参数化设计手段已经相当完善。作为汽车的重要部件,主减速器的设计也引入了参数化设计方法。生产厂家利用所设计的主减速器开发平台根据新设计的主减速器尺寸在以前产品的基础上更改相关的尺寸参数建立三维模型图。与国外相比,不论是在设计还是制造方面,与外国企业相比我国的汽车企业差距都非常明显。但是经过多年的努力,我国的主减速器设计系统软件方面已经取得了一定的成就。其中比较出名的有可以应用于主减速器齿轮设计的齿轮专家系统,哈工大开发的主减速嚣齿轮设计平台等等。其实软件不仅在汽车方面有广泛的应用,在其他的机械区域里同样有着比较广泛的应用。(1)2009,06,01,厦门大学的沈一凛发表了硕士学位论文:数控弯丝机线材成形软件设计。根据数控弯丝机的实际工作要求,完成其机械结构部分的设计,并且自行开发出界面友好的操作软件,能实现包括模型显示和仿真运动等在内的一系列功能。(2)2005,11,农业机械学报第36卷第11期发表了:农业机械动态仿真软件开发与模拟。现有的一些计算机仿真平台如ADAMS,UG等具有很大的通用性,功能齐全, 但价格昂贵,专业性差, 且需要大量的计算机资源配合系统的运行, 在仿真速度,系统的可扩展性方面难以满足农机设计人员的要求。各种农业机械有其自身的特殊性,对不断更新的农业机械型号,应用类型,需要有相应的仿真功能。而现有软件的模式,内容都比较固定,不利于变动性大的研究。因此开发一种操作简单,成本低的仿真系统对农业机械具有一定的意义。(3)2004,11,农机化研究第6期,基于 UNIX 的机械软件设计思想研究。主要探讨了基于 UNIX 利用 socket 建立客户机/服务器模式实现编程的方法,解决了 C/S 模式中异种操作系统上的数据传输问题。利用这种方式可以方便地进行客户端和服务器端的程序编制,定制所需的模块,通过实例程序的运行,达到了预期的要求。为开发一种网络功能强大,可以实现异种机和异种操作系统互连的软件打下了基础。(4)2008,12,16,东南大学硕士学位论文:光纤光栅传感系统研究及软件设计。波长解调技术是FBG传感器在工程技术领域应用的关键技术,也是FBG传感技术实用化的重点和难点之一。此文提出了一种基于可调谐Fabry-Perot滤波器的光纤布拉格光栅传感系统的波长解调方案,在此基础上完成了主机应用软件的设计。(5)2007,08,01,西安理工大学硕士学位论文:基于PMAC的数控试验台机械系统设计及软件开发。开放式数控系统是现代数控系统发艘的方向,本文结合陕两省数控加工技术重点实验室科研项目,采用“IPC+PMAC”结构的开放式数控结构,将PMAC控制卡及其扩展卡装入电器控制箱,通过标准串口RS232与上位机实现通讯,这样构成主从式双微处理器结构,由PMAC运动控制器对机械本体的X、Y、Z、A和B五个轴进行实时控制,建立了五坐标数控技术试验台。Vb作为程序语言在机械方面上的用途也是比较广泛的。(1)2006,11,北京工业大学学报第32卷第11期,基于VB的点焊质量超声检测软件设计。在超声检测点焊连接质量的基本原理基础上,通过VB 60调用Tektronix公司提供的TekVISA Activex控件,利用网口通讯实现了数字示波器中超声信号数据的传输、存储和显示;通过分析找出了信号的特征参量,并实现了对焊点连接质量的评价。该软件实现了对焊点检测质量的数量统计。经实际检测验证,整个系统操作性好。(2)2008,08,机械自动化第4期:基于VB的机械优化设计软件的研究。针对各种优化算法。用VB开发了用于进行机械优化设计的软件,该软件基于Windows系统。以Visual Basic的窗体界面为工作平台并用其中3种具有代表性的优化设计方法进行了一顶计算分析。实例对比分析表明了该软件分析的可靠性和准确性。(3)2005,01,微计算机应用第26卷第1期:基于VB的汽车点火线圈测试台软件设计。该文实现了点火线圈测试系统中对上位机系统软件的要求,包括串行通信,对硬件端口的读写以及对数据库的管理和维护。3 选题目的与意义由于消费者对汽车性能、外形、功能、载重等各方面的要求会不同,所以为了满足客户的需求,设计者必须迅速开发出不同的产品来满足客户的需求。因此,设计者必须建立一套能快速响应客户需求设计研发软件,以达到快速开发出新产品的目的。在传统的主减速器设计中,设计者根据设计任务的要求,参考已有经验和资料,进行构思设计方案、建立设计模型、计算、分析、绘图、反复修改等过程,最后设计出满足要求的方案,并绘出图样和编制设计文件。在设计过程中,有创造性的思维劳动,有综合性的分析及判断作量大,而且要做很多重复性的烦琐劳动设计效率低。也有复杂的计算及精密的绘图等工要由设计者来完成所有环节的工作,设计效率低。鉴于以上传统设计方法的弊病,快速开发出新型主减速器并缩短开发周期,对于提高企业的竞争力具有重要意义,此时便需要建立一个能快速响应客户需求的设计软件。Visual Basic是面向对象编程的,能实现所见即所得,它的主要工作方式是采用事件驱动方式,当你不去驱动这些事件时,它所代表的过程将永远也不会触发,这就为设计良好的界面带来了莫大的便利。Visual Basic事件驱动应用程序中的典型事件顺序如下:运行应用程序、加载和显示窗体;窗体及窗体上的控件接收事件,事件的产生可能是由用户操作、系统引发或代码间接引发;调用事件处理过程代码;等待下一次事件由Visual Basic建立的最优化数值计算程序可生成可执行文件(exe文件),直接在Windows环境中运行,界面友好。对于工程技术人员来说,可以使用此软件选择多种优化方法进行优化,最后择其最优解。即使用户不熟悉优化设计方法和Visual Basic语言,也可使用此软件进行优化。二、 设计(论文)的基本内容、拟解决的主要问题1设计的主要内容:(1)研究汽车工程设计类计算软件国内外技术现状、存在问题及发展趋势;(2)研究汽车主减速器设计步骤、方法、设计公式; (3)对汽车主减速器参数设计进行计算软件设计开发;(4)用调查得到的数据对所设计的计算软件进行测试。2拟解决的主要问题:(1)人性化界面的建立;(2)图形方法的应用;(3)数据库知识点的应用;三、 技术路线(研究方法)调研并查阅汽车主减速器的相关资料调研并查阅Visual Basic的相关资料 软件设计总方案的确定汽车主减速比的确定双级主减速器单级主减速器锥齿轮的设计及校核参数优化材料及热处理双级斜齿圆柱齿轮的设计及校核单级参数优化材料及热处理用数据对计算软件进行测试材料及热处理四、进度安排(1)调研、资料收集,完成开题报告 第1、2周(2)研究汽车主减速器设计步骤、方法、设计公式 第3周(3)学习一种编程语言 第4、5周(4)设计开发汽车主减速器参数优化设计计算软件 第69周 (5)用设计数据对计算软件进行测试 第10、11周(6)设计结果评价、分析与修正 第12周(7)完成设计说明书的撰写,指导教师审核 第13周(8)毕业设计(论文)修改、完善 第14周(9)毕业设计(论文)审核、预审 第15周(10)毕业设计(论文)修改、完善 第15、16周(11)毕业设计(论文)答辩准备及答辩 第17周五、参考文献1 吴志敏等.农用动力车动力的优选方案.农业工程学报.1996, 12( 3) :101- 105 2 戴冠军.城市载货汽车和公共汽车运行工况模式的探讨.西安公路学院学报.1985,(1):16-20 3 唐大放,张永忠,阎海峰.工程机械驱动桥准双曲面齿轮的优化选型设计.工程机械.2004(1) :31-33 4 遇立基磨齿工艺与磨齿机的技术发展概况J现代制造工程。2008(2):145 佟晓东,王立鼎渐开线实体基准的研制J计量技术,1998(05):33366 张俊杰,马勇双盘式渐开线仪中的轮轨弹性蠕滑问题J机械传动,2007,31(5):687 孙靖民机械优化设计M北京:机械工业出版社,2005:2142288 濮良贵机械设计M北京:高等教育出版社,2004:1952009 席平原应用matlab软件实现机械优化设it-J机械设计与研究,2003(3):232510林雪松Matlab70应用集锦M北京:机械工业出版社2006:31733611Enayet BHalim,Skish LShah,Ming JZuo,et a1Fault Detection of Gearbox from Vibration Signal using TimeFrequency Domain AveragingProceedings of the 2006 American Control Coference,2006,4430-443512Abhinav Saxena,Biaing Wu and George VachtsevanosA Methodology for Analyzing Vibration Data from Planetary Gear Systems using Complex Morlet WaveletsAmerican Control Conference,2005,4730-473513杨顶信机械优化设计方法与评判标准J长春理工大学学报(综合版),20062(2):17117314王晓军,肖冠云机械优化设计中目标函数的常用优化目标及应用研究J重型机械科技,2005(1):283015张京明,崔胜民. 汽车传动系参数的模糊优化 J . 哈尔滨工业大学学报, 2004 (10) : 1322 - 1324.六、备注指导教师意见:签字: 年 月 日Form1Private Sub Form_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Label3_Click()End SubForm2Private Sub Form_Load()Text1.Text = Text1.MaxLength = 6Text1.PasswordChar = *End SubPrivate Sub Image1_Click()End SubPrivate Sub Label2_Click()Dim i As IntegerIf Text1.Text 090316 Then i = MsgBox(密码错误, 5 + vbExclamation, 警告) If i 4 Then End Else Text1.Text = Text1.SetFocus End IfElse Form2.Hide Form3.ShowEnd IfEnd SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) Then MsgBox 密码必须为数字, , 警告 Text1.Text = Text1.SetFocusEnd IfEnd SubForm3Private Sub Label1_Click(Index As Integer)Form3.HideForm4.ShowEnd SubPrivate Sub OLE1_Updated(Index As Integer, Code As Integer)End SubPrivate Sub 帮助_Click()MsgBox 无法显示帮助目录,该工程没有相关联的帮助。, vbInformation, Me.CaptionEnd SubPrivate Sub 保存_Click()MsgBox 添加 menuSave_Click 代码。End SubPrivate Sub 关闭_Click()End SubPrivate Sub 退出_Click()EndEnd SubPrivate Sub 新建_Click()Form3.HideForm4.ShowEnd SubPrivate Sub 主减速比_Click()Form3.HideForm4.ShowEnd SubForm4Private Sub Image1_Click()End SubPrivate Sub Label2_Click()Form4.HideForm5.ShowEnd SubPrivate Sub Label3_Click()Form4.HideForm3.ShowEnd SubForm5Private Sub Label1_Click()End SubPrivate Sub Label2_Click()Form5.HideForm7.ShowEnd SubPrivate Sub Label3_Click()Form5.HideForm23.ShowEnd SubPrivate Sub Label4_Click()Form5.HideForm4.ShowEnd SubPrivate Sub Label5_Click()Form5.HideForm3.ShowEnd SubForm6 a4 = Form21.Text1.Text a5 = Form18.Text2.Text a6 = Form20.Text8.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 700 Then Print a7; 700 Print 不符合要求 End IfEnd IfEnd SubPrivate Sub Form_Load()Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!If Form10.Text4.Text Form10.Text10.Text Then a1 = Form11.Text9.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) 0.25 a4 = Form21.Text1.Text a5 = Form18.Text2.Text a6 = Form20.Text8.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 700 Then Print a7; 700 Print 不符合要求 End IfElse a1 = Form11.Text10.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) 0.25 a4 = Form21.Text1.Text a5 = Form18.Text2.Text a6 = Form20.Text8.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 700 Then Print a7; 700 Print 不符合要求 End IfEnd IfEnd SubPrivate Sub Image1_Click()End SubForm7Private Sub Form_Load()End SubPrivate Sub Label1_Click()Form7.HideForm8.ShowEnd SubPrivate Sub Label2_Click()Form7.HideForm9.ShowEnd SubPrivate Sub Label3_Click()Form7.HideForm10.ShowEnd SubPrivate Sub Label4_Click()Form7.HideForm12.ShowEnd SubPrivate Sub Label5_Click()Form7.HideForm21.ShowEnd SubPrivate Sub Label7_Click()Form7.HideForm22.ShowEnd SubPrivate Sub Label8_Click()Form7.HideForm3.ShowEnd SubPrivate Sub Label9_Click()Form7.HideForm23.ShowEnd SubPrivate Sub 帮助_Click()MsgBox 无法显示帮助目录,该工程没有相关联的帮助。, vbInformation, Me.CaptionEnd SubPrivate Sub 齿轮材料_Click()Form7.HideForm22.ShowEnd SubForm8Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label5_Click()End SubPrivate Sub Label8_Click()Form8.HideForm7.ShowEnd SubForm9Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label9_Click()Form9.HideForm7.ShowEnd SubForm10Private Sub Command1_Click()a1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = 0.9 * a1 * a2 / a3Text4.Text = a4End SubPrivate Sub Command2_Click()a5 = Text5.Texta6 = Text6.Texta7 = Text7.Texta8 = Text8.Texta9 = Text9.Texta10 = a5 * a6 * a7 / a8 / a9Text10.Text = a10End SubPrivate Sub Command3_Click()Form10.HideForm11.ShowEnd SubPrivate Sub Command4_Click()Form10.HideForm7.ShowEnd SubPrivate Sub Form_Load()Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!, a8!, a9!, a10!End SubPrivate Sub Image1_Click()Picture = LoadPicture()End SubForm11Private Sub Command1_Click()b1 = Text1.Textb2 = Text2.Textb3 = Text3.Textb4 = Text4.Textb5 = Text5.Texti1 = b3 * b4 * b5b6 = b1 * b2 / i1Text6.Text = b6End SubPrivate Sub Command2_Click()b6 = Text6.Textb7 = Text7.Textb8 = Text8.Texti2 = Form10.Text4.Texti3 = Form10.Text10.Texti4 = b7 * b8b9 = i2 / i4Text9.Text = b9b10 = i3 / i4Text10.Text = b10b11 = b6 / i4Text11.Text = b11End SubPrivate Sub Form_Load()Dim b1!, b2!, b3!, b4!, b5!, b6!, b7!, b8!, b9!, b10!, b11!, i1!, i2!, i3!, i4!End SubPrivate Sub Image1_Click()Picture = LoadPicture()End SubPrivate Sub Label14_Click()Form11.HideForm7.ShowEnd SubForm12Private Sub Form_Load()End SubPrivate Sub Label1_Click()Form12.HideForm13.ShowEnd SubPrivate Sub Label2_Click()Form12.HideForm17.ShowEnd SubPrivate Sub Label3_Click()Form12.HideForm18.ShowEnd SubPrivate Sub Label4_Click()Form12.HideForm19.ShowEnd SubPrivate Sub Label5_Click()Form12.HideForm7.ShowEnd SubPrivate Sub Label6_Click()Form12.HideForm20.ShowEnd SubForm13Private Sub Image1_Click()End SubPrivate Sub Label2_Click()Form13.HideForm14.ShowEnd SubPrivate Sub OLE1_Updated(Code As Integer)End SubForm14Private Sub Label2_Click()Form14.HideForm15.ShowEnd SubPrivate Sub OLE1_Updated(Code As Integer)End SubForm15Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label1_Click()Form15.HideForm16.ShowEnd SubPrivate Sub OLE1_Updated(Code As Integer)End SubForm16Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label3_Click()Form16.HideForm12.ShowEnd SubPrivate Sub OLE1_Updated(Code As Integer)End SubForm17Private Sub Command1_Click()Dim c!, a!, b!If Form10.Text4.Text Form10.Text10.Text Then a = Form10.Text4.Text b = 13 * (a (1 / 3) c = 15.3 * (a (1 / 3) Text1.Text = b Text2.Text = cElse a = Form10.Text10.Text b = 13 * (a (1 / 3) c = 15.3 * (a (1 / 3) Text1.Text = b Text2.Text = cEnd IfEnd SubPrivate Sub Command4_Click()Dim c!, d!, e%c = Text4.Textd = Form16.Text2.Texte = c / dText3.Text = eEnd SubPrivate Sub Form_Load()End SubPrivate Sub Label3_Click()Form17.HideForm12.ShowEnd SubForm18Private Sub Command1_Click()Dim a!, b!, c!a = Form17.Text4.Textb = 0.155 * aText1.Text = bc = 1.1 * bText2.Text = cEnd SubPrivate Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label4_Click()Form18.HideForm12.ShowEnd SubForm19Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label3_Click()End SubPrivate Sub Label7_Click()Form19.HideForm12.ShowEnd SubForm20Private Sub Form_Load()Picture = LoadPicture()Dim a%, b%, c!, d%, e%, f!, H1!, H2!, Ka!, H3!, H4!, H5!, H6!, x!, y!Text1.Text = Form16.Text1.TextText2.Text = Form16.Text2.TextText3.Text = Form17.Text3.Textx = Form18.Text2.TextText4.Text = xy = Form18.Text1.TextText20.Text = yText7.Text = Form19.Text2.Texta = Text1.Textb = Text2.Textc = Text3.TextText3.Text = cd = a * ce = b * cText8.Text = dText9.Text = eText14.Text = Form19.Combo1Text21.Text = Form19.Combo2Text15.Text = 25.64Text16.Text = 90 - 25.64Text17.Text = d / 2 / Sin(25.64 * 3.14 / 180)Text18.Text = 3.1416 * cIf a = 5 Then H1 = 1.43 H2 = 1.588 Ka = 0.16 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * cElseIf a = 6 Then H1 = 1.5 H2 = 1.666 Ka = 0.215 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * cElseIf a = 7 Then H1 = 1.56 H2 = 1.733 Ka = 0.27 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * cElseIf a = 8 Then H1 = 1.61 H2 = 1.788 Ka = 0.325 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * cElseIf a = 9 Then H1 = 1.65 H2 = 1.832 Ka = 0.38 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * cElseIf a = 10 Then H1 = 1.68 H2 = 1.865 Ka = 0.435 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * cElseIf a = 11 Then H1 = 1.695 H2 = 1.882 Ka = 0.49 Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * cElse H1 = 1.7 H2 = 1.888 f = (b / a) 2 Ka = 0.46 + 0.39 / f Text5.Text = H1 * c Text6.Text = H2 * c H4 = Ka * c H3 = H1 * c - H4 Text10.Text = H3 Text11.Text = H4 H5 = H2 * c - H3 H6 = H2 * c - H4 Text12.Text = H5 Text13.Text = H6 Text19.Text = H2 * c - H1 * cEnd IfEnd SubPrivate Sub Label15_Click()Form20.HideForm12.ShowEnd SubForm21Private Sub Form_Load()End SubPrivate Sub Label10_Click()Form21.HideForm7.ShowEnd SubPrivate Sub Label4_Click()Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!If Form10.Text4.Text Form10.Text10.Text Then a1 = Form11.Text9.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) 0.25 a4 = Text1.Text a5 = Form18.Text2.Text a6 = Form20.Text8.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 700 Then Print a7; 700 MsgBox 计算值 700 MsgBox 计算值700 校核不成功, , 校核结果 End IfElse a1 = Form11.Text10.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) 0.25 a4 = Text1.Text a5 = Form18.Text2.Text a6 = Form20.Text8.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 700 Then Print a7; 700 MsgBox 计算值 700 MsgBox 计算值700 校核不成功, , 校核结果 End IfEnd IfEnd SubPrivate Sub Label5_Click()Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!a1 = Form11.Text11.Texta2 = Form17.Text3.Texta3 = (a2 / 25.4) 0.25a4 = Text1.Texta5 = Form18.Text2.Texta6 = Form20.Text8.Texta7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 210 Then Print a7; 210 MsgBox 计算值 210 MsgBox 计算值210 校核不成功, , 校核结果 End IfEnd SubPrivate Sub Label7_Click()Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!, b1!, b2!b1 = Form10.Text4.Textb2 = Form10.Text10.TextIf b1 b2 Then a1 = Form10.Text4.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) 0.25 a4 = Text1.Text a5 = Form18.Text1.Text a6 = Form20.Text9.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 700 Then Print a7; 700 MsgBox 计算值 700 MsgBox 计算值700 校核不成功, , 校核结果 End IfElse a1 = Form10.Text10.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) 0.25 a4 = Text1.Text a5 = Form18.Text1.Text a6 = Form20.Text9.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 700 Then Print a7; 700 MsgBox 计算值 700 MsgBox 计算值700 校核不成功, , 校核结果 End IfEnd IfEnd SubPrivate Sub Label8_Click()Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!a1 = Form11.Text6.Texta2 = Form17.Text3.Texta3 = (a2 / 25.4) 0.25a4 = Text1.Texta5 = Form18.Text1.Texta6 = Form20.Text9.Texta7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 210 Then Print a7; 210 MsgBox 计算值 210 MsgBox 计算值210 校核不成功, , 校核结果 End IfEnd SubPrivate Sub Label9_Click()Form21.HideForm27.ShowEnd SubForm22Private Sub Label2_Click()Form22.HideForm7.ShowEnd SubPrivate Sub OLE1_Updated(Code As Integer)End SubForm23Private Sub Form_Load()End SubPrivate Sub Label1_Click()Form23.HideForm24.ShowEnd SubPrivate Sub Label2_Click()Form23.HideForm7.ShowEnd SubPrivate Sub Label3_Click()Form23.HideForm25.ShowEnd SubPrivate Sub Label4_Click()End SubPrivate Sub Label6_Click()Form23.HideForm5.ShowEnd SubPrivate Sub 帮助_Click()MsgBox 无法显示帮助目录,该工程没有相关联的帮助。, vbInformation, Me.CaptionEnd SubPrivate Sub 第二级_Click()Form23.HideForm25.ShowEnd SubPrivate Sub 第一级_Click()Form23.HideForm7.ShowEnd SubPrivate Sub 关闭_Click()Form23.HideForm5.ShowEnd SubPrivate Sub 退出_Click()EndEnd SubPrivate Sub 新建_Click()Form23.HideForm3.ShowEnd SubPrivate Sub 主减速比分配_Click()Form23.HideForm24.ShowEnd SubForm24Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label1_Click()End SubPrivate Sub Label5_Click()Form24.HideForm23.ShowEnd SubForm25Private Sub Form_Load()End SubPrivate Sub Label1_Click()Form25.HideForm26.ShowEnd SubPrivate Sub Label2_Click()Form25.HideForm28.ShowEnd SubPrivate Sub Label3_Click()Form25.HideForm29.ShowEnd SubPrivate Sub Label4_Click()Form25.HideForm30.ShowEnd SubPrivate Sub Label5_Click()Form25.HideForm31.ShowEnd SubPrivate Sub Label6_Click()Form25.HideForm32.ShowEnd SubPrivate Sub Label8_Click()Form25.HideForm23.ShowEnd SubForm26Private Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label10_Click()Dim a1!, a2!, a3!a1 = Form10.Text4.Texta2 = 10.51 * a1 (1 / 3)a3 = 11.92 * a1 (1 / 3)Text1.Text = a2Text2.Text = a3End SubPrivate Sub Label11_Click()Form26.HideForm25.ShowEnd SubPrivate Sub Label13_Click()Dim a1!, a2!, a3!a1 = Text3.Texta2 = 0.38 * a1a3 = 0.41 * a1Text6.Text = a2Text7.Text = a3End SubForm27a7 = a6 * a5 (1 / 2) If a7 2800 Then Print a7; 2800 MsgBox 计算值2800 校核不成功, , 校核结果 Else Print a7; 2800 MsgBox 计算值 Form18.Text2 Then a4 = Form18.Text1.Text a5 = 2000 * a2 * a3 / a4 / 0.09 a6 = 232.6 / a1 a7 = a6 * a5 (1 / 2) If a7 1750 Then Print a7; 1750 MsgBox 计算值1750 校核不成功, , 校核结果 Else Print a7; 1750 MsgBox 计算值 1750 Then Print a7; 1750 MsgBox 计算值1750 校核不成功, , 校核结果 Else Print a7; 1750 MsgBox 计算值1750 校核成功, , 校核结果 End IfEnd IfEnd SubPrivate Sub Label5_Click()Form27.HideForm7.ShowEnd SubPrivate Sub OLE2_Updated(Code As Integer)End SubForm28Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label1_Click()Form28.HideForm25.ShowEnd SubPrivate Sub Label9_Click()End SubForm29Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label3_Click()Form29.HideForm25.ShowEnd SubPrivate Sub Label8_Click()End SubForm30Private Sub Form_Load()Picture = LoadPicture()End SubPrivate Sub Label1_Click()Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!a1 = Form26.Text3.Texta2 = Form28.Text1.Texta3 = Form29.Text2.Texta4 = Form24.Text3.Texta5 = 2 * a1 * Cos(a3 * 3.14 / 180) / a2Text1.Text = a5a6 = a5 / (1 + a4)a7 = a6 * a4Text2.Text = a4Text3.Text = a6Text4.Text = a7End SubPrivate Sub Label2_Click()Form30.HideForm25.ShowEnd SubPrivate Sub OLE1_Updated(Code As Integer)End SubForm31Private Sub Form_Load()Dim z1%, z2%, m%, a%, b%, j1!, j2!, d1!, d2!, ha1!, ha2!, hf1!, hf2!, h!, da1!, da2!, df1!, df2!, db1!, db2!z1 = Form30.Text5.Textz2 = Form3
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
提示  人人文库网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:汽车主减速器参数优化软件设计【全套资料】【汽车车辆专业】
链接地址:https://www.renrendoc.com/p-402766.html

官方联系方式

2:不支持迅雷下载,请使用浏览器下载   
3:不支持QQ浏览器下载,请用其他浏览器   
4:下载后的文档和图纸-无水印   
5:文档经过压缩,下载后原文更清晰   
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

网站客服QQ:2881952447     

copyright@ 2020-2025  renrendoc.com 人人文库版权所有   联系电话:400-852-1180

备案号:蜀ICP备2022000484号-2       经营许可证: 川B2-20220663       公网安备川公网安备: 51019002004831号

本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知人人文库网,我们立即给予删除!