CLYX01-031@汽车主减速器参数优化软件设计
收藏
资源目录
压缩包内文档预览：
编号：484646
类型：共享资源
大小：35.06MB
格式：ZIP
上传时间：2015-11-05
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
30
积分
- 关 键 词：
-
机械毕业设计车辆工程全套
- 资源描述：
-
CLYX01-031@汽车主减速器参数优化软件设计,机械毕业设计车辆工程全套
- 内容简介：
-
- 1 - 1 登录系统 首先，进入软件的首个界面如图 1-1 所示，单击该界面，进入登录界面。登录界面如图 1-2 所示，输入特定的密码并且正确后，则正事进入设计界面。密码只能为数字，长度为 6。如果输入的密码不正确或者为非数字，系统会给出相应的警告。如图 1-3,1-4 所示。 图 1-1 系统首页 nts - 2 - 图 1-2 密码界面 图 1-3 密码界面 图 1-4 密码界面 2 汽车主减速器参数优化计算软件使用步骤 2.1 减速形式选择的使用步骤 nts - 3 - 图 2-1 为正式进入设计系统的第一个界面，从此界面上可以了解到汽车主减速器设计的大致流 程。在界面上方具有菜单栏，用户可根据需求，点击相应的菜单选项，从而得到相应的帮助和信息。单击主减速比的确定，进入下一界面。 图 2-1 设计主页 此界面为主减速比的输入界面。此数据是接下来选择减速形式的主要依据，同时也是以后设计过程中最为主要的数据之一，如图 2-2 所示。 图 2-2 主减速比 nts - 4 - 如图 2-3 所示，此界面为汽车主减速器减速形式的选择界面。可根据主减速比的数值大小以及范围来选择单级主减速器还是双级主减速器。选择相应的减速形式后，单击该选项即可。 图 2-3 减速形式选择 2.2 单级主减速器设 计 的使用步骤 图 2-4 为单级主减速器设计主页，从界面上可以清晰地了解到单级主减速器的设计步骤以及设计顺序。按照设计顺序点击齿轮形式的选择，进入具体设计界面。 齿轮形式选择界面是以界面给定的信息作为参考以及选择原则，进行齿轮形式的选择。两种锥齿轮的优缺点都在给定的信息当中，望仔细阅读，从而做出选择。做出选择后，单击所选选项即可。如图 2-5 所示。 之后返回设计主页，单击主从动锥齿轮的支承方案，进入选择界面。支承形式的分类，相应的结构特点以及适用范围都已在界面上的信息当中给出。 仔细阅读后做出选择，单击即可。如图 2-6 所示。 再次进入设计主页，单击齿轮计算载荷的确定，进入计算页面。根据不同的情况，齿轮的计算载荷可分为三种。如图 2-7 2-8 所示，在输入相应的数据之后，单击计算按钮，系统会自动算出与之相对应的结果。输入主减速比，主减速器的传动效率后，也可算出主动齿轮的计算载荷。 nts - 5 - 图 2-4 锥齿轮设计首页 图 2-5 齿轮形式 nts - 6 - 图 2-6 支撑形式 返回设计首页，单击齿轮主要参数的选择，进入下一界面。图 2-9 所示界面为汽车主减速器齿轮参数设计主界面。界面上显示了具体的设计步骤以及涉及顺序。请用户按照相应的涉及顺序 进入相应的界面。 进入锥齿轮齿数查询及选择界面。这一内容包含了四个界面。每个界面当中都含有一个或多个表格。根据表格内的信息，选择适合用户自己的锥齿轮齿数。并输入在相应的 界面内。如图 2-10 所示（由于界面繁多，则不一一列举） 返回齿轮参数设计主界面，进入齿轮参数设计的第二个步骤。此步骤为计算锥齿轮端面模数。如图 2-11 所示，先通过计算出从动锥齿轮大端分度圆直径，再利用相应的公式计算出模数的具体数值。 再次返回锥齿轮参数设计的主界面。单击主从动齿轮齿面宽的计算，进入第三步骤。根据界面上相应的信息，点击计算按钮， 计算出主从锥齿轮齿面宽。如图 2-12 所示 以相同的方法，进入锥齿轮参数设计的第四步。 此步骤主要是中心螺旋角的选择，主从动锥齿轮旋向的选择以及压力角的选择。相应的选择信息都已在界面上给出。用户只需在仔细阅读后，做出选择即可。界面如图 2-13 所示。 nts - 7 - 图 2-7 计算载荷 图 2-12 齿宽 nts - 8 - 图 2-8 计算载荷 进入锥齿轮参数设计的最后一步 ，通过上几步骤对于基本参数的输入，选择以及计算，才使得在这锥齿轮参数设计最后的一个步骤当中，可以顺利的计算出锥齿轮的几何尺寸。具体尺寸名称如图 2-14 所示。 返回设计首页， 基本的数据都已产生，接下来进入数据校核界面。齿轮的校核主要从弯曲强度和接触强度上进行。图 2-15 所示为锥齿轮弯曲强度校核界面，图 2-16 所示为锥齿轮接触强度校核界面。点击相应的校核按钮，系统会弹出对话框用来提示校核是否成功。 如校核成功，则证明设计的数据完全正确，可以使用。进而进入选择齿轮材料界面。根据界面上以给定的信息选择锥齿轮的材料。如图 2-17 所示。 接下来用户可以利用设计而来的数据进入其他软件系统进行建模仿真。 nts - 9 - 图 2-9 锥齿轮参数设计 图 2-11 端面模数 nts - 10 - 图 2-10 齿 数选择 图 2-16 接触强度校核 nts - 11 - 图 2-13 基本参数选择 nts - 12 - 图 2-14 几何尺寸 图 2-15 弯曲强度校核 nts - 13 - 图 2-17 材料 2.3 双级主减速器设计 的使用步骤 在 进入减速形式选择之前，操作步骤完全一样，这里不做重复声明。 进入减速形式选择界面，选择双级主减速器。 图 2-18 所示为双级主减速器设计主页。界面上显示有设计步骤以及涉及顺序。用户可按照相应顺序进行设计。 单击主减速比的分配，进入设计第一步。根据界面所提供信息可把主减速比分为两部分。第一部分 为锥齿轮传动减速比，第二部分为斜齿圆柱 齿轮传动减速比。把分好的两个主减速比分别填入相应的文本框中。如图 2-19 所示。 返回二级设计首页，进入第二步 第一级锥齿轮的设计。由于双级主减速器第一级锥齿轮的设计与单级主减速器锥齿轮的设计完全相同，并且前方已经具体阐述过单级主减速器锥齿轮的设计步骤，所以这里就不再做多余重复。如有不明之处，可查翻前方说明。 进入第三步 第二级斜齿圆柱齿轮的设计。图 2-20 所示为 斜齿圆柱齿轮设计主页。该界面上同样显示了设计的步骤以及涉及顺序。用户只需按照顺序操作即可。 nts - 14 - 图 2-18 双级 首页 图 2-19 主减速比分 配 nts - 15 - 图 2-20 斜齿圆柱齿轮设计 进入第一步 中心距 A 与齿宽 b 的计算。根据界面已给信息，单击计算按钮，可算出中心距 A 的范围。用户需要从中选取中心距 A，一般取整数。选取完中心距 A 之后，可利用这一结果计算出齿宽 b 的范围，用户则需从中选取齿宽 b.如图 2-21 所示。 图 2-21 中心距与齿宽 nts - 16 - 进入第二步 模数的选择。根据界面所提供的表格以及用户自己手中所拥有的信息来选择适当的模数。并填入文本框，如图 2-22 所示。 图 2-22 模数 进入第三步 压力角和螺旋角的选择。图 2-23 所示为该界面。用户可 根据界面所提供的信息选择适当的压力角与螺旋角。 图 2-23 压力角与螺旋角 返回斜齿圆柱齿轮设计主页，进入第四步 齿数的选择。如图 2-24 所示，nts - 17 - 通过界面上方的两个方程，解出主动齿轮齿数和从动齿轮齿数。用户则只需要根据解出的主从动齿轮齿数略作去整即可。 图 2-24 齿数 基本参数已经计算或输入完毕，接下来进行斜齿圆柱齿轮的几何尺寸计算。具体数据名称和大小如图 2-25 所示。 图 2-25 几何尺寸 接下来进入校核界面。如同锥齿轮校核一样，一是斜齿轮弯曲应力，一是斜齿轮接触应力。图 2-26 为斜齿轮弯 曲应力校核，图 2-27 为斜齿轮接触应力校核。用户只需点击相应的校核按钮就可校核，系统会弹出对话框，用来提示校核结果。 如校核成功，则证明之前设计的数据满足要求，可以使用。之后 用户可利用设计数据进入其他软件系统进行建模仿真。 nts - 18 - 图 2-26 弯曲强度校核 图 2-27 接触强度校核 nts - 19 - 3 退出系统 单击窗体右上方的“关闭”按钮或者在主界面的 “ 文件 ”菜单里选择“退出”按钮，即可退出本系统 。 nts 本科 学 生 毕业设计 汽车主减速器参数优化 软 件 使用说明书 院系 名 称 ： 汽车与交通工程学院 专业 班 级 ： 车俩工程 B07-2 班 学 生姓名 ： 孙 楠 指 导教师 ： 赵雨 旸 职 称 ： 副教授 黑 龙 江 工 程 学 院 二 一一 年六月 nts目 录 1 登录系统 1 2 汽车主减速器参数优化 计算软件使用步骤 2 2.1 减速形式选择 的使用步骤 2 2 . 2 单级主减速器设计 的使用步骤 4 2.3 双级主减速器设计 的使用步骤 13 3 退出系统 19 nts 1 Form1 Private Sub Form_Click() Form1.Hide Form2.Show End Sub Private Sub Label3_Click() End Sub Form2 Private Sub Form_Load() Text1.Text = Text1.MaxLength = 6 Text1.PasswordChar = * End Sub Private Sub Image1_Click() End Sub Private Sub Label2_Click() Dim i As Integer If Text1.Text 4 Then End Else Text1.Text = Text1.SetFocus End If Else Form2.Hide Form3.Show End If End Sub Private Sub Text1_LostFocus() If Not IsNumeric(Text1.Text) Then MsgBox 密码必须为数字 , , 警告 Text1.Text = Text1.SetFocus nts 2 End If End Sub Form3 Private Sub Label1_Click(Index As Integer) Form3.Hide Form4.Show End Sub Private Sub OLE1_Updated(Index As Integer, Code As Integer) End Sub Private Sub 帮助 _Click() MsgBox 无法显 示帮助目录，该工程没有相关联的帮助。 , vbInformation, Me.Caption End Sub Private Sub 保存 _Click() MsgBox 添加 menuSave_Click 代码。 End Sub Private Sub 关闭 _Click() End Sub Private Sub 退出 _Click() End End Sub Private Sub 新建 _Click() Form3.Hide Form4.Show End Sub Private Sub 主减速比 _Click() Form3.Hide Form4.Show End Sub Form4 Private Sub Image1_Click() End Sub nts 3 Private Sub Label2_Click() Form4.Hide Form5.Show End Sub Private Sub Label3_Click() Form4.Hide Form3.Show End Sub Form5 Private Sub Label1_Click() End Sub Private Sub Label2_Click() Form5.Hide Form7.Show End Sub Private Sub Label3_Click() Form5.Hide Form23.Show End Sub Private Sub Label4_Click() Form5.Hide Form4.Show End Sub Private Sub Label5_Click() Form5.Hide Form3.Show End Sub Form6 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 Print 不符合要求 End If End If End Sub Private 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 Print 不符合要求 End If Else 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 Print 不符合要求 End If End If End Sub Private Sub Image1_Click() End Sub nts 5 Form7 Private Sub Form_Load() End Sub Private Sub Label1_Click() Form7.Hide Form8.Show End Sub Private Sub Label2_Click() Form7.Hide Form9.Show End Sub Private Sub Label3_Click() Form7.Hide Form10.Show End Sub Private Sub Label4_Click() Form7.Hide Form12.Show End Sub Private Sub Label5_Click() Form7.Hide Form21.Show End Sub Private Sub Label7_Click() Form7.Hide Form22.Show End Sub Private Sub Label8_Click() Form7.Hide Form3.Show End Sub Private Sub Label9_Click() Form7.Hide Form23.Show nts 6 End Sub Private Sub 帮助 _Click() MsgBox 无法显示帮助目录，该工程没有相关联的帮助。 , vbInformation, Me.Caption End Sub Private Sub 齿轮材料 _Click() Form7.Hide Form22.Show End Sub Form8 Private Sub Form_Load() Picture = LoadPicture() End Sub Private Sub Label5_Click() End Sub Private Sub Label8_Click() Form8.Hide Form7.Show End Sub Form9 Private Sub Form_Load() Picture = LoadPicture() End Sub Private Sub Label9_Click() Form9.Hide Form7.Show End Sub Form10 Private Sub Command1_Click() a1 = Text1.Text a2 = Text2.Text a3 = Text3.Text a4 = 0.9 * a1 * a2 / a3 Text4.Text = a4 End Sub nts 7 Private Sub Command2_Click() a5 = Text5.Text a6 = Text6.Text a7 = Text7.Text a8 = Text8.Text a9 = Text9.Text a10 = a5 * a6 * a7 / a8 / a9 Text10.Text = a10 End Sub Private Sub Command3_Click() Form10.Hide Form11.Show End Sub Private Sub Command4_Click() Form10.Hide Form7.Show End Sub Private Sub Form_Load() Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!, a8!, a9!, a10! End Sub Private Sub Image1_Click() Picture = LoadPicture() End Sub Form11 Private Sub Command1_Click() b1 = Text1.Text b2 = Text2.Text b3 = Text3.Text b4 = Text4.Text b5 = Text5.Text i1 = b3 * b4 * b5 b6 = b1 * b2 / i1 Text6.Text = b6 End Sub Private Sub Command2_Click() b6 = Text6.Text b7 = Text7.Text b8 = Text8.Text nts 8 i2 = Form10.Text4.Text i3 = Form10.Text10.Text i4 = b7 * b8 b9 = i2 / i4 Text9.Text = b9 b10 = i3 / i4 Text10.Text = b10 b11 = b6 / i4 Text11.Text = b11 End Sub Private Sub Form_Load() Dim b1!, b2!, b3!, b4!, b5!, b6!, b7!, b8!, b9!, b10!, b11!, i1!, i2!, i3!, i4! End Sub Private Sub Image1_Click() Picture = LoadPicture() End Sub Private Sub Label14_Click() Form11.Hide Form7.Show End Sub Form12 Private Sub Form_Load() End Sub Private Sub Label1_Click() Form12.Hide Form13.Show End Sub Private Sub Label2_Click() Form12.Hide Form17.Show End Sub Private Sub Label3_Click() Form12.Hide Form18.Show End Sub nts 9 Private Sub Label4_Click() Form12.Hide Form19.Show End Sub Private Sub Label5_Click() Form12.Hide Form7.Show End Sub Private Sub Label6_Click() Form12.Hide Form20.Show End Sub Form13 Private Sub Image1_Click() End Sub Private Sub Label2_Click() Form13.Hide Form14.Show End Sub Private Sub OLE1_Updated(Code As Integer) End Sub Form14 Private Sub Label2_Click() Form14.Hide Form15.Show End Sub Private Sub OLE1_Updated(Code As Integer) End Sub Form15 Private Sub Form_Load() Picture = LoadPicture() End Sub nts 10 Private Sub Label1_Click() Form15.Hide Form16.Show End Sub Private Sub OLE1_Updated(Code As Integer) End Sub Form16 Private Sub Form_Load() Picture = LoadPicture() End Sub Private Sub Label3_Click() Form16.Hide Form12.Show End Sub Private Sub OLE1_Updated(Code As Integer) End Sub Form17 Private 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 = c Else a = Form10.Text10.Text b = 13 * (a (1 / 3) c = 15.3 * (a (1 / 3) Text1.Text = b Text2.Text = c End If End Sub Private Sub Command4_Click() Dim c!, d!, e% c = Text4.Text nts 11 d = Form16.Text2.Text e = c / d Text3.Text = e End Sub Private Sub Form_Load() End Sub Private Sub Label3_Click() Form17.Hide Form12.Show End Sub Form18 Private Sub Command1_Click() Dim a!, b!, c! a = Form17.Text4.Text b = 0.155 * a Text1.Text = b c = 1.1 * b Text2.Text = c End Sub Private Sub Form_Load() Picture = LoadPicture() End Sub Private Sub Label4_Click() Form18.Hide Form12.Show End Sub Form19 Private Sub Form_Load() Picture = LoadPicture() End Sub Private Sub Label3_Click() End Sub Private Sub Label7_Click() Form19.Hide nts 12 Form12.Show End Sub Form20 Private 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.Text Text2.Text = Form16.Text2.Text Text3.Text = Form17.Text3.Text x = Form18.Text2.Text Text4.Text = x y = Form18.Text1.Text Text20.Text = y Text7.Text = Form19.Text2.Text a = Text1.Text b = Text2.Text c = Text3.Text Text3.Text = c d = a * c e = b * c Text8.Text = d Text9.Text = e Text14.Text = Form19.Combo1 Text21.Text = Form19.Combo2 Text15.Text = 25.64 Text16.Text = 90 - 25.64 Text17.Text = d / 2 / Sin(25.64 * 3.14 / 180) Text18.Text = 3.1416 * c If 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 * c nts 13 ElseIf 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 * c ElseIf 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 * c ElseIf 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 nts 14 Text19.Text = H2 * c - H1 * c ElseIf 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 * c ElseIf 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 * c ElseIf 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 nts 15 Text13.Text = H6 Text19.Text = H2 * c - H1 * c Else 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 * c End If End Sub Private Sub Label15_Click() Form20.Hide Form12.Show End Sub Form21 Private Sub Form_Load() End Sub Private Sub Label10_Click() Form21.Hide Form7.Show End Sub Private 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 nts 16 a6 = Form20.Text8.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 700 MsgBox 计算值 700 校核不成功 , , 校核结果 End If Else 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 MsgBox 计算值 700 校核不成功 , , 校核结果 End If End If End Sub Private Sub Label5_Click() Dim a1!, a2!, a3!, a4!, a5!, a6!, a7! a1 = Form11.Text11.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 210 MsgBox 计算值 210 校核不成功 , , 校核结果 End If End Sub nts 17 Private Sub Label7_Click() Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!, b1!, b2! b1 = Form10.Text4.Text b2 = Form10.Text10.Text If b1 700 MsgBox 计算值 700 校核不成功 , , 校核结果 End If Else 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 MsgBox 计算值 700 校核不成功 , , 校核结果 End If End If End Sub Private Sub Label8_Click() Dim a1!, a2!, a3!, a4!, a5!, a6!, a7! a1 = Form11.Text6.Text a2 = Form17.Text3.Text a3 = (a2 / 25.4) 0.25 a4 = Text1.Text nts 18 a5 = Form18.Text1.Text a6 = Form20.Text9.Text a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2) If a7 210 MsgBox 计算值 210 校核不成功 , , 校核结果 End If End Sub Private Sub Label9_Click() Form21.Hide Form27.Show End Sub Form22 Private Sub Label2_Click() Form22.Hide Form7.Show End Sub Private Sub OLE1_Updated(Code As Integer) End Sub Form23 Private Sub Form_Load() End Sub Private Sub Label1_Click() Form23.Hide Form24.Show End Sub Private Sub Label2_Click() Form23.Hide Form7.Show End Sub Private Sub Label3_Click() Form23.Hide nts 19 Form25.Show End Sub Private Sub Label4_Click() End Sub Private Sub Label6_Click() Form23.Hide Form5.Show End Sub Private Sub 帮助 _Click() MsgBox 无法显示帮助目录，该工程没有相关联的帮助。 , vbInformation, Me.Caption End Sub Private Sub 第二级 _Click() Form23.Hide Form25.Show End Sub Private Sub 第一级 _Click() Form23.Hide Form7.Show End Sub Private Sub 关闭 _Click() Form23.Hide Form5.Show End Sub Private Sub 退出 _Click() End End Sub Private Sub 新建 _Click() Form23.Hide Form3.Show End Sub Private Sub 主减速比分配 _Click() Form23.Hide Form24.Show End Sub nts 20 Form24 Private Sub Form_Load() Picture = LoadPicture() End Sub Private Sub Label1_Click() End Sub Private Sub Label5_Click() Form24.Hide Form23.Show End Sub Form25 Private Sub Form_Load() End Sub Private Sub Label1_Click() Form25.Hide Form26.Show End Sub Private Sub Label2_Click() Form25.Hide Form28.Show End Sub Private Sub Label3_Click() Form25.Hide Form29.Show End Sub Private Sub Label4_Click() Form25.Hide Form30.Show End Sub Private Sub Label5_Click() Form25.Hide Form31.Show End Sub nts 21 Private Sub Label6_Click() Form25.Hide Form32.Show End Sub Private Sub Label8_Click() Form25.Hide Form23.Show End Sub Form26 Private Sub Command1_Click() End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() Picture = LoadPicture() End Sub Private Sub Label10_Click() Dim a1!, a2!, a3! a1 = Form10.Text4.Text a2 = 10.51 * a1 (1 / 3) a3 = 11.92 * a1 (1 /
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号