form1.dsr

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

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form1 
   Caption         =   "机械加工工时计算器"
   ClientHeight    =   6870
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5550
   Icon            =   "Form1.dsx":0000
   OleObjectBlob   =   "Form1.dsx":164A
   StartUpPosition =   2  '屏幕中心
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public jieguo As Double




Private Sub OptionButton1_Click()
d = TextBox1.Text
z = TextBox2.Text
t = (9.4 * d + 1670) / 1000 * z + 8
TextBox9.Text = t
End Sub

Private Sub OptionButton10_Click()
d = TextBox3.Text
l = TextBox4.Text
t = ((0.2496 * d + 2.06) * l + 1300) / 1000
TextBox9.Text = t
jieguo = t
End Sub



Private Sub OptionButton11_Click()
d = TextBox3.Text
l = TextBox4.Text
t = ((0.166 * d + 2.62) * l + 1300) / 1000
TextBox9.Text = t
jieguo = t
End Sub

Private Sub OptionButton12_Click()
d = TextBox3.Text
l = TextBox4.Text
t = ((0.2952 * d - 0.18) * l + 1300) / 1000
TextBox9.Text = t
jieguo = t
End Sub


Private Sub OptionButton13_Click()
d = TextBox3.Text
l = TextBox4.Text
t = ((0.2724 * d - 3.26) * l + 1300) / 1000
TextBox9.Text = t
jieguo = t
End Sub

Private Sub OptionButton14_Click()
d = TextBox3.Text
l = TextBox4.Text
t = ((0.28 * d - 1.02) * l + 1300) / 1000
TextBox9.Text = t
jieguo = t
End Sub

Private Sub OptionButton15_Click()
d = TextBox3.Text
l = TextBox4.Text
t = ((0.4472 * d - 3.82) * l + 1300) / 1000
TextBox9.Text = t
jieguo = t
End Sub


Private Sub OptionButton16_Click()
d = TextBox3.Text
l = TextBox4.Text
t = ((0.4092 * d - 4.1) * l + 1300) / 1000
TextBox9.Text = t
jieguo = t
End Sub

Private Sub OptionButton17_Click()
d = TextBox3.Text
l = TextBox4.Text
t = ((0.4168 * d - 3.82) * l + 1300) / 1000
TextBox9.Text = t
jieguo = t
End Sub

Private Sub OptionButton18_Click()
TextBox9.Text = jieguo
End Sub

Private Sub OptionButton19_Click()
TextBox9.Text = jieguo * 3
End Sub

Private Sub OptionButton2_Click()
d = TextBox1.Text
z = TextBox2.Text
t = (9.48 * d + 3670) / 1000 * z + 8
TextBox9.Text = t
End Sub

Private Sub OptionButton20_Click()
TextBox9.Text = jieguo * 1.3
End Sub

Private Sub OptionButton21_Click()
TextBox9.Text = jieguo * 3.9
End Sub

Private Sub OptionButton22_Click()
l = TextBox4.Text
s = TextBox5.Text
t = (22 * s + 90) / 1000 + 2.25 * s + 4
TextBox9.Text = t
End Sub

Private Sub OptionButton23_Click()
l = TextBox4.Text
s = TextBox5.Text
t = ((22 * s + 90) * l / 1000 + 2.25 * s + 4) * 1.2
TextBox9.Text = t
End Sub

Private Sub OptionButton24_Click()
l = TextBox4.Text
s = TextBox5.Text
t = ((22 * s + 90) / 1000 + 2.25 * s + 4) * 1.5
TextBox9.Text = t
End Sub

Private Sub OptionButton25_Click()
l = TextBox4.Text
s = TextBox5.Text
t = ((22 * s + 90) / 1000 + 2.25 * s + 4) * 1.2 * 1.5
TextBox9.Text = t
End Sub

Private Sub OptionButton26_Click()
d = TextBox3.Text
l = TextBox4.Text
s = TextBox5.Text
t = ((l * d) / (540 * s) + 0.2) * 3
TextBox9.Text = t

End Sub

Private Sub OptionButton27_Click()
d = TextBox6.Text
b = TextBox7.Text
t1 = TextBox8.Text
t = ((Sqr(d) / 20) * Sqr(b * t1) + 1.3) / 0.8
TextBox9.Text = t
End Sub

Private Sub OptionButton28_Click()
TextBox9.Text = TextBox9.Text * 1

End Sub

Private Sub OptionButton29_Click()
TextBox9.Text = TextBox9.Text * 0.9
End Sub

Private Sub OptionButton3_Click()
d = TextBox1.Text
z = TextBox2.Text
t = (11.6 * d + 4960) / 1000 * z + 8
TextBox9.Text = t
End Sub

Private Sub OptionButton30_Click()
TextBox9.Text = TextBox9.Text * 1.2
End Sub

Private Sub OptionButton31_Click()
TextBox9.Text = TextBox9.Text * 1.7
End Sub


Private Sub OptionButton4_Click()
d = TextBox1.Text
z = TextBox2.Text
t = (11.7 * d + 7680) / 1000 * z + 8
TextBox9.Text = t
End Sub

Private Sub OptionButton5_Click()
d = TextBox1.Text
z = TextBox2.Text
t = (12.4 * d + 9660) / 1000 * z + 8
TextBox9.Text = t
End Sub

Private Sub OptionButton55_Click()

End Sub

Private Sub OptionButton6_Click()
d = TextBox1.Text
z = TextBox2.Text
t = (15.4 * d + 9870) / 1000 * z + 8
TextBox9.Text = t
End Sub

Private Sub OptionButton7_Click()
d = TextBox1.Text
z = TextBox2.Text
t = (17 * d + 11000) / 1000 * z + 8
TextBox9.Text = t
End Sub


Private Sub OptionButton8_Click()
d = TextBox3.Text
l = TextBox4.Text
t = ((0.2952 * d + 5.7) * l + 1300) / 1000
TextBox9.Text = t
jieguo = t
End Sub

Private Sub OptionButton9_Click()
d = TextBox3.Text
l = TextBox4.Text
t = ((0.2724 * d + 4.58) * l + 1300) / 1000
TextBox9.Text = t
jieguo = t
End Sub


Private Sub CheckBox2_Click()
d = TextBox17.Text
e = TextBox18.Text
If TextBox18.Text = "" Then sum1 = (22 * d + 63) / 1000 Else sum1 = (22 * d + 63 - 18 * e - 52) / 1000
If TextBox18.Text = "" Then sum2 = (22 * d + 107) / 1000 Else sum2 = (22 * d + 107 - 18 * e + 89) / 1000
If TextBox18.Text = "" Then sum3 = (0.0923 * d ^ 2 + 1200) / 1000 Else sum3 = (0.0923 * d ^ 2 + 726 - 0.0923 * e ^ 2) / 1000
If CheckBox2.Value = True Then TextBox19.Text = sum1
If CheckBox2.Value = True Then TextBox20.Text = sum2
If CheckBox2.Value = True Then TextBox21.Text = sum3
End Sub

Private Sub OptionButton32_Click()
If TextBox10.Text <> "" Then h = TextBox10.Text Else h = 10
If TextBox11.Text <> "" Then g = TextBox11.Text Else g = 95
If g > (10 * h) Then k1 = (g / h) ^ 2 * 0.0006 + 1 Else k1 = 1
 d = TextBox12.Text
 l = TextBox13.Text
sum1 = (0.192 * d * l * k1 + 800) / 1000
TextBox19.Text = sum1
TextBox20.Text = sum1 * 1.1
TextBox21.Text = sum1 * 1.21
End Sub

Private Sub OptionButton41_Click()
d = TextBox12.Text
l = TextBox13.Text
TextBox19.Text = ((0.128 * l + 0.206) * d + 250 * d ^ 0.2) / 1000 * 1.74
TextBox20.Text = ((0.15 * d + 1.1) * l + 2.2 * d + 1000) / 1000 * 1.74
TextBox21.Text = ((0.14 * d + 1.2) * l + 2 * d + 2000) / 1000 * 1.7
End Sub

Private Sub OptionButton42_Click()
d = TextBox12.Text
l = TextBox13.Text
TextBox19.Text = ((0.128 * l + 0.206) * d + 250 * d ^ 0.2) / 1000 * 2
TextBox20.Text = ((0.15 * d + 1.1) * l + 2.2 * d + 1000) / 1000 * 1.95
TextBox21.Text = ((0.14 * d + 1.2) * l + 2 * d + 2000) / 1000 * 2.4
End Sub

Private Sub OptionButton43_Click()
d = TextBox12.Text
l = TextBox13.Text
TextBox19.Text = ((0.128 * l + 0.206) * d + 250 * d ^ 0.2) / 1000 * 2.2
TextBox20.Text = ((0.15 * d + 1.1) * l + 2.2 * d + 1000) / 1000 * 2.2
TextBox21.Text = ((0.14 * d + 1.2) * l + 2 * d + 2000) / 1000 * 3
End Sub

Private Sub OptionButton44_Click()
d = TextBox12.Text
l = TextBox13.Text
TextBox19.Text = ((0.426 * d + 6.38) * l + 12.36 * d + 10000) / 1000
TextBox20.Text = ((0.426 * d + 6.38) * l + 12.36 * d + 12000) / 1000
TextBox21.Text = ((0.104 * d + 7.566) * l + 20000) / 1000
End Sub

Private Sub OptionButton45_Click()
d = TextBox12.Text
l = TextBox13.Text
TextBox19.Text = ((0.426 * d + 6.38) * l + 12.36 * d + 10000) / 1000 * 1.65
TextBox20.Text = ((0.426 * d + 6.38) * l + 12.36 * d + 12000) / 1000 * 1.6
TextBox21.Text = ((0.104 * d + 7.566) * l + 20000) / 1000 * 1.7
End Sub

Private Sub OptionButton46_Click()
d = TextBox12.Text
l = TextBox13.Text
TextBox19.Text = ((0.426 * d + 6.38) * l + 12.36 * d + 10000) / 1000 * 2.45
TextBox20.Text = ((0.426 * d + 6.38) * l + 12.36 * d + 12000) / 1000 * 2.45
TextBox21.Text = ((0.104 * d + 7.566) * l + 20000) / 1000 * 2.5
End Sub

Private Sub OptionButton47_Click()
d = TextBox12.Text
l = TextBox13.Text
TextBox19.Text = ((0.426 * d + 6.38) * l + 12.36 * d + 10000) / 1000 * 3.2
TextBox20.Text = ((0.426 * d + 6.38) * l + 12.36 * d + 12000) / 1000 * 3.5
TextBox21.Text = ((0.104 * d + 7.566) * l + 20000) / 1000 * 3.7
End Sub

Private Sub OptionButton48_Click()
d = TextBox12.Text
l = TextBox13.Text
TextBox19.Text = ((0.46 * d + 6.89) * l + 13.35 * d + 20000) / 1000
TextBox20.Text = ((0.46 * d + 6.89) * l + 13.35 * d + 22000) / 1000
TextBox21.Text = ((0.33 * d + 9) * l + 27000) / 1000
End Sub

Private Sub OptionButton49_Click()
d = TextBox12.Text
l = TextBox13.Text
TextBox19.Text = ((0.46 * d + 6.89) * l + 13.35 * d + 20000) / 1000 * 1.65
TextBox20.Text = ((0.46 * d + 6.89) * l + 13.35 * d + 22000) / 1000 * 1.65
TextBox21.Text = ((0.33 * d + 9) * l + 27000) / 1000 * 1.9
End Sub

Private Sub OptionButton50_Click()
d = TextBox12.Text
l = TextBox13.Text
TextBox19.Text = ((0.46 * d + 6.89) * l + 13.35 * d + 20000) / 1000 * 2.45
TextBox20.Text = ((0.46 * d + 6.89) * l + 13.35 * d + 22000) / 1000 * 2.45
TextBox21.Text = ((0.33 * d + 9) * l + 27000) / 1000 * 3
End Sub

Private Sub OptionButton33_Click()
If TextBox10.Text <> "" Then h = TextBox10.Text Else h = 10
If TextBox11.Text <> "" Then g = TextBox11.Text Else g = 95
If g > (10 * h) Then k1 = (g / h) ^ 2 * 0.0006 + 1 Else k1 = 1
 d = TextBox12.Text
 l = TextBox13.Text
sum1 = (0.192 * d * l * k1 + 800) / 1000
TextBox19.Text = sum1
TextBox20.Text = sum1 * 1.1 * 1.75
TextBox21.Text = sum1 * 1.21 * 1.85
End Sub

Private Sub OptionButton51_Click()
d = TextBox12.Text
l = TextBox13.Text
TextBox19.Text = ((0.46 * d + 6.89) * l + 13.35 * d + 20000) / 1000 * 3
TextBox20.Text = ((0.46 * d + 6.89) * l + 13.35 * d + 22000) / 1000 * 3
TextBox21.Text = ((0.33 * d + 9) * l + 27000) / 1000 * 3.5
End Sub

Private Sub OptionButton52_Click()
d = TextBox12.Text
l = TextBox13.Text
If l > 15 Then k1 = 50 * (((l - 15) / Sqr(d)) ^ 1.45) Else k1 = 0
t = (Sqr(Sqr(d)) * 15 * l + 250 + k1) / 1000
TextBox19.Text = t
TextBox20.Text = t
TextBox21.Text = t
End Sub

Private Sub OptionButton53_Click()
d = TextBox14.Text
b = TextBox15.Text
t = TextBox16.Text
If b < 8 Then sum1 = 2 * ((0.256 * d + 4.87) * 2.6 * t * Sqr(Sqr(b)) + 250) / 1000 * 2 Else sum1 = 2 * ((0.256 * d + 4.87) * 0.1875 * t * b + 500) / 1000
If CheckBox1.Value = True Then TextBox19.Text = sum1 * 1.3 Else TextBox19.Text = sum1
If CheckBox1.Value = True Then TextBox20.Text = sum1 * 1.3 Else TextBox20.Text = sum1
If CheckBox1.Value = True Then TextBox21.Text = sum1 * 1.3 Else TextBox21.Text = sum1
End Sub

Private Sub OptionButton54_Click()
d = TextBox14.Text
b = TextBox15.Text
t = TextBox16.Text
If b < 8 Then sum1 = 2 * ((0.256 * d + 4.87) * 2.6 * t * Sqr(Sqr(b)) + 250) / 1000 * 2 Else sum1 = 2 * ((0.256 * d + 4.87) * 0.1875 * t * b + 500) / 1000
If CheckBox1.Value = True Then TextBox19.Text = sum1 * 1.3 * 1.4 Else TextBox19.Text = sum1 * 1.4
If CheckBox1.Value = True Then TextBox20.Text = sum1 * 1.3 * 1.4 Else TextBox20.Text = sum1 * 1.4
If CheckBox1.Value = True Then TextBox21.Text = sum1 * 1.3 * 1.4 Else TextBox21.Text = sum1 * 1.4
End Sub

Private Sub OptionButton56_Click()
TextBox19.Text = TextBox19.Text * 0.9
TextBox20.Text = TextBox20.Text * 0.9
TextBox21.Text = TextBox21.Text * 0.9
End Sub

Private Sub OptionButton57_Click()
TextBox19.Text = TextBox19.Text * 1.2
TextBox20.Text = TextBox20.Text * 1.2
TextBox21.Text = TextBox21.Text * 1.2
End Sub

Private Sub OptionButton58_Click()
TextBox19.Text = TextBox19.Text * 1.7
TextBox20.Text = TextBox20.Text * 1.7
TextBox21.Text = TextBox21.Text * 1.7
End Sub

Private Sub OptionButton34_Click()
If TextBox10.Text <> "" Then h = TextBox10.Text Else h = 10
If TextBox11.Text <> "" Then g = TextBox11.Text Else g = 95
If g > (10 * h) Then k1 = (g / h) ^ 2 * 0.0006 + 1 Else k1 = 1
 d = TextBox12.Text
 l = TextBox13.Text
sum1 = (0.192 * d * l * k1 + 800) / 1000
TextBox19.Text = sum1 * 2.05
TextBox20.Text = sum1 * 1.1 * 2.1
TextBox21.Text = sum1 * 1.21 * 2.4
End Sub

Private Sub OptionButton35_Click()
If TextBox10.Text <> "" Then h = TextBox10.Text Else h = 10
If TextBox11.Text <> "" Then g = TextBox11.Text Else g = 95
If g > (10 * h) Then k1 = (g / h) ^ 2 * 0.0006 + 1 Else k1 = 1
 d = TextBox12.Text
 l = TextBox13.Text
sum1 = (0.192 * d * l * k1 + 800) / 1000
TextBox19.Text = sum1 * 3.4
TextBox20.Text = sum1 * 1.1 * 3.5
TextBox21.Text = sum1 * 1.21 * 4
End Sub

Private Sub OptionButton36_Click()
If TextBox10.Text <> "" Then h = TextBox10.Text Else h = 10
If TextBox11.Text <> "" Then g = TextBox11.Text Else g = 28
If g >= (3 * h) Then k1 = (g / h) ^ 2 * 0.00635 + 1 Else k1 = 1
d = TextBox12.Text
l = TextBox13.Text
sum1 = (0.204 * d * l * k1 + 800) / 1000
TextBox19.Text = sum1
TextBox20.Text = sum1 * 1.1
TextBox21.Text = sum1 * 1.21
End Sub

Private Sub OptionButton37_Click()
If TextBox10.Text <> "" Then h = TextBox10.Text Else h = 10
If TextBox11.Text <> "" Then g = TextBox11.Text Else g = 28
If g >= (3 * h) Then k1 = (g / h) ^ 2 * 0.00635 + 1 Else k1 = 1
d = TextBox12.Text
l = TextBox13.Text
sum1 = (0.204 * d * l * k1 + 800) / 1000
TextBox19.Text = sum1 * 1.9
TextBox20.Text = sum1 * 1.1 * 2
TextBox21.Text = sum1 * 1.21 * 2
End Sub

Private Sub OptionButton38_Click()
If TextBox10.Text <> "" Then h = TextBox10.Text Else h = 10
If TextBox11.Text <> "" Then g = TextBox11.Text Else g = 28
If g >= (3 * h) Then k1 = (g / h) ^ 2 * 0.00635 + 1 Else k1 = 1
d = TextBox12.Text
l = TextBox13.Text
sum1 = (0.204 * d * l * k1 + 800) / 1000
TextBox19.Text = sum1 * 3.1
TextBox20.Text = sum1 * 1.1 * 3.4
TextBox21.Text = sum1 * 1.21 * 3.4
End Sub

Private Sub OptionButton39_Click()
If TextBox10.Text <> "" Then h = TextBox10.Text Else h = 10
If TextBox11.Text <> "" Then g = TextBox11.Text Else g = 28
If g >= (3 * h) Then k1 = (g / h) ^ 2 * 0.00635 + 1 Else k1 = 1
d = TextBox12.Text
l = TextBox13.Text
sum1 = (0.204 * d * l * k1 + 800) / 1000
TextBox19.Text = sum1 * 3.9
TextBox20.Text = sum1 * 1.1 * 4
TextBox21.Text = sum1 * 1.21 * 4
End Sub

Private Sub OptionButton40_Click()
d = TextBox12.Text
l = TextBox13.Text
TextBox19.Text = ((0.128 * l + 0.206) * d + 250 * d ^ 0.2) / 1000
TextBox20.Text = ((0.15 * d + 1.1) * l + 2.2 * d + 1000) / 1000
TextBox21.Text = ((0.14 * d + 1.2) * l + 2 * d + 2000) / 1000
End Sub


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

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

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

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

Private Sub OptionButton72_Click()
l = TextBox22.Text
b = TextBox23.Text
t = TextBox24.Text
t1 = (0.14 * l * b * t + 2700) / 1000
TextBox29.Text = t1
End Sub

Private Sub OptionButton73_Click()
l = TextBox22.Text
b = TextBox23.Text
t = TextBox24.Text
t1 = (0.14 * l * b * t + 2700) / 1000 * 1.42
TextBox29.Text = t1
End Sub

Private Sub OptionButton74_Click()
l = TextBox22.Text
h = TextBox23.Text
t = (0.55 * l * h + 1000) / 1000
TextBox29.Text = t
End Sub

Private Sub OptionButton75_Click()
l = TextBox22.Text
b = TextBox23.Text
t = TextBox24.Text
If b < 5 Then t1 = 0.34 * t + 1.74 Else t1 = ((18.7 * b + 35) * t + 2150) / 1000
TextBox29.Text = t1
End Sub

Private Sub OptionButton76_Click()
l = TextBox22.Text
b = TextBox23.Text
t = TextBox24.Text
If b < 5 Then t1 = 0.688 * t + 1.99 Else t1 = ((18.1 * b + 419) * t + 3200) / 1000
TextBox29.Text = t1
End Sub

Private Sub OptionButton77_Click()
l = TextBox22.Text
h = TextBox23.Text
t = ((2.16 * h + 86) * l + 4500) / 1000
TextBox29.Text = t
End Sub

Private Sub OptionButton78_Click()
l = TextBox22.Text
h = TextBox23.Text
t = ((2.9 * h + 94.6) * l + 4495) / 1000
TextBox29.Text = t
End Sub

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

Private Sub OptionButton82_Click()
d = TextBox26.Text
l = TextBox27.Text
s = TextBox28.Text
t = (0.016 * d ^ 2 * l + 24.4 * l + 1.158 * d ^ 2 + 750) / 1000
Select Case s