1、第6章 渐开线标准圆柱齿轮传动计算机辅助设计 第6章 渐开线标准圆柱齿轮传动 计算机辅助设计 6.1 用户需求用户需求 6.2 系统结构设计系统结构设计 6.3 渐开线标准圆柱齿轮传动的设计计算渐开线标准圆柱齿轮传动的设计计算 6.4 渐开线标准圆柱齿轮传动的公差查询渐开线标准圆柱齿轮传动的公差查询 6.5 渐开线标准圆柱齿轮自动绘图程序设计渐开线标准圆柱齿轮自动绘图程序设计 6.6 设计结果的输出设计结果的输出 附录附录A 渐开线标准圆柱齿轮传动计算机辅助设计渐开线标准圆柱齿轮传动计算机辅助设计 软件软件VB 6.0源程序源程序 附录附录B 渐开线标准圆柱齿轮自动绘图渐开线标准圆柱齿轮自动绘
2、图VL源程序源程序 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 6.1 用用 户需求户需求 渐开线标准圆柱齿轮传动是工程中应用最广泛的一种机械传动。本章介绍平行轴渐开线圆柱齿轮传动参数化设计方法，其中包括手工设计过程、软件功能模块结构设计、计算模块设计、齿轮公差查询数据库设计、齿轮参数化自动绘图程序设计、设计结果的输出、存储与复用、软件测试等内容。通过本章的学习，我们对参数化机械设计将有比较全面的了解。渐开线标准圆柱齿轮传动参数化设计程序需要用户提供（用户输入）的原始数据为：传递功率，主动轮转速，从动轮转速或传动比，工作机和原动机情况，使用环境情况，传动形式（开式或闭式，内齿或外齿），工作寿
3、命等等。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 此外，还需要用户作一些补充性输入，一般包括：齿轮材料、齿面硬度、热处理方法、齿轮毛坯类型（锻造或铸造）、齿数、螺旋角、安全系数、齿轮轴颈材料、轴颈材料许用应力、齿轮传动精度等级及检验项目、齿厚偏差代号等等。用户需要的结果一般包括：齿轮法向模数、齿轮宽度，其他几何尺寸及圆柱齿轮零件工作图等等。另外，要求程序操作简单方便（比如少击键盘多点鼠标），数据输入不易出错，输入数据便于修改，齿轮零件图的后期修改工作量尽量小，设计结果能够浏览、打印、存储与重复使用等等。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 6.2 系统结构设计系统结构设计 6.2.
4、1 渐开线标准圆柱齿轮传动的手工设计过程分析渐开线标准圆柱齿轮传动的手工设计过程分析 图6-1 手工设计过程 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 【例6-1】设计一斜齿圆柱齿轮减速器的高速级齿轮传动。电机驱动，工作有轻微冲击，齿轮单向运转，传递功率P1=40 kW，n1=960 r/min，传动比i=3.2，工作寿命为10年（每年工作300个工作日），两班制（每班工作八小时）。设计过程见表6-2所示。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 6.2.2 确定软件功能模块与调用关系确定软件功能模块与调用关系 图6-2 齿轮传动参数化设计软件的窗体模块结构图 第6章 渐开线标准圆柱齿
5、轮传动计算机辅助设计 程序划分为多个功能模块，每个功能模块都由一个sub过程实现，这些过程按照给定的顺序运行，见图6-3。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 图6-3 齿轮传动参数化设计软件的功能模块结构图 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 6.3 渐开线标准圆柱齿轮传动的设计计算渐开线标准圆柱齿轮传动的设计计算 6.3.1 输入设计输入设计输入设计，一般应满足以下基本要求：(1)能够输入足够的计算所需参数；(2)输入的参数正确；(3)输入操作简单、方便；(4)输入界面友好、简洁。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 例如：保证在主动轮转速n1、从动轮转速n2、传
6、动比i三者中，必须且只能输入其中两项，并且输入的数据必须是数值型的，其余一项留给程序计算；数值型数据，尽可能通过滚动条与文本框组合输入；需要在一定范围内选择输入的数据，尽可能通过单选钮、复选框、列表框和组合框等，而尽量不使用文本框；对输入的数据，总作正确性验证，对不正确的输入数据，给出提示并要求重新输入；总给出输入数据的缺省值；对多窗体软件中第二个及以后的窗体上，总设置“上一步”或“后退”按钮，以能够返回前一个窗体，从而能够修改输入的参数或多次计算。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 6.3.2 设计计算模块的设计设计计算模块的设计 计算模块的功能主要是根据输入参数和强度条件，选择、
7、计算齿轮的齿数、齿宽系数与模数等基本参数。为了便于理解程序设计的思路，有必要了解一下齿轮模数求解的数学公式。由机械设计理论（见文献3）可知，按齿面接触强度条件，计算齿轮法面模数的公式为 132min1/)/)(1(2ZiZZZiktmdHEHn对式中的(i1)，外啮合时取“+”号，内啮合时取“-”号。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 按齿根弯曲强度条件，计算齿轮法面模数的公式为 321max21/)/(cos2ZYYYktmdFSaFan上述两个公式中的各参数名称及其在程序中的代号（变量名）和获值来源或方法见表6-3。设计计算模块，就是围绕上述的两个公式展开设计的。为了求出模数，就
8、必须逐个地为公式右边各参数赋值。为了赋值，需要处理许多有关的数表和图线。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 处理图线与数表时，需要输入相应的参数值。一个窗体面积是有限的，难以安排太多控件用来输入，因此，需要用多个窗体才能完成全部参数的输入。还有一些参数，必须经过一定的运算过程，得到相应的中间结果，再从中选择数据作进一步的输入。如齿宽系数d的输入，就需要在输入齿轮硬度、齿轮在轴上的布置形式、载荷变化大小之后，经过查文献3中表12-14，得到一个齿宽系数范围，用户根据这个齿宽系数范围，从中选择一个具体的齿宽系数d作为最终的输入。因此，设计计算模块，一般需要一个以上的窗体。齿 轮 传 动
9、设 计 计 算，主 要 通 过 参 数 输 入 主 窗 体frmmaininpu.frm的cmdaffirm-Click事件过程、齿宽系数选择输入窗体frmoption.frm的cmdgoon-Click事件过程和精度等级选择窗体frmxjd.frm的cmdaffirm-Click事件过程，顺序执行而完成。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 6.4 渐开线标准圆柱齿轮传动的公差查询渐开线标准圆柱齿轮传动的公差查询 6.4.1 齿轮工作图标注内容以及齿轮工作图标注内容以及VB到到VL之间的参数传递之间的参数传递 圆柱齿轮传动图标注内容，由齿轮传动工作图要求决定。按照国家标准GB6443
10、-86（文献15）规定，渐开线标准圆柱齿轮图样上应注明的数据分为三部分：1)需要在图样上标注的主要数据 （1）顶圆直径及其公差；（2）分度圆直径；（3）齿宽；（4）孔（轴）径及其公差；（5）定位面及其公差；（6）齿轮表面粗糙度。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 2)需要用表格列出的数据（1）法向模数；（2）齿数；（3）基本齿廓（符合GB135678渐开线圆柱齿轮基准齿形时仅注明齿形角，不符合时则应以图详述其特性）；（4）齿顶高系数；（5）螺旋角；（6）螺旋方向；（7）径向变位系数；第6章 渐开线标准圆柱齿轮传动计算机辅助设计 （8）齿厚：公称值及其上、下偏差（法向齿厚公称值及其上、
11、下偏差或公法线平均长度及其上、下偏差，或量柱（球）测量距及其上、下偏差）；（9）精度等级；（10）齿轮副中心距及其极限偏差；（11）配对齿轮的图号及其齿数；（12）检验顶目代号及其公差（或极限偏差）值。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 3)其他 根据齿轮的具体形状及其技术条件的要求，还应给出其他在齿轮加工和测量时所必需的数据，主要有以下几方面：（1）对于齿轮与轴为一体的小齿轮，以及轴、孔不作为定心基准的大齿轮，在切齿前作定心检查用的表面最大径向跳动必须规定。（2）为检验轮齿的加工精度，对某些齿轮尚需指出其他一些技术参数（如基圆直径），或其他作为检测用的尺寸参数和形位公差（如齿顶圆柱
12、面）。（3）当采用设计齿形、设计齿向时应以图样详述其参数。（4）给出必要的技术要求。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 下面以圆柱齿轮工作图为例来说明齿轮工作图的标注内容，如图6-4所示。图样中的参数表一般放在图样的右上角。参数表中列出的参数项目可根据具体情况增减。图样的技术要求一般放在该图的右下角。掌握了齿轮工作图的标注内容后，我们进一步学习VB-VL的数据接口文件结构。齿轮检验的各公差组可能的检验项目代号有：(1)第公差组精度项目代号，共五个：Fr（齿圈径向跳动公差）,Fp（齿距累积公差）,Fi（切向综合公差）,Fi（径向综合公差）,Fw（公法线长度变动公差）。第6章 渐开线标准
13、圆柱齿轮传动计算机辅助设计 图6-4 圆柱齿轮工作图示例第6章 渐开线标准圆柱齿轮传动计算机辅助设计 (2)第公差组精度项目代号，共六个：ff（齿形公差）,fpt（齿距极限偏差）,fpb（基节极限偏差）,fi（一齿切向综合公差）,fi（一齿径向综合公差）,Fw（公法线长度变动公差）。(3)第公差组检验项目，对精度在510级的常用齿轮，只采用一项：F（齿向公差）。第、第公差组的检验项目的多少是随用户需要而变化的。比如，有时只需要检验一项，有时则需要检验两项；有时需要检验这一项，有时则需要检验另外一项；有时需要检验这两项，有时则需要检验另外两项，等等，不一而论。但由齿轮国标可知，最多检验项目为两项
14、。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 表表6-4 主动轮的数据接口文件结构及其示例主动轮的数据接口文件结构及其示例 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 表表6-4 主动轮的数据接口文件结构及其示例主动轮的数据接口文件结构及其示例 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 注：XZYD（1）是数值型数组，为了使其带有后缀“HBS”。在程序中，需要带有“HBS”的字符串“180HBS”并写入文件。因此，要使用表达式：Trim(Str(XZYD(1)+HBS；齿向载荷分布公差的代号，按国家规定应为“F”,由于AUTOCAD不支持希腊字母，故采用“Fb”。第6章 渐开线标准圆柱
15、齿轮传动计算机辅助设计 按 照 上 述 文 件 结 构，建 立 两 个 数 据 文 件，分 别 是“zhudonglunshuju.txt”和“congdonglunshuju.txt”。具体内容如下：(1）“zhudonglunshuju.txt”内容。(7 8 9 )(15.708 -0.100 -0.250 )(5.000 20 11.36 100 45 60 )(45 正火 189HBS 铸造)(Fp 0.045 空 0)(ff 0.020 fpt 0.025)(Fb 0.040 )(0.018 0.035 0.035 0.054 )(407.99 0.036 )(“右旋”0)(3.8
16、0 0.200 14.00 0.022 0.060 )(1.6 3.2 3.2 1.6 )(外齿轮)第6章 渐开线标准圆柱齿轮传动计算机辅助设计(2)“congdonglunshuju.txt”内容。(7 8 9 )(15.708 -0.100 -0.250 )(5.000 60 11.36 95 65 20 )(45 正火 189HBS 铸造)(Fp 0.090 空 0 )(ff 0.022 fpt 0.028)(Fb 0.040)(0.022 0.052 0.052 0.081)(407.99 0.036)(左旋 0)(4.40 0.200 18.00 0.022 0.060)(1.6 3
17、.2 3.2 1.6 )(外齿轮 )第6章 渐开线标准圆柱齿轮传动计算机辅助设计 6.4.2 公差查询公差查询VF 6.0数据库设计数据库设计 1“齿轮公差查询齿轮公差查询.exe”程序设计程序设计 “齿轮公差查询.exe”程序用VF 6.0设计，用以查询齿轮传动精度公差和齿坯公差。该程序作为主执行程序“圆柱齿轮参数化设计.exe”的从执行程序。在“圆柱齿轮参数化设计.exe”中，VB-VF建立数据接口文件“查询公差输入参数.txt”。在“查询公差输入参数.txt”文件中，有齿轮公差查询所需的必要数据（齿轮基本参数及公差查询项目），数据结构见表6-5。第6章 渐开线标准圆柱齿轮传动计算机辅助设
18、计 表表6-5“查询公差输入参数查询公差输入参数.txt”的结构的结构第6章 渐开线标准圆柱齿轮传动计算机辅助设计 1）在VF 6.0系统中建立项目文件在VF 6.0系统中建立项目文件“齿轮公差查询.pjx”。2）在项目中建立公差或极限表（共13个表）在项目中建立公差或极限表，分别如下：(1)齿形公差表：齿形公差.dbf；(2)径向跳动公差表：径向跳动公差.dbf；(3)公法线长度变动公差表：公法线长度变动公差.dbf；(4)基节极限偏差表：基节极限偏差.dbf；(5)齿距极限偏差表：齿距极限偏差.dbf；第6章 渐开线标准圆柱齿轮传动计算机辅助设计(6)齿轮副中心距极限偏差表：齿轮副中心距极
19、限偏差.dbf；(7)齿距累积公差表：齿距累积公差.dbf；(8)齿向公差表：齿向公差.dbf；(9)径向综合公差表：径向综合公差.dbf，处理径向综合公差Fi；(10)一齿径向综合公差表：齿径向综合公差.dbf；(11)齿坯公差表：齿坯公差.dbf；(12)基本尺寸公差表：基本尺寸公差.dbf；(13)圆跳动公差表：圆跳动.dbf。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 3）编写公差或极限偏差表的处理程序 上述13个表都是国家标准，尽管比较规则，但仍不是真正的二维数表，其数据仍不能原样直接输入到上述对应的dbf表中，需要手工将每个表都整理成二维数表后再输入*.dbf 表。下面以径向综合
20、公差表的处理为例，说明这些表的查询方法。(1）径向综合公差的查询：径向综合公差Fi值见表6-6。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 表表6-6 径向综合公差径向综合公差Fi值（值（GB10095-88）(摘录摘录)第6章 渐开线标准圆柱齿轮传动计算机辅助设计 表表6-7 整理后的径向综合公差整理后的径向综合公差Fi值表值表 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 查询程序的主要代码见代码6-1。代码6-1 径向综合公差Fi值查询程序(fi.prg)主要代码 D=mn*cs/cos(jd)&mn-法向模数，cs-齿数,jd-角度（度），这三个参数以及精度等级dj2均由数据接口文件
21、提供。这里对数据接口文件的读取语句省略了。dafippdj=jz+alltrim(str(dj2)&dj2-第二公差组等级值，dafippdj-字段名变量 use 径向综合公差 again locate for ddmin and dmnmin and mnlmin and ldmin and dmnmin and mndmin and ddmin and dmnmin and mndmin and dmnmin and mndmin and dmnmin and mndmin and dmnmin and mndmin and dmnmin and mnbmin and b0 exit fo
22、r endif next x 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 use 圆跳动 again locate for ddmin and ddmin and d0 exit for endif next x use 齿轮副中心距极限偏差 again locate for aamin and a=amax if found()=(.t.)fa=&ziduanming(x)else fa=0 messagebox(“公差查询数据库:齿轮副中心距极限偏差表中无相应 -第6章 渐开线标准圆柱齿轮传动计算机辅助设计 极限偏差,请核对.+chr(13)+chr(13)+查询参数:中-心距=+all
23、trim(str(a,10,3)+mm ,48,公差查询中断)return endif strtofile(str(fa),查公差输出参数.txt,.t.)&齿轮副中心距极限偏差 set safety on endproc&zhongxinju结束 *查公差输出参数.txt的31个数据顺序是:前15个是主动轮的,第1630个是从动轮的,最后一个是齿轮副中心距极限偏差 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 *主动轮的具体顺序如下:*切向综合公差;齿距累积公差;径向综合公差;公法线长度变动公差;径向跳动公差;齿形公差;齿距极限偏差;基节极限偏差;*一齿切向综合公差;一齿径向综合公差;齿向公
24、差;基准面圆跳动公差;孔尺寸公差;孔形位公差;顶圆公差 *从动轮的:其顺序与意义同主动轮的 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 （4）将“齿轮公差查询.pjx”连编成可执行程序：将“齿轮公差查询.pjx”连编成可执行程序“齿轮公差查询.exe”（注意：可执行程序的名称可与项目文件同名，也可不同名），即可由主执行程序调用。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 2 其余公差项目的查询其余公差项目的查询 2)中13个公差表之外的公差项目，由于数据量不大，查询程序代码量也少，可放在主执行程序中,分别作为一个sub过程，比如 ccd（粗糙度查询）、jiancao（键槽尺寸公差查询）、p
25、ingxingdu（键槽平行度公差查询），见代码6-9。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 6.5 渐开线标准圆柱齿轮自动绘图程序设计渐开线标准圆柱齿轮自动绘图程序设计 1.绘图模块结构设计绘图模块结构设计齿轮自动绘制程序的模块结构图见图6-5。打开数据接口文件zhudonglunshuju.txt或congdonglunshuju.txt，为当前图形和配对图形编号，调用maincall主调函数。maincall主调函数调用shujujiekou函数（读取数据）、plot函数（绘制图框、参数表、标题栏、技术条件、形位公差基准、其余粗糙度）、画齿轮图函数。画齿轮图函数包括InteGea
26、r 函数（画齿轮轴式齿轮）、solidGear函数（画实心式齿轮）、HoleGear函数（画辐板式齿轮）、SpokeGear函数（画轮辐式齿轮）、InlayGear函数（画镶嵌式齿轮）、baocunwenjian函数（保存图形文件）。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 图6-5 自动绘图程序的功能模块结构 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 plot函数调用CheekItemTol函数（标注传动精度公差）、ccdqy函数（）(标注其余粗糙度）。绘图函数调用Benchmark函数（画形位公差基准）、tolerance函数（标注跳动形位公差）、pingxingdu函数(标注平行
27、度公差)、dimition函数（标注尺寸及其公差）、toprough函数（标注上粗糙度）、leftrough函数（标注左粗糙度）、rightrough函数（标注右粗糙度）、Keyway键槽绘制函数（齿轮轴式齿轮除外）。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 2.数据接口文件的数据获取数据接口文件的数据获取 自动绘图程序需要的原始数据的获取，是通过open函数和自定义函数shujujiekou而实现的。shujujiekou函数的全部代码见代码6-19。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 3 自动绘图程序的主要变量及其意义自动绘图程序的主要变量及其意义 自动绘图程序的主要变量及其
28、意义见表6-8。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 表表6-8 自动绘图程序的主要变量及其意义自动绘图程序的主要变量及其意义 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 6.6 设计结果的输出设计结果的输出 1.用窗体控件输出用窗体控件输出 这种输出形式，用户可以立即看到数值结果，便于直接判断是否合理，是否需要返回上一步，修改参数，重新计算。通常使用标签的caption属性、文本框的text属性、组合框的text或list属性显示结果。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 2.用数据文件输出用数据文件输出 这是数值结果常用的一种输出形式，便于永久保存、查阅、编辑、打印。数据
29、文件的类型通常是纯文本类型的，常用的是*.txt文件。这类数据文件，可以用于多种文本编辑器，如写字板、Word中显示、编辑与打印。可以用数据库的表文件，如VF 6.0的*.dbf文件来输出。数据库表文件存储量大，仅受磁盘空间的限制。用数据库表文件存储的数据，非常便于排序、浏览、分析、判断。如何使用数据库文件输出，读者可参阅6.7节。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 3.打印输出打印输出 数据打印输出后，可以长期保存，不易丢失，是一种永久性保存形式。可以在程序运行中打印计算结果；也可以在文本编辑环境中对数据文件浏览并打印。4.图形输出图形输出 齿轮设计得到的图形数据，一般需要在图形环
30、境(如AUTOCAD 2000)中打印输出或以图形文件(如*.dwg)输出并保存。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 附录附录A 渐开线标准圆柱齿轮传动渐开线标准圆柱齿轮传动 计算机辅助设计软件计算机辅助设计软件VB 6.0源程序源程序 1 frmgear.frm窗体（第一窗体，窗体（第一窗体，系统界面）系统界面）frmgear.frm窗体的系统界面见图6-6，frmgear.frm窗体的全部代码见代码6-3。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 图6-6 frmgear.frm系统界面 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 代码6-3 frmgear.frm窗体的全
31、部代码 Option Explicit Private Sub Form-Click()功能：进入下一个窗体 Me.Visible=False frmMainInput.Visible=True End Sub Private Sub Form-Unload(Cancel As Integer)功能：程序结束 End End Sub Private Sub picgear-Click()功能：进入下一个窗体 Me.Visible=False frmMainInput.Visible=True End Sub 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 2 frmMainInpu.frm窗体（
32、第二个窗体，窗体（第二个窗体，原始数据输入原始数据输入）frmMainInpu.frm窗体见图6-7，frmMainInpu.frm窗体的全部代码见代码6-4。第6章 渐开线标准圆柱齿轮传动计算机辅助设计 图6-7 frmMainInpu.frm窗体 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 代码6-4 frmMainInpu.frm窗体的全部代码 Option Explicit Option Base 1 Public gj 工作机情况 Public yj 原动机情况 Public myi As Single 名义传动比 Dim C(3)As Single 应力循环次数 Private
33、Sub Cboc1-Click()功能：主动轮材料 Dim ydfw 硬度范围 Dim ph 牌号 Dim cxh 材料序号 Dim rcf 热处理方法 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 cxh=Cboc1.ListIndex 主动轮材料序号cxh取组合框Cboc1的索引号 If cxh 5 Then Optzddz.Enabled=True Optzdzz.Enabled=True 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 Else Optzddz.Value=False Optzdzz.Value=False Optzddz.Enabled=False Optzdzz.En
34、abled=False End If End Sub Private Sub Cboc2-Click()功能：从动轮材料 Dim ydfw 硬度范围 Dim ph 牌号 Dim cxh 材料序号 Dim rcf 热处理方法 Dim t1 As Single 名义转矩 cxh=Cboc2.ListIndex 主动轮材料序号cxh取组合框Cboc2的索引号 If cxh 5 Then Optcddz.Enabled=True Optcdzz.Enabled=True Else 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 Optcddz.Value=False Optcdzz.Value=Fals
35、e Optcddz.Enabled=False Optcdzz.Enabled=False End If End Sub Private Sub Chkcdn-Click()功能：确定从动齿轮是内齿轮还是外齿轮 If Chkcdn.Value=1 Then chkzdn.Value=0 chkzdn.Enabled=False cdn=Trim(Chkcdn.Caption)Else cdn=外齿轮 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 End If If Chkcdn.Value=0 Then chkzdn.Enabled=True chkzdn.Value=0 End If End
36、 Sub Private Sub chkxuanxiang-Click()功能：确定齿轮螺旋方向 If chkxuanxiang.Value=1 Then zdlxuanxiang=Trim(chkxuanxiang.Caption)cdlxuanxiang=右旋 Else zdlxuanxiang=右旋 cdlxuanxiang=左旋 End If End Sub 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 Private Sub chkzdn-Click()功能：确定主动齿轮是内齿轮还是外齿轮 If chkzdn.Value=1 Then Chkcdn.Value=0 Chkcdn.En
37、abled=False zdn=Trim(chkzdn.Caption)Else zdn=外齿轮 End If If chkzdn.Value=0 Then Chkcdn.Enabled=True Chkcdn.Value=0 End If End Sub 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 Private Sub cmdaffirm-Click()功能：接收输入，初步计算，进入下一步 Dim xzclx(3)As Integer 选择齿轮材料序号 SH(1)=Val(Txtsh.Text)SH(2)=SH(1)SF(1)=Val(Txtsf.Text)SF(2)=SF(1)P=Va
38、l(TXTP.Text)If P=0 Then MsgBox 功率不能小于0，请重新输入:Exit Sub N1=Val(txtn1.Text)If N1 5 Then If Optzddz=False And Optzdzz=False Then MsgBox 请选择主动齿轮的毛坯种类:Exit Sub End If End If 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 If cxh2 5 Then If Optcddz=False And Optcdzz=False Then MsgBox 请选择从动齿轮的毛坯种类:Exit Sub End If End If bat=Val(txt
39、bat.Text)If bat 0 Then MsgBox 螺旋角不能小于零，请重新输入:Exit Sub kt=Val(Txtkt.Text)If kt 1 Then MsgBox 载荷系数不能小于1，请重新输入:Exit Sub If Txtn2 Then n2=Val(Txtn2.Text)myi=Int(N1/n2*100)/100 Else myi=Val(txti.Text)n2=Int(N1/myi)End If 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 z1=Val(Txtz1.Text)z2=Int(z1*myi)z(1)=z1 z(2)=z2 si=Int(z2/z1*
40、100)/100 C(1)=N1*60*Val(Txtmtss.Text)*Val(Txtmnts.Text)*Val(Txtns.Text):C(2)=-C(1)/si C(1)=Int(C(1)C(2)=Int(C(2)xzclx(1)=Cboc1.ListIndex+1 xzclx(2)=Cboc2.ListIndex+1 Call chiXY(C(),xzclx()chiXY过程，查疲劳极限 If bat=0 Then zv(1)=z(1)当量齿数取实际齿数 zv(2)=z(2)同上 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 Else zv(1)=z(1)/(Cos(bat*3.1
41、4/180)3)计算当量齿数 zv(2)=z(2)/(Cos(bat*3.14/180)3)同上 End If Call FAID 功能：齿宽系数范围 Call YFAYSA(chkzdn,Chkcdn)调YFAYSA过程，查应力集中系数与齿形系数 Call ZEZ(Optzddz,Optzdzz,Optcddz,Optcdzz)调ZEZ过程，查弹性系数 Call KA1(gj,yj)功能：工作情况系数 KA1过程，查工况系数 frmOption.Visible=True frmMainInput.Visible=False End Sub Private Sub cmdend-Click()
42、功能：结束 End End Sub 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 Private Sub Cmdreturn-Click()功能：返回上一个窗体 Me.Visible=False frmgear.Visible=True End Sub Private Sub Form-KeyPress(KeyAscii As Integer)功能：按回车键，调用cmdaffirm-Click过程 If KeyAscii=13 Then Call cmdaffirm-Click End Sub Private Sub Form-Load()功能：为frmMainInput窗体上的对象赋值 HS
43、byd1.Visible=False HSbyd2.Visible=False Txtyd1.Visible=False 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 Txtyd2.Visible=False Txtn2.Enabled=False Txtn2.BackColor=&H80000004 txti.BackColor=&H80000004 txti.Enabled=False VSbz1.Max=60 VSbz1.Min=17 VSbz1.LargeChange=4 VSbz1.SmallChange=1 VSbz1.Value=20 Txtz1.Text=20 vsbns.Ma
44、x=30 vsbns.Min=1 vsbns.LargeChange=10 vsbns.SmallChange=1 vsbns.Value=10 Txtns.Text=vsbns.Value vsbmnts.Max=360 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 sbmnts.Min=10 vsbmnts.LargeChange=20 vsbmnts.SmallChange=10 vsbmnts.Value=300 Txtmnts.Text=vsbmnts.Value VSbmtss.Max=24 VSbmtss.Min=1 VSbmtss.LargeChange=5 VSbmtss.S
45、mallChange=1 VSbmtss.Value=8&Txtmtss.Text=VSbmtss.Value VSbsh.Max=140 VSbsh.Min=100 VSbsh.LargeChange=100 VSbsh.SmallChange=5 VSbsh.Value=120 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 Txtsh.Text=VSbsh.Value/100 VSbsf.Max=200 VSbsf.Min=140 VSbsf.LargeChange=20 VSbsf.SmallChange=10 VSbsf.Value=180 Txtsf.Text=VSbsf.Value
46、/100 VSbkt.Max=300 VSbkt.Min=110 VSbkt.LargeChange=20 VSbkt.SmallChange=10 VSbkt.Value=200 Txtkt.Text=VSbkt.Value/100 Optcddz.Enabled=False Optcdzz.Enabled=False Optzddz.Enabled=False 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 Optzdzz.Enabled=False txtbat.Text=0 vsbbat.LargeChange=2 vsbbat.SmallChange=1 vsbbat.Max=45 v
47、sbbat.Min=0 vsbbat.Value=0 Txtkt.Text=1.5 VSbkt.Max=100 VSbkt.Min=10 VSbkt.LargeChange=10 VSbkt.SmallChange=1 VSbkt.Value=15 chkxuanxiang.Value=0 zdlxuanxiang=右旋 cdlxuanxiang=左旋 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 zdn=外齿轮 cdn=外齿轮 zmaopei=铸造 cmaopei=铸造 End Sub Private Sub HSbyd1-Change()功能：主动轮硬度 Txtyd1.Text=HSbyd
48、1.Value End Sub Private Sub HSbyd2-Change()功能：从动轮硬度 Txtyd2.Text=HSbyd2.Value End Sub 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 Private Sub Optgj1-Click()功能：工作机情况1 gj=Optgj1.Caption End Sub Private Sub Optgj2-Click()功能：工作机情况2 gj=Optgj2.Caption End Sub Private Sub Optgj3-Click()功能：工作机情况3 gj=Optgj3.Caption End Sub Privat
49、e Sub Optgj4-Click()功能：工作机情况4 gj=Optgj4.Caption End Sub 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 Private Sub opti-Click()功能：输入传动比 Txtn2.Enabled=False Txtn2.BackColor=&H80000004 txti.Enabled=True txti.BackColor=&H80000005 Txtn2.Text=End Sub Private Sub optn2-Click()功能：输入从动轮转速 Txtn2.Enabled=True Txtn2.BackColor=&H80000
50、005 txti.Enabled=False txti.BackColor=&H80000004 txti.Text=End Sub 第6章 渐开线标准圆柱齿轮传动计算机辅助设计 Private Sub Optyj1-Click()功能：原动机情况1 yj=Optyj1.Caption End Sub Private Sub Optyj2-Click()功能：原动机情况2 yj=Optyj2.Caption End Sub Private Sub Optyj3-Click()功能：原动机情况3 yj=Optyj3.Caption End Sub Private Sub Optyj4-Click
