form3.dsr

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

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








Private Sub OptionButton1_Click()
 d = TextBox1.Text
 h = TextBox2.Text
 t = ((0.1 * h + 2) * d + 60 * h - 40) / 1000
 TextBox21.Text = t
End Sub

Private Sub OptionButton10_Click()
 l = TextBox10.Text
 d = TextBox11.Text
 If d < 80 Then t = ((0.494 * (160 - d) - 12.53) * l + 9.26 * (160 - d) + 2700) / 1000
 If d >= 80 Then t = ((0.494 * d - 12.53) * l + 9.26 * d + 2700) / 1000
 TextBox21.Text = t * 1.58
End Sub

Private Sub OptionButton11_Click()
 l = TextBox10.Text
 d = TextBox11.Text
 If d < 80 Then t = ((0.494 * (160 - d) - 12.53) * l + 9.26 * (160 - d) + 2700) / 1000
 If d >= 80 Then t = ((0.494 * d - 12.53) * l + 9.26 * d + 2700) / 1000
 TextBox21.Text = t * 1.88
End Sub

Private Sub OptionButton12_Click()
 l = TextBox10.Text
 d = TextBox11.Text
 If d < 80 Then t = ((0.494 * (160 - d) - 12.53) * l + 9.26 * (160 - d) + 2700) / 1000
 If d >= 80 Then t = ((0.494 * d - 12.53) * l + 9.26 * d + 2700) / 1000
 TextBox21.Text = t * 3.2
End Sub

Private Sub OptionButton13_Click()
 l = TextBox7.Text
 b = TextBox8.Text
 s = TextBox9.Text
 t = ((29.6 * l + 22.4 * b * b + 99) * Sqr(s)) / 1000
 TextBox21.Text = t
End Sub

Private Sub OptionButton14_Click()
 l = TextBox7.Text
 b = TextBox8.Text
 s = TextBox9.Text
 t = ((29.6 * l + 22.4 * b * b + 99) * Sqr(s)) / 1000
 TextBox21.Text = t * 1.2
End Sub

Private Sub OptionButton15_Click()
 l = TextBox7.Text
 b = TextBox8.Text
 s = TextBox9.Text
 t = ((29.6 * l + 22.4 * b * b + 99) * Sqr(s)) / 1000
 TextBox21.Text = t * 1.4
End Sub

Private Sub OptionButton16_Click()
 l = TextBox12.Text
 d = TextBox13.Text
 t = ((0.96 * d - 32.21) * l + 8.31 * d + 3100) / 1000
 TextBox21.Text = t
End Sub

Private Sub OptionButton17_Click()
 l = TextBox12.Text
 d = TextBox13.Text
 t = ((0.96 * d - 32.21) * l + 8.31 * d + 3100) / 1000
 TextBox21.Text = t * 1.4
End Sub

Private Sub OptionButton18_Click()
 l = TextBox12.Text
 d = TextBox13.Text
 t = ((0.96 * d - 32.21) * l + 8.31 * d + 3100) / 1000
 TextBox21.Text = t * 1.79
End Sub

Private Sub OptionButton19_Click()
 l = TextBox12.Text
 d = TextBox13.Text
 t = ((0.96 * d - 32.21) * l + 8.31 * d + 3100) / 1000
 TextBox21.Text = t * 3.1
End Sub

Private Sub OptionButton2_Click()
 d = TextBox1.Text
 h = TextBox2.Text
 t = ((0.1 * h + 2) * d + 60 * h - 40) / 1000
 TextBox21.Text = t * 1.42
End Sub

Private Sub OptionButton20_Click()
 l = TextBox14.Text
 d = TextBox15.Text
 t = ((0.16 * d + 8.38) * l + 5.5 * d + 300) / 1000
 TextBox21.Text = t
End Sub

Private Sub OptionButton21_Click()
 l = TextBox14.Text
 d = TextBox15.Text
 t = ((0.16 * d + 8.38) * l + 5.5 * d + 300) / 1000
 TextBox21.Text = t * 1.3
End Sub

Private Sub OptionButton22_Click()
 l = TextBox14.Text
 d = TextBox15.Text
 t = ((0.16 * d + 8.38) * l + 5.5 * d + 300) / 1000
 TextBox21.Text = t * 2.07
End Sub

Private Sub OptionButton23_Click()
 b = TextBox16.Text
 d = TextBox17.Text
 s = TextBox18.Text
 If b < 5 Then t = (0.34 * b * s * d + 2200) * 1.3 / 1000
 If (b >= 5 And b <= 8) Then t = (0.244 * b * s * d + 2200) * 1.3 / 1000
 If b > 8 Then t = (0.24 * b * s * d + 3800) * 1.3 / 1000
 TextBox21.Text = t
End Sub

Private Sub OptionButton24_Click()
 l = TextBox19.Text
 d = TextBox20.Text
 t = ((0.02 * d * d + 5.6) * l + 9 * d + 1000 + (0.039 * d * d + 4 * (l / d) * (l / d))) / 1000
 TextBox21.Text = t
End Sub

Private Sub OptionButton25_Click()
 l = TextBox19.Text
 d = TextBox20.Text
 t = ((0.96 * d - 5.84) * l + 14.4 * d + 1700) / 1000
 TextBox21.Text = t
End Sub

Private Sub OptionButton27_Click()
TextBox21.Text = TextBox21.Text * 1.25
End Sub

Private Sub OptionButton28_Click()
TextBox21.Text = TextBox21.Text * 1.6
End Sub

Private Sub OptionButton29_Click()
TextBox21.Text = TextBox21.Text * 2
End Sub

Private Sub OptionButton3_Click()
 l = CVar(TextBox3.Text)
 b = CVar(TextBox4.Text)
 t = ((0.028 * l * b) + (2.87 * l) + (7.62 * b) + 320) / 1000
 TextBox21.Text = t
End Sub


Private Sub OptionButton4_Click()
 l = TextBox3.Text
 b = TextBox4.Text
 t = (0.028 * l * b + 2.87 * l + 7.62 * b + 320) / 1000
 TextBox21.Text = t * 1.3
End Sub

Private Sub OptionButton5_Click()
 l = TextBox5.Text
 d = TextBox6.Text
 t = ((0.438 * d - 12.28) * l + 5.26 * d + 2600) / 1000
 TextBox21.Text = t
End Sub

Private Sub OptionButton6_Click()
 l = TextBox5.Text
 d = TextBox6.Text
 t = ((0.438 * d - 12.28) * l + 5.26 * d + 2600) / 1000
 TextBox21.Text = t * 1.4
End Sub

Private Sub OptionButton7_Click()
 l = TextBox5.Text
 d = TextBox6.Text
 t = ((0.438 * d - 12.28) * l + 5.26 * d + 2600) / 1000
 TextBox21.Text = t * 3.1
End Sub

Private Sub OptionButton8_Click()
 l = TextBox5.Text
 d = TextBox6.Text
 t = ((0.438 * d - 12.28) * l + 5.26 * d + 2600) / 1000
 TextBox21.Text = t * 3.2
End Sub

Private Sub OptionButton83_Click()
l = TextBox45.Text
c = TextBox46.Text
TextBox47.Text = l / 0.25 / 60 * c
End Sub

Private Sub OptionButton84_Click()
l = TextBox50.Text
s = TextBox51.Text
r = TextBox48.Text
r1 = TextBox49.Text
d = r - r1
TextBox52.Text = ((l + 20) + 0.5 * d + 2.5) / 35 * 2.5 * 2 + 10
TextBox53.Text = (((l + 20) + 0.5 * 30 + 2.5) / 35 * 30 / 25 * 2.5 + 10) + (((l + 20) + 0.5 * 20 + 2.5) / 35 * 30 / 25 * 2.5 + 10)
TextBox54.Text = ((s + 20) + 0.5 * 25 + 2.5) / 35 * 2.5 * 2 + 10

End Sub

Private Sub OptionButton9_Click()
 l = TextBox10.Text
 d = TextBox11.Text
 If d < 80 Then t = ((0.494 * (160 - d) - 12.53) * l + 9.26 * (160 - d) + 2700) / 1000
 If d >= 80 Then t = ((0.494 * d - 12.53) * l + 9.26 * d + 2700) / 1000
 TextBox21.Text = t
End Sub



Private Sub OptionButton30_Click()
 l = TextBox22.Text
 b = TextBox23.Text
 t = (0.07 * l * b + 4000) / 1000
 TextBox39.Text = t
End Sub

Private Sub OptionButton39_Click()
 l = TextBox26.Text
 b = TextBox27.Text
 s = TextBox28.Text
 t = ((0.008 * b + 0.65) * l * s + 6500) / 1000
 TextBox39.Text = t * 1.37
End Sub

Private Sub OptionButton40_Click()
 l = TextBox26.Text
 b = TextBox27.Text
 s = TextBox28.Text
 t = ((0.008 * b + 0.65) * l * s + 6500) / 1000
 TextBox39.Text = t * 2
End Sub

Private Sub OptionButton41_Click()
 l = TextBox29.Text
 b = TextBox30.Text
 s = TextBox31.Text
 h = TextBox32.Text
 t = ((0.008 * b + 0.65) * l * s) / 1000 + ((0.016 * b + 1.18) * l * h + 24800) / 1000
 TextBox39.Text = t
End Sub

Private Sub OptionButton42_Click()
 l = TextBox29.Text
 b = TextBox30.Text
 s = TextBox31.Text
 h = TextBox32.Text
 t = ((0.008 * b + 0.65) * l * s) / 1000 + ((0.016 * b + 1.18) * l * h + 24800) / 1000
 TextBox39.Text = t * 1.3
End Sub

Private Sub OptionButton43_Click()
TextBox39.Text = TextBox39.Text * 1.3
End Sub

Private Sub OptionButton44_Click()
TextBox39.Text = TextBox39.Text * 0.9
End Sub

Private Sub OptionButton45_Click()
TextBox39.Text = TextBox39.Text * 0.75
End Sub

Private Sub OptionButton46_Click()
TextBox39.Text = TextBox39.Text * 0.8
End Sub

Private Sub OptionButton48_Click()
TextBox39.Text = TextBox39.Text * 1.2
End Sub

Private Sub OptionButton31_Click()
 l = TextBox22.Text
 b = TextBox23.Text
 t = (0.07 * l * b + 4000) / 1000
 TextBox39.Text = t * 1.15
End Sub

Private Sub OptionButton49_Click()
TextBox39.Text = TextBox39.Text * 1.1
End Sub

Private Sub OptionButton50_Click()
TextBox39.Text = TextBox39.Text * 1.18
End Sub

Private Sub OptionButton51_Click()
TextBox39.Text = TextBox39.Text * 1.25
End Sub

Private Sub OptionButton52_Click()
 l = TextBox33.Text
 m = TextBox34.Text
 z = TextBox35.Text
 If z <= 25 Then t = ((0.002635 * m + 0.0185) * l + (0.002 * m * m + 0.208)) * z
 If (z > 25 And z <= 35) Then t = ((0.00025 * m * m + 0.018) * l + (0.0184 * m * m + 0.1331)) * z
 If z > 35 Then t = ((0.002686 * m + 0.00712) * l + (0.01531 * m * m + 0.1056)) * z
 TextBox39.Text = t
End Sub

Private Sub OptionButton53_Click()
 l = TextBox33.Text
 m = TextBox34.Text
 z = TextBox35.Text
 If z <= 25 Then t = ((0.002635 * m + 0.0185) * l + (0.002 * m * m + 0.208)) * z
 If (z > 25 And z <= 35) Then t = ((0.00025 * m * m + 0.018) * l + (0.0184 * m * m + 0.1331)) * z
 If z > 35 Then t = ((0.002686 * m + 0.00712) * l + (0.01531 * m * m + 0.1056)) * z
 TextBox39.Text = t * 1.24
End Sub

Private Sub OptionButton54_Click()
 l = TextBox33.Text
 m = TextBox34.Text
 z = TextBox35.Text
 If z <= 25 Then t = ((0.002635 * m + 0.0185) * l + (0.002 * m * m + 0.208)) * z
 If (z > 25 And z <= 35) Then t = ((0.00025 * m * m + 0.018) * l + (0.0184 * m * m + 0.1331)) * z
 If z > 35 Then t = ((0.002686 * m + 0.00712) * l + (0.01531 * m * m + 0.1056)) * z
 TextBox39.Text = t * 1.43
End Sub

Private Sub OptionButton55_Click()
TextBox39.Text = TextBox39.Text * 0.6
End Sub

Private Sub OptionButton56_Click()
TextBox39.Text = TextBox39.Text * 0.8
End Sub

Private Sub OptionButton61_Click()
 l = TextBox36.Text
 m = TextBox37.Text
 z = TextBox38.Text
 If z <= 40 Then t = ((0.1034 * m * m - 0.08415) * z - 0.02) * 0.9 Else t = ((0.179 * m * m - 0.296) * z - 0.01) * 0.9
 TextBox39.Text = t * 0.7
End Sub

Private Sub OptionButton32_Click()
 l = TextBox22.Text
 b = TextBox23.Text
 t = (0.07 * l * b + 4000) / 1000
 TextBox39.Text = t * 1.53
End Sub

Private Sub OptionButton62_Click()
 l = TextBox36.Text
 m = TextBox37.Text
 z = TextBox38.Text
 If z <= 40 Then t = ((0.1034 * m * m - 0.08415) * z - 0.02) * 0.9 Else t = ((0.179 * m * m - 0.296) * z - 0.01) * 0.9
 TextBox39.Text = t * 0.85
End Sub

Private Sub OptionButton63_Click()
 l = TextBox36.Text
 m = TextBox37.Text
 z = TextBox38.Text
 If z <= 40 Then t = ((0.1034 * m * m - 0.08415) * z - 0.02) * 0.9 Else t = ((0.179 * m * m - 0.296) * z - 0.01) * 0.9
 TextBox39.Text = t
End Sub

Private Sub OptionButton64_Click()
TextBox39.Text = TextBox39.Text * 0.8
End Sub


Private Sub OptionButton66_Click()
TextBox39.Text = TextBox39.Text * 1.2
End Sub

Private Sub OptionButton33_Click()
 l = TextBox22.Text
 b = TextBox23.Text
 t = (0.07 * l * b + 4000) / 1000
 TextBox39.Text = t * 1.95
End Sub

Private Sub OptionButton34_Click()
 l = TextBox24.Text
 b = TextBox25.Text
 t = (0.3 * l * b + 1120) / 1000
 TextBox39.Text = t
End Sub

Private Sub OptionButton35_Click()
 l = TextBox24.Text
 b = TextBox25.Text
 t = (0.3 * l * b + 1120) / 1000
 TextBox39.Text = t * 1.7
End Sub

Private Sub OptionButton36_Click()
 l = TextBox24.Text
 b = TextBox25.Text
 t = (0.3 * l * b + 1120) / 1000
 TextBox39.Text = t * 2.04
End Sub

Private Sub OptionButton37_Click()
 l = TextBox24.Text
 b = TextBox25.Text
 t = (0.3 * l * b + 1120) / 1000
 TextBox39.Text = t * 2.58
End Sub

Private Sub OptionButton38_Click()
 l = TextBox26.Text
 b = TextBox27.Text
 s = TextBox28.Text
 t = ((0.008 * b + 0.65) * l * s + 6500) / 1000
 TextBox39.Text = t
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "机床 C620 C630  C650"
ComboBox1.AddItem "一般 3-10  10  15-25"
ComboBox1.AddItem "中等 15    20  25-35"
ComboBox1.AddItem "复杂 30    40   50"

ComboBox2.AddItem "简单  36"
ComboBox2.AddItem "中等  42"
ComboBox2.AddItem "复杂  60"


ComboBox3.AddItem "三爪装卸           15"
ComboBox3.AddItem "平台上不紧固       3"
ComboBox3.AddItem "平台上用螺丝紧固   10"
ComboBox3.AddItem "虎钳上装校紧固     15"
ComboBox3.AddItem "胎膜具上装校紧固   20"
ComboBox3.AddItem "组合夹具上装校紧固 30"
ComboBox3.AddItem "平台上用螺丝装校   15"

ComboBox4.AddItem "机床  T68  T611  T612"
ComboBox4.AddItem "一般   20   35    40"
ComboBox4.AddItem "中等   50   60    70"
ComboBox4.AddItem "复杂   80   90    100"


ComboBox5.AddItem "准终                15"
ComboBox5.AddItem "换砂轮D≥500       240"
ComboBox5.AddItem "换砂轮D＞300       180"
ComboBox5.AddItem "换砂轮D≤300       120"
ComboBox5.AddItem "换冷却液磨床长>2000 60"
ComboBox5.AddItem "换冷却液磨床长<2000 40"
ComboBox5.AddItem "换卡盘或胎具        20"

ComboBox6.AddItem "换砂轮              30"
ComboBox6.AddItem "换冷却液            40"
ComboBox6.AddItem "换胎夹具(用吊车)    30"
ComboBox6.AddItem "换胎夹具(不用吊车)  10"

ComboBox7.AddItem "滚直齿   卡盘    45"
ComboBox7.AddItem "滚直齿   心轴    50"
ComboBox7.AddItem "滚直齿   支架    120"
ComboBox7.AddItem "滚斜齿   卡盘    60"
ComboBox7.AddItem "滚斜齿   心轴    70"
ComboBox7.AddItem "滚斜齿   支架    120"
ComboBox7.AddItem "插  齿   一联    30"
ComboBox7.AddItem "插  齿   二联    50"


ComboBox8.AddItem "一般 3-10"
ComboBox8.AddItem "复杂 15"

ComboBox9.AddItem "一般 10"
ComboBox9.AddItem "中等 20"
ComboBox9.AddItem "复杂 40 "

ComboBox10.AddItem "一般 15"
ComboBox10.AddItem "复杂 30"

ComboBox11.AddItem "10-20"

ComboBox12.AddItem "一般 35"
ComboBox12.AddItem "中等 45"
ComboBox12.AddItem "复杂 60"
End Sub



Private Sub OptionButton67_Click()
g = TextBox40.Text
TextBox41.Text = 0.3 * Sqr(g)
TextBox42.Text = 0.3 * Sqr(g) + 0.6
End Sub

Private Sub OptionButton74_Click()
TextBox41.Text = TextBox41.Text * 1.5
TextBox42.Text = TextBox42.Text * 1.5
End Sub

Private Sub OptionButton75_Click()
TextBox41.Text = TextBox41.Text * 2
TextBox42.Text = TextBox42.Text * 2
End Sub

Private Sub OptionButton76_Click()
TextBox41.Text = TextBox41.Text * 3
TextBox42.Text = TextBox42.Text * 3
End Sub

Private Sub OptionButton77_Click()
g = TextBox43.Text
TextBox44.Text = 0.13 * g + 1.2
End Sub

Private Sub OptionButton78_Click()
g = TextBox43.Text
TextBox44.Text = 0.1 * g + 6
End Sub

Private Sub OptionButton68_Click()
g = TextBox40.Text
TextBox41.Text = 0.3 * Sqr(g)
TextBox42.Text = 0.22 * Sqr(g) + 0.4
End Sub

Private Sub OptionButton69_Click()
g = TextBox40.Text
TextBox41.Text = 0.2 * Sqr(g) + 0.4
TextBox42.Text = 0.3 * Sqr(g) + 0.9
End Sub

Private Sub OptionButton81_Click()
g = TextBox40.Text
TextBox41.Text = 0.3 * Sqr(g) + 0.7
TextBox42.Text = 0.22 * Sqr(g) + 1.5
End Sub

Private Sub OptionButton82_Click()
g = TextBox40.Text
TextBox41.Text = 0.3 * Sqr(g) + 1.1
TextBox42.Text = 0.3 * Sqr(Sqr(g)) + 2
End Sub

Private Sub OptionButton80_Click()
g = TextBox40.Text
TextBox41.Text = 0.3 * Sqr(g) + 1.2
TextBox42.Text = 0.3 * Sqr(Sqr(g)) + 2.2

End Sub

Private Sub OptionButton71_Click()
TextBox41.Text = TextBox41.Text * 1.5
TextBox42.Text = TextBox42.Text * 1.5
End Sub

Private Sub OptionButton72_Click()
TextBox41.Text = TextBox41.Text * 2.5
TextBox42.Text = TextBox42.Text * 2.5
End Sub