form4.frm

很好的齿轮cad参数化设计程序

         Height          =   255
         Left            =   240
         TabIndex        =   26
         Top             =   3360
         Width           =   1335
      End
      Begin VB.Label Label12 
         BackColor       =   &H00FFFFFF&
         Caption         =   "锥      距："
         Height          =   375
         Left            =   240
         TabIndex        =   25
         Top             =   3840
         Width           =   1215
      End
      Begin VB.Label Label13 
         BackColor       =   &H00FFFFFF&
         Caption         =   "齿  根  角："
         Height          =   255
         Left            =   240
         TabIndex        =   24
         Top             =   4320
         Width           =   1335
      End
      Begin VB.Label Label14 
         BackColor       =   &H00FFFFFF&
         Caption         =   "顶  锥  角："
         Height          =   255
         Left            =   240
         TabIndex        =   23
         Top             =   4800
         Width           =   1335
      End
      Begin VB.Label Label15 
         BackColor       =   &H00FFFFFF&
         Caption         =   "根  锥  角："
         Height          =   255
         Left            =   240
         TabIndex        =   22
         Top             =   5280
         Width           =   1215
      End
      Begin VB.Label Label16 
         BackColor       =   &H00FFFFFF&
         Caption         =   "顶      隙："
         Height          =   255
         Left            =   240
         TabIndex        =   21
         Top             =   5760
         Width           =   1215
      End
      Begin VB.Label Label17 
         BackColor       =   &H00FFFFFF&
         Caption         =   "分度圆齿厚："
         Height          =   255
         Left            =   240
         TabIndex        =   20
         Top             =   6240
         Width           =   1335
      End
      Begin VB.Label Label18 
         BackColor       =   &H00FFFFFF&
         Caption         =   "节 圆 直径："
         Height          =   255
         Left            =   240
         TabIndex        =   19
         Top             =   6720
         Width           =   1215
      End
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Exit"
      Height          =   495
      Left            =   2280
      TabIndex        =   0
      Top             =   6600
      Width           =   975
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim m As Single
Dim v As Single
Dim ha As Single
Dim hf As Single
Dim d As Single
Dim da As Single
Dim df As Single
Dim r As Single
Dim cf As Single
Dim va As Single
Dim vf As Single
Dim c As Single
Dim s As Single
Dim zv As Single
Dim b As Single
Dim ca As Single
Dim z1 As Single
Dim z2 As Single
Dim g As Double
Dim t As Single

Const pi As Single = 3.1415926

z2 = Text2.Text
m = Text1.Text
z1 = Text4.Text

If z1 < 17 Then
Form18.Show
End If



v = Atn(z1 / z2)
Text5.Text = v * 180 / pi

ha = 1 * m
Text6.Text = ha

hf = (1 + 0.2) * m
Text7.Text = hf

d = z2 * m
Text8.Text = d

vs = 3.14 * v / 180
da = d + 2 * ha * Cos(vs)
Text9.Text = da

df = d - 2 * hf * Cos(vs)
Text10.Text = df

zv = z2 / Cos(vs)
Text11.Text = zv

g = z1 * z1 + z2 * z2
r = Sqr(g) * m / 2
Text12.Text = r

t = hf / r
cf = Atn(t)
Text13.Text = cf * 180 / pi

va = v + cf
Text14.Text = va * 180 / pi

vf = v - cf
Text15.Text = vf * 180 / pi

c = 0.2 * m
Text16.Text = c

s = pi * m / 2
Text17.Text = s

b = Int(r / 3)
Text18.Text = b

Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True
Text13.Enabled = True
Text14.Enabled = True
Text15.Enabled = True
Text16.Enabled = True
Text17.Enabled = True
Text18.Enabled = True
'Text19.Enabled = True


End Sub

Private Sub Command2_Click()
Dim m As Single
Dim v As Single
Dim ha As Single
Dim hf As Single
Dim d As Single
Dim da As Single
Dim df As Single
Dim r As Single
Dim cf As Single
Dim va As Single
Dim vf As Single
Dim c As Single
Dim s As Single
Dim zv As Single
Dim b As Single
Dim ca As Single
Dim z1 As Single
Dim z2 As Single
Dim g As Double
Dim t As Single

Const pi As Single = 3.1415926

z2 = Text2.Text
m = Text1.Text
z1 = Text4.Text

If z1 < 17 Then
Form18.Show
End If


v = Atn(z1 / z2)
Text5.Text = v * 180 / pi

ha = 1 * m
Text6.Text = ha

hf = (1 + 0.2) * m
Text7.Text = hf

d = z1 * m
Text8.Text = d

vs = 3.1415926 * v / 180
da = d + 2 * ha * Cos(vs)
Text9.Text = da

df = d - 2 * hf * Cos(vs)
Text10.Text = df

zv = z1 / Cos(vs)
Text11.Text = zv

g = z1 * z1 + z2 * z2
r = Sqr(g) * m / 2
Text12.Text = r

t = hf / r
cf = Atn(t)
Text13.Text = cf * 180 / pi

va = v + cf
Text14.Text = va * 180 / pi

vf = v - cf
Text15.Text = vf * 180 / pi

c = 0.2 * m
Text16.Text = c

s = pi * m / 2
Text17.Text = s

b = Int(r / 3)
Text18.Text = b

Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True
Text13.Enabled = True
Text14.Enabled = True
Text15.Enabled = True
Text16.Enabled = True
Text17.Enabled = True
Text18.Enabled = True
'Text19.Enabled = True


End Sub

Private Sub Command3_Click()
Me.Hide
Form11.Show
End Sub

Private Sub Command4_Click()
Unload Me
Form1.Show
End Sub

Private Sub Command5_Click()
Form7.Show

End Sub

Private Sub Form_Load()

Form1.Hide



Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Text15.Enabled = False
Text16.Enabled = False
Text17.Enabled = False
Text18.Enabled = False



End Sub