form47.frm

锥齿轮CAD设计

VERSION 5.00
Begin VB.Form Form47 
   Caption         =   "Form47"
   ClientHeight    =   9165
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10440
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   12
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form47"
   ScaleHeight     =   9165
   ScaleWidth      =   10440
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command3 
      Caption         =   "显示结果"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   8880
      TabIndex        =   2
      Top             =   8400
      Width           =   1335
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   7320
      TabIndex        =   1
      Top             =   8400
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "打印"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   5760
      TabIndex        =   0
      Top             =   8400
      Width           =   1335
   End
End
Attribute VB_Name = "Form47"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'打印机触发
Private Sub Command1_Click()
 Me.AutoRedraw = True
    Command1.Visible = False
    Command2.Visible = False
    Command3.Visible = False
    Dim UR As Integer
    UR = MsgBox("做好打印准备后请按“确定”，取消打印请按“退出”", vbOKCancel + vbInformation + vbDefaultButton1, "打印准备")
    If (UR = vbCancel) Then
        Me.Hide
       Form9.Show
    Else: On Error GoTo printerror
          Me.PrintForm
    End If
    Exit Sub
printerror:
          MsgBox (Err.Description), , "出错信息"
          Me.Hide
       Form9.Show
End Sub

Private Sub Command2_Click()
 Me.Hide
    Form9.Show
    Unload Me
End Sub

Private Sub Command3_Click()

   Dim m As Double
   m = Form9.Text3.Text
   
   Dim z1 As Double
   z1 = Form9.Text5.Text
   
   Dim z2 As Double
   z2 = Form9.Text7.Text
   
   Dim t As Double
   t = Form9.Text1.Text
   
   Dim v As Double
   v = Form9.Text6.Text
   
   Dim sm As Double
   sm = Form9.Text2.Text
   
   Dim bz As Double
   bz = Form9.Text4.Text
   
   Dim kfnx As Double
   kfnx = Form9.Text10.Text
   
   Dim flimx As Double
   flimx = Form9.Text12.Text
   
   Dim kfnd As Double
   kfnd = Form9.Text11.Text
   
   Dim flimd As Double
   flimd = Form9.Text13.Text
   
   Dim khnx As Double
   khnx = Form9.Text15.Text
   
   Dim hlimx As Double
   hlimx = Form9.Text17.Text
   
   Dim khnd As Double
   khnd = Form9.Text19.Text
   
   Dim hlimd As Double
   hlimd = Form9.Text18.Text
   
   Dim wqx As Double
   wqx = Form9.Text8.Text
   
   Dim jqx As Double
   jqx = Form9.Text9.Text
   
   Dim wqd As Double
   wqd = Form9.Text25.Text
   
   Dim jqd As Double
   jqd = Form9.Text24.Text
   
   Dim xwqx As Double
   xwqx = Form9.Text20.Text
   
   Dim xjqx As Double
   xjqx = Form9.Text21.Text
   
   Dim xwqd As Double
   xwqd = Form9.Text23.Text
   
   Dim xjqd As Double
   xjqd = Form9.Text22.Text
   
   
   Dim zh As String
   If Form9.Option1.Value = True Then
   zh = "均匀平稳"
   End If
   If Form9.Option2.Value = True Then
   zh = "轻微冲击"
   End If
   If Form9.Option3.Value = True Then
   zh = "中等冲击"
   End If
   If Form9.Option4.Value = True Then
   zh = "严重冲击"
   End If
   
   
   Dim ydj As String
   If Form9.Option5.Value = True Then
   ydj = "电动机等"
   End If
   If Form9.Option6.Value = True Then
   ydj = "蒸汽机等"
   End If
   If Form9.Option7.Value = True Then
   ydj = "多缸内燃机等"
   End If
   If Form9.Option8.Value = True Then
   ydj = "单缸内燃机等"
   End If
   
   Dim yh As String
   If Form9.Option13.Value = True Then
   yh = "是"
   End If
   If Form9.Option14.Value = True Then
   yh = "否"
   End If
   
   Dim bt As String
   If Form9.Option19.Value = True Then
   bt = "硬齿面齿轮（Khb>1.34）"
   End If
   If Form9.Option18.Value = True Then
   bt = "调质齿轮"
   End If
   If Form9.Option20.Value = True Then
   bt = "硬齿面齿轮（Khb≤1.34）"
   End If
   
   Dim jd As String
   If Form9.Option9.Value = True Then
   jd = "5级"
   End If
   If Form9.Option10.Value = True Then
   jd = "6级"
   End If
   If Form9.Option11.Value = True Then
   jd = "7级"
   End If
   If Form9.Option12.Value = True Then
   jd = "8级"
   End If
   
   Dim fb As String
   If Form9.Option15.Value = True Then
   fb = "对称"
   End If
   If Form9.Option16.Value = True Then
   fb = "非对称"
   End If
   If Form9.Option17.Value = True Then
   fb = "悬臂"
   End If
   
   Dim cl As String
   If Form9.Option21.Value = True Then
   cl = "锻钢"
   End If
   If Form9.Option22.Value = True Then
   cl = "铸铁"
   End If
   If Form9.Option23.Value = True Then
   cl = "球墨铸铁"
   End If
   If Form9.Option24.Value = True Then
   cl = "灰铸铁"
   End If
   
   Dim pcl As String
   If Form9.Option25.Value = True Then
   pcl = "灰铸铁"
   End If
   If Form9.Option26.Value = True Then
   pcl = "球墨铸铁"
   End If
   If Form9.Option27.Value = True Then
   pcl = "铸钢"
   End If
   If Form9.Option28.Value = True Then
   pcl = "锻钢"
   End If
   If Form9.Option29.Value = True Then
   pcl = "夹布塑料"
   End If
   
   







   
   
   Command1.Enabled = True
   Command2.Enabled = True
   Command1.Visible = True
   Command2.Visible = True


   Me.Print
   Me.Print Spc(5); "直齿齿轮校核设计结果如下：（°）"
   Me.Print
   Me.Print
   Me.Print Spc(5); "齿轮参数："
   Me.Print
   Me.Print Spc(5); "齿  轮  模  数："; Spc(5); m
   Me.Print Spc(5); "小 齿 轮 齿 数："; Spc(5); z1
   Me.Print Spc(5); "大 齿 轮 齿 数："; Spc(5); z2
   Me.Print Spc(5); "小 齿 轮 转 距："; Spc(5); t; "n / mm"
   Me.Print Spc(5); "小 齿 轮 转 速："; Spc(5); v; "m / s"
   Me.Print Spc(5); "工  作  寿  命："; Spc(5); sm; "年"
   Me.Print Spc(5); "班          制："; Spc(5); bz; "班制"
   Me.Print Spc(5); "小齿轮弯曲疲劳强度："; Spc(5); wqx; "Mpa"
   Me.Print Spc(5); "小齿轮接触疲劳强度："; Spc(5); jqx; "Mpa"
   Me.Print Spc(5); "大齿轮弯曲疲劳强度："; Spc(5); wqd; "Mpa"
   Me.Print Spc(5); "大齿轮接触疲劳强度："; Spc(5); jqd; "Mpa"
   Me.Print Spc(5); "小齿轮弯曲疲劳寿命系数："; Spc(5); kfnx
   Me.Print Spc(5); "小齿轮弯曲疲劳强度极限："; Spc(5); flimx; "Mpa"
   Me.Print Spc(5); "大齿轮弯曲疲劳寿命系数："; Spc(5); kfnd
   Me.Print Spc(5); "大齿轮弯曲疲劳强度极限："; Spc(5); flimd; "Mpa"
   Me.Print Spc(5); "小齿轮接触疲劳寿命系数："; Spc(5); khnx
   Me.Print Spc(5); "小齿轮接触疲劳强度极限："; Spc(5); hlimx; "Mpa"
   Me.Print Spc(5); "大齿轮接触疲劳寿命系数："; Spc(5); khnd
   Me.Print Spc(5); "大齿轮接触疲劳寿命极限："; Spc(5); hlimd; "Mpa"
   Me.Print Spc(5); "小齿轮弯曲疲劳许用应力："; Spc(5); xwqx; "Mpa"
   Me.Print Spc(5); "小齿轮接触疲劳许用应力："; Spc(5); xjqx; "Mpa"
   Me.Print Spc(5); "大齿轮弯曲疲劳许用应力："; Spc(5); xwqd; "Mpa"
   Me.Print Spc(5); "大齿轮接触疲劳许用应力："; Spc(5); xjqd; "Mpa"
   Me.Print
   Me.Print Spc(5); "齿轮状态："
   Me.Print
   Me.Print Spc(5); "齿轮载荷状态："; Spc(5); zh
   Me.Print Spc(5); "原   动   机："; Spc(5); ydj
   Me.Print Spc(5); "是否表面硬化："; Spc(5); yh
   Me.Print Spc(5); "齿轮表面状态："; Spc(5); bt
   Me.Print Spc(5); "齿轮精度等级："; Spc(5); jd
   Me.Print Spc(5); "相对支承分布："; Spc(5); fb
   Me.Print Spc(5); "齿  轮  材料："; Spc(5); cl
   Me.Print Spc(5); "配对齿轮材料："; Spc(5); pcl
   
   
   
End Sub

Private Sub Form_Load()
'Me.WindowState = 2  '最大化
   Me.BackColor = &HFFFFFF
   Me.ForeColor = &H80000012
   FontSize = 10
   Form2.Hide
   Command1.Enabled = False
   Command2.Enabled = False
   Command1.Visible = False
   Command2.Visible = False
   End Sub