基于vb的圆锥齿轮传动参数毕业设计说明书(编辑修改稿)

基于vb的圆锥齿轮传动参数毕业设计说明书(编辑修改稿)内容摘要：

时就可以用分隔线实现菜单项的分组。 下拉式菜单的实现 下拉式菜单是用户在任何时候都可以在顶端菜单条上选择后拉出的菜单。 本系统通过菜单设计窗口 (Menu Design Window)设计下拉式菜单。 3 系统设计过程 信息描述 15 对于齿轮传动参数设计系统，需要输入及选择的数据是 :传递的功率 P1，小齿轮转速 n1，传动比 i，使用寿命 (总工作时数 )，原动机类型，工作机载荷性质，齿轮布置情况，齿轮啮合情况，齿轮材料、热处理方式及硬度，齿轮螺旋角度，变位系数，端面模数等。 系统经设计计算得出的输出数据是 :齿轮模数 m，中心距 a，大 (小 )齿轮齿数 Z，大 (小 )齿轮分度圆直径 d，转矩，齿宽 B，应力及许用应力，齿轮精度等级，齿轮实际螺旋角度，节圆直径，端面重合度等。 功能过程描述 与传统的齿轮传动设计相比，本系统具有计算精确，设计速度快、提供的可行方案多等优点，流程图如图 26所示，具体步骤如下： 1． 选择齿轮 类型； 2．选择齿轮材料、热处理方法，求出许用应力； 3．确定设计准则； 4．进行设计计算，求出齿轮的各项基本参数； 5．计算齿轮几何尺寸，确定齿轮精度等级； 6．校核齿轮应力； 7．数据保存及输出。 在图 32中，模块 1包括：输入原始数据，确定，选择原动机、工作机类型，选择齿轮布置、啮合情况，选择齿轮材质及热处理方式，确定硬度值 HB，计算极限应力；模块 2包括：模块 1的全部功能，确定变位后中心距，初选及端面模数，初选变位系数；模块 3包括：确定设计准则，计算转矩，初取小齿轮直径及齿数，确定齿轮精度等级； 16 模块 4包括：确定各项参数，几何尺寸计算，应力及许用应力计算；模块 5包括：确定设计准则，主要几何尺寸计算，确定各齿变位系数及齿轮精度等级，应力及许用应力计算； 创建应用程序界面 建立 Visual Basic应用程序的第一步是创建窗体，然后在创建的窗体上绘制构成界面的控件。 所谓绘制控件，就是要从工具箱中把我们把需要的控件添加到窗体中去。 如何来绘制控件呢 ?首先我们单击工具箱中的文本框，然后将指针移到窗体上，大家看到窗体中的指针变成十字 (+)光标，拖动十字光标到你需要大小的位置 ，释放鼠标按钮，控件就出现在窗体中。 还有一个更简单的方法来绘制控件，只 要双击工具箱中的控件，这样会在窗体中央创建一个尺寸为缺省值的控件，然后再用 鼠标调整控件的大小，移动控件到窗体中的其它位置。 我们可以用这种方法，将 OptionButton,TextBox,ComboBox ,label,Frame, CommandButton等控件添加到窗体中去，还可以调整控件大小，移动和锁定控件。 当我们选定窗体中的一个控件时，控件四周有一个小矩形框，称为尺寸柄，可以通过尺寸柄来调整控件的大小，就像用鼠标调整 Windows系统中窗口的大小一样，只要用鼠标拖尺寸柄的边框，就可以改变控件的大小，也可以用 Shift键加箭头来调整控件的尺寸。 一旦我们将控件的大小和位置调整好后，就可以锁定控件的位置，可以从“格式”菜单上选定“锁定控件”或在窗体编辑器工具栏上单击“锁定控件”。 设置控件的属性 在设置好控件之后，紧接着就应该给创建的控件设置属性，用“视图”菜单中的 17 “属性窗口”命令或利用工具栏中的“属性窗口”命令打开属性窗口。 如何使用“属性窗口”来设置属性呢 ?首先，打开属性窗口，属性窗口显示所选窗体或控件的属性设置值；然后， 从属性列表中选定属性项；接着，在右列输入或选定新的属性设置值。 4 应用程序设计 Visual Basic编写代码的地方为代码编辑器窗口，代码由语句、常数和声明部分组成，可以使用代码编辑器窗口快速查看和编辑应用程序代码的任何部分。 代码窗口包含如下元素： 对象列表框 :显示所选对象的名称 ,单 击列表框右边的箭头，显示和窗体有关的所有对象清单。 过程列表框 :列出对象的过程和事件 ,选取该框右边的箭头可以显示这个对象的全部事件。 4． 1 示例创建窗体编写代码 如何创建事件过程呢。 事件过程包含了事件发生时要执行的 代码， Visual Basic应用程序就是由这些过程的小的代码组称属性中所指定的下划线和事件名组合而成。 下面以下图 Command2（上一步）为例说明创建事件过程 : 首先，在对象列表框中，选定活动窗体中的对象 Command2，然后在过程列表框中选定指定的对象的事件 Click，此时 Click事件已被选定，因为他是命令按钮的默认过程，此时可以看到事件过程的代码模板已显示在代码窗口中，在 Sub与 End sub语句之 18 间输入如下代码 : Private Sub Command2_Click() Unload Me End Sub 这段代码就是将命令按钮的 Caption属性值添加到列表框中 ， 使命令按钮获得焦点 ， 即使本窗体隐藏 ， 显示本窗体的上一窗体 Form7。 这个语法采用 “ Object. property， Command2是对象 ， Caption是属性 ， 响应应用程序运行中发生的事件时 ，可以用这种语法来改变任何窗体或控件的属性设置值。 本窗体其它对象的代码如下 : Dim words As String Dim ii As Integer Dim txtword As String Dim lenth As Integer Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() 39。 用 PrintForm打印 19 39。 打印窗体的可见区域 End Sub Private Sub Command4_Click() Unload Me End Sub 31 Form8 Private Sub Form_Load() If Jsjcyl Qh1 And Jsjcyl Qh2 Then = 大小齿轮接触疲劳强度都不够请重新设计 20 ElseIf Jsjcyl Qh2 And Jsjcyl Qh1 Then = 大小齿轮接触疲劳强度都符合 ElseIf Jsjcyl Qh2 Then = 大齿轮接触疲劳强度都不够请重新设计 ElseIf Jsjcyl Qh1 Then = 小齿轮接触疲劳强度都不够请重新设计 End If If Jswqyl1 Qf1 And Jswqyl2 Qf2 Then = 大小齿轮弯曲疲劳强度都符合 ElseIf Jswqyl1 Qf1 And Jswqyl2 Qf2 Then = 大小齿轮弯曲 疲劳强度都不够请重新设计 ElseIf Jswqyl1 Qf1 Then = 小齿轮弯曲疲劳强度都不够请重新设计 ElseIf Jswqyl2 Qf2 Then = 大齿轮弯曲疲劳强度都不够请重新设计 End If = = X1 = X2 = wzj amp。 mm = Mn = Z1 21 = Z2 = D1 amp。 mm = D2 amp。 mm 表 42 控件属性设置 控件 属性 设置值 Frame1 Caption 校核结果 Frame1 Enabled True CommandButton1 Caption 完成 CommandButton1 Default False CommandButton2 Caption 上一步 CommandButton2 Visible True Lablel1 Caption 接触应力校核结果 Lablel1 Enabled True Lablel1 Autosize False Lablel2 Caption Lablel2 Enabled False Lablel2 Visible True = 圆锥齿轮传动参数设计系统 words = = 150 22 = True = End Sub Private Sub timer1_timer() lenth = Len(words) txtword = Left(words, ii) = txtword ii = ii + 1 If ii lenth Then ii = 0 End If End Sub 窗体设计 Form1 窗体代码 Option Explicit Private Const fTitle As String = 基于 VB的圆锥齿轮参数设计 39。 Private Const fTitle As String = test..test..... Private Const MaxSpace As Long = 50 39。 Private Sub Command1_Click() 软件介绍 .Show Unload Me 23 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub timer1_timer() Static I As Long, J As Boolean Dim tmpStr As String, sLen As Long sLen = Len(fTitle) If J = True Then I = I + 1 Else I = I 1 End If If I MaxSpace + Len(fTitle) Then I = MaxSpace + sLen。