form10.frm

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

   End If
   
   If Option19.Value = True Then
    If Option15.Value = True Then
       If Option9.Value = True Then
          khb = 0.99 + 0.31 * (b / m / z1) * (b / m / z1) + 0.12 * 0.001 * b
          h = 2.25 * m
          n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
          kfb = (khb) ^ n
       ElseIf Option10.Value = True Then
          khb = 1 + 0.31 * (b / m / z1) * (b / m / z1) + 0.19 * 0.001 * b
          h = 2.25 * m
          n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
          kfb = (khb) ^ n
       End If
     End If
   End If
   
   If Option19.Value = True Then
    If Option16.Value = True Then
       If Option9.Value = True Then
          khb = 0.99 + 0.31 * (1 + 0.6 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.12 * 0.001 * b
          h = 2.25 * m
          n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
          kfb = (khb) ^ n
       ElseIf Option10.Value = True Then
          khb = 1 + 0.31 * (1 + 0.6 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.19 * 0.001 * b
          h = 2.25 * m
          n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
          kfb = (khb) ^ n
       End If
     End If
   End If
   
   If Option19.Value = True Then
    If Option17.Value = True Then
       If Option9.Value = True Then
          khb = 0.99 + 0.31 * (1 + 6.7 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.12 * 0.001 * b
          h = 2.25 * m
          n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
          kfb = (khb) ^ n
       ElseIf Option10.Value = True Then
          khb = 1 + 0.31 * (1 + 6.7 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.19 * 0.001 * b
          h = 2.25 * m
          n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
          kfb = (khb) ^ n
       End If
     End If
   End If
   
   '以上为确定Kb。
      
   'k=ka*kaa*kv*kb
   


If z1 = 17 Then
yfa = 2.97
ysa = 1.52
End If

If z1 = 18 Then
yfa = 2.91
ysa = 1.53
End If

If z1 = 19 Then
yfa = 2.85
ysa = 1.54
End If

If z1 = 20 Then
yfa = 2.8
ysa = 1.55
End If

If z1 = 21 Then
yfa = 2.76
ysa = 1.56
End If

If z1 = 22 Then
yfa = 2.72
ysa = 1.57
End If

If z1 = 23 Then
yfa = 2.69
ysa = 1.575
End If

If z1 = 24 Then
yfa = 2.65
ysa = 1.58
End If

If z1 = 25 Then
yfa = 2.62
ysa = 1.59
End If

If z1 = 26 Then
yfa = 2.6
ysa = 1.595
End If

If z1 = 27 Then
yfa = 2.57
ysa = 1.6
End If
   
If z1 = 28 Then
yfa = 2.55
ysa = 1.61
End If

If z1 = 29 Then
yfa = 2.53
ysa = 1.62
End If

If z1 = 30 Then
yfa = 2.52
ysa = 1.625
End If

If z1 = 35 Then
yfa = 2.45
ysa = 1.65
End If

If z1 = 40 Then
yfa = 2.4
ysa = 1.67
End If

If z1 = 45 Then
yfa = 2.35
ysa = 1.68
End If

If z1 = 50 Then
yfa = 2.32
ysa = 1.7
End If

If z1 = 60 Then
yfa = 2.28
ysa = 1.73
End If

If z1 = 70 Then
yfa = 2.24
ysa = 1.75
End If

If z1 = 80 Then
yfa = 2.22
ysa = 1.77
End If

If z1 = 90 Then
yfa = 2.2
ysa = 1.78
End If

If z1 = 100 Then
yfa = 2.18
ysa = 1.79
End If

If z1 = 150 Then
yfa = 2.14
ysa = 1.83
End If

If z1 = 200 Then
yfa = 2.12
ysa = 1.865
End If


If z1 > 30 And z1 < 35 Then
yfa = 2.52
ysa = 1.625
End If

If z1 > 35 And z1 < 40 Then
yfa = 2.45
ysa = 1.65
End If

If z1 > 40 And z1 < 45 Then
yfa = 2.4
ysa = 1.67
End If

If z1 > 45 And z1 < 50 Then
yfa = 2.35
ysa = 1.68
End If

If z1 > 50 And z1 < 60 Then
yfa = 2.32
ysa = 1.7
End If

If z1 > 60 And z1 < 70 Then
yfa = 2.28
ysa = 1.73
End If

If z1 > 70 And z1 < 80 Then
yfa = 2.24
ysa = 1.75
End If

If z1 > 80 And z1 < 90 Then
yfa = 2.22
ysa = 1.77
End If

If z1 > 90 And z1 < 100 Then
yfa = 2.2
ysa = 1.78
End If

If z1 > 100 And z1 < 150 Then
yfa = 2.18
ysa = 1.79
End If

If z1 > 150 And z1 < 200 Then
yfa = 2.14
ysa = 1.83
End If

If z1 > 200 Then
yfa = 2.06
ysa = 1.97
End If

'确定b；

If Option15.Value = True Then
b = 1.2 * m * z1
End If

If Option16.Value = True Then
b = 1 * m * z1
End If

If Option17.Value = True Then
b = 0.8 * m * z1
End If





'以上为确定Yfa，Ysa

wq = (kA * kha * khb * kv) * 2 * t * yfa * ysa / b / m / m / z1 / ea
Text8.Text = wq

'弯曲强度计算结束。

If Option21.Value = True Then
   If Option25.Value = True Then
      ze = 162
   ElseIf Option26.Value = True Then
      ze = 181.4
   ElseIf Option27.Value = True Then
      ze = 188.9
   ElseIf Option28.Value = True Then
      ze = 189.8
   ElseIf Option29.Value = True Then
      ze = 56.4
   End If
End If

If Option22.Value = True Then
      Option29.Value = False
      Option28.Value = False
   If Option25.Value = True Then
      ze = 161.4
   ElseIf Option26.Value = True Then
      ze = 180.5
   ElseIf Option27.Value = True Then
      ze = 188
   End If
End If

If Option23.Value = True Then
       Option29.Value = False
       Option28.Value = False
       Option27.Value = False
    If Option25.Value = True Then
       ze = 156.6
    ElseIf Option26.Value = True Then
       ze = 173.9
    End If
 End If
 
 If Option24.Value = True Then
       Option29.Value = False
       Option28.Value = False
       Option27.Value = False
       Option26.Value = False
    If Option25.Value = True Then
    ze = 143.7
    End If
 End If
  
 ' bs = b * 3.1415926 / 180
  'an = 20 * 3.1415926 / 180
  'at = Atn(Tan(an) / Cos(bs))
  'bn = Atn(Tan(bs) * Cos(at))
  'zh = (2 * Cos(bn) / Sin(at) / Cos(at)) ^ 0.5
  
  jq = ((kA * kfa * kfb * kv) * t * 2 * ((z2 / z1) + 1) / b / m / z1 / (z2 / z1) / m / z1) ^ 0.5 * 2.5 * ze
  Text9.Text = jq

  '齿面接触疲劳强度计算结束。
      
End Sub

Private Sub Command2_Click()
Unload Me
Form1.Show

End Sub


Private Sub Option11_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
Option19.Enabled = False
Option20.Enabled = False
Option18.Enabled = True
End Sub

Private Sub Form_Load()


Form1.Hide

Text8.Enabled = False
Text9.Enabled = False

Text3.Text = Form3.Text1.Text
Text5.Text = Form3.Text4.Text
Text7.Text = Form3.Text2.Text
Text2.Text = Form3.Text20.Text
'Text4.Text = Int(Form3.Text13.Text)

'Dim ck As Double
'Dim gd1 As Double
'Dim gd2 As Double
'gd1 = Form3.Text1.Text
'gd2 = Form3.Text4.Text
'ck = gd1 * gd2
'Text4.Text = Int(ck)

'Text4.Enabled = False

End Sub





Private Sub Option12_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
Option18.Enabled = True
End Sub

Private Sub Option22_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
Option28.Enabled = False
Option29.Enabled = False
Option25.Enabled = True
Option26.Enabled = True
Option27.Enabled = True

End Sub





Private Sub Option23_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
Option27.Enabled = False
Option28.Enabled = False
Option29.Enabled = False
Option25.Enabled = True
Option26.Enabled = True
End Sub

Private Sub Option24_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
Option26.Enabled = False
Option27.Enabled = False
Option28.Enabled = False
Option29.Enabled = False
Option25.Enabled = True
End Sub

Private Sub Option9_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
Option18.Enabled = False
Option19.Enabled = True
Option20.Enabled = True


End Sub