form1.dsr

机械加工工时计算器：根据国家标准的机械加工工时计算和工厂实际经验在VB中编制的

  Case 0 To 10
      TextBox29.Text = t * s
  Case 11 To 20
      TextBox29.Text = t * s * 0.9
  Case 21 To 30
      TextBox29.Text = t * s * 0.85
  Case 31 To 40
      TextBox29.Text = t * s * 0.8
  Case Else
      TextBox29.Text = t * s * 0.5
  End Select

End Sub



Private Sub OptionButton89_Click()
d = TextBox26.Text
l = TextBox27.Text
s = TextBox28.Text
t = 1.2 * (0.286 * d * l + 8.4 * l + d + 160) / 1000
Select Case s
  Case 0 To 2
      TextBox29.Text = t * s * 1.5
  Case 3 To 20
      TextBox29.Text = t * s * 1.2
  Case 21 To 40
      TextBox29.Text = t * s
   Case Else
      TextBox29.Text = t * s * 0.8
  End Select

End Sub

Private Sub OptionButton83_Click()
d = TextBox26.Text
l = TextBox27.Text
s = TextBox28.Text
t = (0.0172 * d ^ 2 * l + 11.8 * l + 0.3514 * d ^ 2 + 388) / 1000
Select Case s
  Case 0 To 2
      TextBox29.Text = t * s * 1.5
  Case 3 To 20
      TextBox29.Text = t * s * 1.2
  Case 21 To 40
      TextBox29.Text = t * s
   Case Else
      TextBox29.Text = t * s * 0.8
  End Select

End Sub

Private Sub OptionButton84_Click()
d = TextBox26.Text
l = TextBox27.Text
s = TextBox28.Text
t = 2.3 * (0.016 * d ^ 2 * l + 24.4 * l + 1.158 * d ^ 2 + 750) / 1000
Select Case s
  Case 0 To 10
      TextBox29.Text = t * s
  Case 11 To 20
      TextBox29.Text = t * s * 0.9
  Case 21 To 30
      TextBox29.Text = t * s * 0.85
  Case 31 To 40
      TextBox29.Text = t * s * 0.8
  Case Else
      TextBox29.Text = t * s * 0.5
  End Select

End Sub

Private Sub OptionButton96_Click()
d = TextBox26.Text
s = TextBox28.Text
t = (14 * d + 90) / 1000
Select Case s
  Case 0 To 2
      TextBox29.Text = t * s * 1.5
  Case 3 To 20
      TextBox29.Text = t * s * 1.2
  Case 21 To 40
      TextBox29.Text = t * s
   Case Else
      TextBox29.Text = t * s * 0.8
  End Select

End Sub

Private Sub OptionButton91_Click()
TextBox29.Text = TextBox29.Text * 0.9
End Sub

Private Sub OptionButton92_Click()
TextBox29.Text = TextBox29.Text * 1.25
End Sub

Private Sub OptionButton93_Click()
TextBox29.Text = TextBox29.Text * 1.8
End Sub

Private Sub OptionButton94_Click()
TextBox29.Text = TextBox29.Text * 1.3
End Sub

Private Sub OptionButton62_Click()
l = TextBox22.Text
b = TextBox23.Text
t = (0.49 * l * b + 1100) / 1000 * 1.48
TextBox29.Text = t
End Sub

Private Sub OptionButton95_Click()
TextBox29.Text = TextBox29.Text * 1.1
End Sub

Private Sub OptionButton85_Click()
d = TextBox26.Text
l = TextBox27.Text
s = TextBox28.Text
t = (11 * l - 0.086 * d ^ 2 * l + 1.82 * d ^ 2 + 533) / 1000
Select Case s
  Case 0 To 2
      TextBox29.Text = t * s * 1.5
  Case 3 To 20
      TextBox29.Text = t * s * 1.2
  Case 21 To 40
      TextBox29.Text = t * s
   Case Else
      TextBox29.Text = t * s * 0.8
  End Select

End Sub

Private Sub OptionButton86_Click()
d = TextBox26.Text
l = TextBox27.Text
s = TextBox28.Text
t = (4.8 * Sqr(d) * l - 6 * l + 77.88 * Sqr(d) + 202) / 1000
Select Case s
  Case 0 To 2
      TextBox29.Text = t * s * 1.5
  Case 3 To 20
      TextBox29.Text = t * s * 1.2
  Case 21 To 40
      TextBox29.Text = t * s
   Case Else
      TextBox29.Text = t * s * 0.8
  End Select

End Sub

Private Sub OptionButton87_Click()
d = TextBox26.Text
s = TextBox28.Text
t = (35 * d + 255) / 1000
Select Case s
  Case 0 To 2
      TextBox29.Text = t * s * 1.5
  Case 3 To 20
      TextBox29.Text = t * s * 1.2
  Case 21 To 40
      TextBox29.Text = t * s
   Case Else
      TextBox29.Text = t * s * 0.8
  End Select

End Sub

Private Sub OptionButton88_Click()
d = TextBox26.Text
l = TextBox27.Text
s = TextBox28.Text
t = 1.2 * (3.67 * Sqr(d) * l + 9.13 * l + 6.43 * d + 195) / 1000
Select Case s
  Case 0 To 2
      TextBox29.Text = t * s * 1.5
  Case 3 To 20
      TextBox29.Text = t * s * 1.2
  Case 21 To 40
      TextBox29.Text = t * s
   Case Else
      TextBox29.Text = t * s * 0.8
  End Select

End Sub

Private Sub OptionButton63_Click()
l = TextBox22.Text
b = TextBox23.Text
t = (0.49 * l * b + 1100) / 1000 * 2.44
TextBox29.Text = t
End Sub

Private Sub OptionButton64_Click()
l = TextBox22.Text
h = TextBox23.Text
t = (0.62 * l * h + 1600) / 1000 * 0.73
TextBox29.Text = t
End Sub

Private Sub OptionButton65_Click()
l = TextBox22.Text
h = TextBox23.Text
t = (0.62 * l * h + 1600) / 1000
TextBox29.Text = t
End Sub

Private Sub OptionButton66_Click()
l = TextBox22.Text
h = TextBox23.Text
t = (0.62 * l * h + 1600) / 1000 * 1.36
TextBox29.Text = t
End Sub

Private Sub OptionButton67_Click()
l = TextBox22.Text
h = TextBox23.Text
t = (0.62 * l * h + 1600) / 1000 * 2.24
TextBox29.Text = t
End Sub

Private Sub OptionButton68_Click()
l = TextBox22.Text
b = TextBox23.Text
t = (0.6 * l * b + 2600) / 1000 * 0.73
TextBox29.Text = t
End Sub


Private Sub OptionButton97_Click()
l = TextBox31.Text
b = TextBox30.Text
If b <= 4 Then t = (2.2 / b ^ 3 + 0.06) * l + 2.6 Else t = (0.0012 * b + 0.046) * l + 2.7
TextBox34.Text = t
End Sub

Private Sub OptionButton106_Click()
TextBox34.Text = TextBox34.Text * 1.3
End Sub

Private Sub OptionButton107_Click()
TextBox34.Text = TextBox34.Text * 0.8
End Sub

Private Sub OptionButton108_Click()
TextBox34.Text = TextBox34.Text * 1.2
End Sub

Private Sub OptionButton109_Click()
TextBox34.Text = TextBox34.Text * 1.7
End Sub

Private Sub OptionButton110_Click()
d = TextBox35.Text
l = TextBox36.Text
d1 = TextBox37.Text
l1 = TextBox38.Text
t = (0.01 * l / d + 1) * (0.001 * d1 * l1 - 0.00553 * l1 + 0.00499 * d1 - 0.1686)
TextBox34.Text = t
End Sub

Private Sub OptionButton111_Click()
d = TextBox35.Text
l = TextBox36.Text
d1 = TextBox37.Text
l1 = TextBox38.Text
t = (0.0105 * l / d + 1.05) * (0.001 * d1 * l1 - 0.00553 * l1 + 0.00499 * d1 - 0.1686)
TextBox34.Text = t
End Sub

Private Sub OptionButton112_Click()
d = TextBox37.Text
h = TextBox38.Text
t = 0.15 + (0.040365 * h * d + 13.04 * h + 0.3248 * d + 346.7) / 1000
TextBox34.Text = t
End Sub

Private Sub OptionButton113_Click()
d = TextBox37.Text
h = TextBox38.Text
t = 0.15 + ((0.040365 * h * d + 13.04 * h + 0.3248 * d + 346.7) / 1000) * (1540 + 0.02806 * h * d) / 1000
TextBox34.Text = t
End Sub

Private Sub OptionButton114_Click()
d = TextBox37.Text
l = TextBox38.Text
t = (0.04 * l / d + 1) * (0.43247 * d * l + 4809.66) / 1000 * 0.4 / 0.15
TextBox34.Text = t
End Sub

Private Sub OptionButton115_Click()
d = TextBox37.Text
l = TextBox38.Text
t = (0.04 * l / d + 1) * (0.411878 * d * l + 4809.66) / 1000 * 0.4 / 0.2
TextBox34.Text = t
End Sub

Private Sub OptionButton98_Click()
l = TextBox31.Text
b = TextBox30.Text
If b <= 4 Then t = (4.19 / b ^ 3 + 0.1) * l + 3 Else t = (0.0019 * b + 0.077) * l + 2.9
TextBox34.Text = t
End Sub

Private Sub OptionButton117_Click()
TextBox34.Text = TextBox34.Text * 1.2
End Sub

Private Sub OptionButton118_Click()
TextBox34.Text = TextBox34.Text * 2
End Sub

Private Sub OptionButton99_Click()
l = TextBox31.Text
b = TextBox30.Text
t1 = TextBox32.Text
If b <= 4 Then t = (17.6 * l * t1 + 1700) / 1000 Else t = (0.037 * l + 0.0028 * b ^ 2 + 1.124) * t1 ^ (2 / 7) * 0.7
TextBox34.Text = t
End Sub

Private Sub OptionButton100_Click()
l = TextBox31.Text
b = TextBox30.Text
t1 = TextBox32.Text
If b <= 4 Then t = (17.6 * l * t1 + 1700) / 1000 Else t = (0.037 * l + 0.0028 * b ^ 2 + 1.124) * t1 ^ (2 / 7)
TextBox34.Text = t
End Sub

Private Sub OptionButton101_Click()
l = TextBox31.Text
b = TextBox30.Text
t1 = TextBox32.Text
If b <= 4 Then t = (17.6 * l * t1 + 1700) / 1000 Else t = (0.037 * l + 0.0028 * b ^ 2 + 1.124) * t1 ^ (2 / 7) * 1.2
TextBox34.Text = t
End Sub

Private Sub OptionButton102_Click()
l = TextBox31.Text
b = TextBox30.Text
d = TextBox33.Text
t = (l + 0.5 * b + 0.5 + 2) / 35.71 * (b / d)
TextBox34.Text = t
End Sub

Private Sub OptionButton103_Click()
l = TextBox31.Text
b = TextBox30.Text
d = TextBox33.Text
t = (l + 0.5 * b + 0.5 + 2) / 35.71 * (b / d) * 1.5
TextBox34.Text = t
End Sub

Private Sub OptionButton104_Click()
l = TextBox31.Text
b = TextBox30.Text
d = TextBox33.Text
t = (l + 0.5 * b + 0.5 + 2) / 35.71 * (b / d) * 2
TextBox34.Text = t
End Sub


Private Sub OptionButton119_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.24 * d * l + 2040) / 1000
 TextBox49.Text = t
End Sub

Private Sub OptionButton128_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.36 * d * l + 5088) / 1000
 TextBox49.Text = t
End Sub

Private Sub OptionButton129_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.36 * d * l + 5088) / 1000
 TextBox49.Text = t * 1.27
End Sub

Private Sub OptionButton130_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.36 * d * l + 5088) / 1000
 TextBox49.Text = t * 1.52
End Sub

Private Sub OptionButton131_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.43 * d * l + 6100) / 1000
 TextBox49.Text = t * 0.7
End Sub

Private Sub OptionButton132_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.43 * d * l + 6100) / 1000
 TextBox49.Text = t
End Sub

Private Sub OptionButton133_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.43 * d * l + 6100) / 1000
 TextBox49.Text = t * 1.27
End Sub

Private Sub OptionButton134_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.43 * d * l + 6100) / 1000
 TextBox49.Text = t * 1.52
End Sub

Private Sub OptionButton135_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.24 * d * l + 1680) / 1000
 TextBox49.Text = t
End Sub

Private Sub OptionButton136_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.24 * d * l + 1680) / 1000
 TextBox49.Text = t * 1.54
End Sub

Private Sub OptionButton137_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.24 * d * l + 1680) / 1000
 TextBox49.Text = t * 2.15
End Sub

Private Sub OptionButton120_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.24 * d * l + 2040) / 1000
 TextBox49.Text = t * 1.45
End Sub

Private Sub OptionButton138_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.24 * d * l + 1680) / 1000
 TextBox49.Text = t * 3
End Sub

Private Sub OptionButton148_Click()
TextBox49.Text = TextBox49.Text * 0.85
End Sub

Private Sub OptionButton152_Click()
TextBox49.Text = TextBox49.Text * 1.7
End Sub

Private Sub OptionButton151_Click()
TextBox49.Text = TextBox49.Text * 1.2
End Sub

Private Sub OptionButton150_Click()
TextBox49.Text = TextBox49.Text * 0.9
End Sub

Private Sub OptionButton139_Click()
 d = TextBox41.Text
 b = TextBox42.Text
 s = TextBox43.Text
 t = (0.062 * d * b * s + 10520) / 1000
 TextBox49.Text = t
End Sub

Private Sub OptionButton140_Click()
 d = TextBox41.Text
 b = TextBox42.Text
 s = TextBox43.Text
 t = (0.062 * d * b * s + 10520) / 1000
 TextBox49.Text = t * 1.05
End Sub

Private Sub OptionButton141_Click()
 d = TextBox41.Text
 b = TextBox42.Text
 s = TextBox43.Text
 t = (0.062 * d * b * s + 10520) / 1000
 TextBox49.Text = t * 1.21
End Sub

Private Sub OptionButton121_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.24 * d * l + 2040) / 1000
 TextBox49.Text = t * 1.94
End Sub

Private Sub OptionButton142_Click()
 d = TextBox44.Text
 b = TextBox45.Text
 s = TextBox46.Text
 t = (0.018 * d * b * s + 3960) / 1000
 TextBox49.Text = t
End Sub

Private Sub OptionButton143_Click()
 d = TextBox47.Text
 r = TextBox48.Text
 t = (1.25 * d * r + 2880) / 1000
 TextBox49.Text = t
End Sub

Private Sub OptionButton144_Click()
 d = TextBox47.Text
 r = TextBox48.Text
 t = (1.25 * d * r + 2880) / 1000
 TextBox49.Text = t * 1.2
End Sub

Private Sub OptionButton145_Click()
 d = TextBox47.Text
 r = TextBox48.Text
 t = (1.25 * d * r + 2880) / 1000
 TextBox49.Text = t * 1.77
End Sub

Private Sub OptionButton146_Click()
 d = TextBox47.Text
 r = TextBox48.Text
 t = (1.25 * d * r + 2880) / 1000
 TextBox49.Text = t * 1.8
End Sub

Private Sub OptionButton122_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.24 * d * l + 2040) / 1000
 TextBox49.Text = t * 2.47
End Sub

Private Sub OptionButton123_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.34 * d * l + 2880) / 1000
 TextBox49.Text = t
End Sub

Private Sub OptionButton124_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.34 * d * l + 2880) / 1000
 TextBox49.Text = t * 1.54
End Sub

Private Sub OptionButton125_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.34 * d * l + 2880) / 1000
 TextBox49.Text = t * 2.15
End Sub

Private Sub OptionButton126_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.34 * d * l + 2880) / 1000
 TextBox49.Text = t * 3
End Sub

Private Sub OptionButton127_Click()
 d = TextBox39.Text
 l = TextBox40.Text
 t = (0.36 * d * l + 5088) / 1000
 TextBox49.Text = t * 0.7
End Sub