form11.frm

锥齿轮CAD设计

   ElseIf Option6.Value = True Then
      kA = 1.35
   ElseIf Option7.Value = True Then
      kA = 1.5
   ElseIf Option8.Value = True Then
      kA = 1.75
   End If
 End If
 
 If Option3.Value = True Then
   If Option5.Value = True Then
      kA = 1.5
   ElseIf Option6.Value = True Then
      kA = 1.6
   ElseIf Option7.Value = True Then
      kA = 1.75
   ElseIf Option8.Value = True Then
      kA = 2
   End If
 End If
 
 If Option4.Value = True Then
   If Option5.Value = True Then
      kA = 1.75
   ElseIf Option6.Value = True Then
      kA = 1.85
   ElseIf Option7.Value = True Then
      kA = 2
   ElseIf Option8.Value = True Then
      kA = 2.25
   End If
 End If
  '以上为确定KA。
 
 m = Text4.Text
 'b = Text7.Text
 z1 = Text1.Text
 z2 = Text2.Text
 t = Text5.Text
 v = Text6.Text
 zj = Text3.Text
 
 If z1 < 17 Then
Form18.Show
End If

 
 
 
 
 cc = -0.5048 * Log(z1) / Log(10) - 1.144 * Log(m) / Log(10) + 2.852 * Log(30) / Log(10) + 3.32
 c = Int(cc)
 bb = 0.25 * (c - 5) ^ 0.667
 aa = 50 + 56 * (1 - bb)
 kv = (aa / (aa + (220 * v) ^ 0.5)) ^ (-bb)
 
 '以上为确定KV
 
 kha = 1
 kfa = 1
  
 '以上为确定Ka
 
 If Option19.Value = True Then
    If Option15.Value = True Then
       khbbe = 1
    ElseIf Option16.Value = True Then
       khbbe = 1
    ElseIf Option17.Value = True Then
       khbbe = 1.1
    End If
 End If
 
 If Option18.Value = True Then
    If Option15.Value = True Then
       khbbe = 1.1
    ElseIf Option16.Value = True Then
       khbbe = 1.1
    ElseIf Option17.Value = True Then
       khbbe = 1.25
    End If
 End If
 
 If Option20.Value = True Then
    If Option15.Value = True Then
       khbbe = 1.25
    ElseIf Option16.Value = True Then
       khbbe = 1.25
    ElseIf Option17.Value = True Then
       khbbe = 1.5
    End If
 End If
 
    kfb = 1.5 * khbbe
    khb = 1.5 * khbbe
   
   '以上为确定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 Option19.Value = True Then
b = 1.2 * m * z1
End If

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

If Option20.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
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
  
  cr = b / zj
  u = z2 / z1
  
  jq = ((kA * kfa * kfb * kv) * t / cr / (1 - 0.5 * cr) / (1 - 0.5 * cr) / m / z1 / m / z1 / m / z1 / u) ^ 0.5 * 5 * ze
  Text9.Text = jq

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

Private Sub Command3_Click()
Unload Me
Form1.Show

End Sub




Private Sub Form_Load()

Form1.Hide

Text8.Enabled = False
Text9.Enabled = False

Text1.Text = Form4.Text4.Text
Text2.Text = Form4.Text2.Text
Text4.Text = Form4.Text1.Text
Text3.Text = Form4.Text12.Text

'Text7.Text = Int(Form4.Text8.Text)

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

'Text7.Enabled = False

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 Option21_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
Option25.Enabled = True
Option26.Enabled = True
Option27.Enabled = True
Option28.Enabled = True
Option29.Enabled = True


End Sub