代碼.pdf

大連大學 DALIAN UNIVERSITY 20182018 屆畢業(yè)論文（設計）屆畢業(yè)論文（設計） 題目名稱： 計算機輔助拉刀設計 程序代碼 所 在 學 院所 在 學 院 ： 機械工程學院 專專 業(yè)（班級）業(yè)（班級）： 機英 141 學 生 姓 名學 生 姓 名 ： 趙驪 指 導 教 師指 導 教 師 ： 于靖華 評閱人評閱人： 呂鵬翔 院院 長長 ： 吳蒙華 計算機輔助拉刀設計 總計：正 文 49 頁 每 頁 63 行 代 碼 2916 行 指導教師： 于靖華 評 閱 人： 呂鵬翔 完成日期： 2018 年 5 月 20 日 計算機輔助拉刀設計 1 初始窗體（初始窗體（初始窗體初始窗體.frm.frm） Private Sub Command1_Click()輪切直徑.Show End Sub Private Sub 鍵槽拉刀各刀齒直徑_Click() 鍵槽直徑.Show End Sub Private Sub 加工條件及方案比較參數_Click() 輪切式.Show End Sub Private Sub 鍵槽拉刀參數計算_Click() jiancao.Show End Sub Private Sub 鍵槽拉刀已知條件_Click() 鍵槽已知.Show End Sub Private Sub 拉刀參數計算_Click() putong.Show End Sub Private Sub 輪切式矩形花鍵拉刀其余部分計算_Click() 其余部分計算.Show End Sub Private Sub 輪切式矩形花鍵拉刀設計方案比較_Click() 方案比較.Show End Sub Private Sub 普通圓孔拉刀各刀齒直徑_Click() 圓孔簡圖.Show End Sub Private Sub 確定一把拉刀的可能性_Click() 拉刀可能性.Show End Sub Private Sub 已知加工條件_Click() 圓孔已知.Show End Sub Private Sub 圓形齒和花鍵齒_Click() 兩種齒.Show End Sub Private Sub 圓形齒花鍵齒和倒角齒_Click() 三種齒.Show End Sub Private Sub 圓形粗切齒部分計算_Click() 圓形粗切齒部分.Show End Sub 圓孔已知（圓孔已知圓孔已知（圓孔已知.frm.frm） Private Sub Combo1_Click() If Combo1.Text = “鋼“ Then Combo2.Enabled = True Combo3.Enabled = False ElseIf Combo1.Text = “灰鑄鐵“ Then Combo2.Enabled = False Combo3.Enabled = True Else Combo3.Enabled = False Combo2.Enabled = False End If End Sub Private Sub Command1_Click() putong.Show 圓孔已知.Hide End Sub Private Sub Command17_Click() If Combo4.Text = “L6110“ Then Text5.Text = “98000“ Text50.Text = “125“ 計算機輔助拉刀設計 2 Text51.Text = “60“ Text52.Text = “100“ Text53.Text = “60“ Text54.Text = “30“ Text55.Text = “1400“ End If If Combo4.Text = “L6110-1“ Then Text5.Text = “98000“ Text50.Text = “150“ Text51.Text = “70“ Text52.Text = “100“ Text53.Text = “70“ Text54.Text = “30“ Text55.Text = “1250“ End If If Combo4.Text = “L6120“ Then Text5.Text = “196000“ Text50.Text = “200“ Text51.Text = “75“ Text52.Text = “150“ Text53.Text = “75“ Text54.Text = “35“ Text55.Text = “1600“ End If If Combo4.Text = “L6120-1“ Then Text5.Text = “196000“ Text50.Text = “200“ Text51.Text = “80“ Text52.Text = “150“ Text53.Text = “90“ Text54.Text = “40“ Text55.Text = “1600“ End If If Combo4.Text = “L6140“ Then Text5.Text = “392000“ Text50.Text = “260“ Text51.Text = “100“ Text52.Text = “180“ Text53.Text = “120“ Text54.Text = “50“ Text55.Text = “2000“ End If End Sub Private Sub Command2_Click() Dim ctr As Object For Each ctl In 圓孔已知 If TypeOf ctl Is TextBox Then ctl.Text = “ End If Next End Sub Private Sub Form_Load() Combo1.AddItem “鋼“, 0 Combo1.AddItem “灰鑄鐵“, 1 Combo1.AddItem “可鍛鑄鐵“, 2 Combo1.AddItem “銅、鋁及鎂合金、巴氏合金“, 3 Combo1.AddItem “青銅、黃銅“, 4 Combo2.AddItem “小于等于 197HB“, 0 Combo2.AddItem “198-229HB“, 1 Combo2.AddItem “大于 229HB“, 2 Combo3.AddItem “小于等于 180HB“, 0 Combo3.AddItem “大于 180HB“, 1 Combo4.AddItem “L6110“, 0 機床型號選擇 計算機輔助拉刀設計 3 Combo4.AddItem “L6110-1“, 1 Combo4.AddItem “L6120“, 2 Combo4.AddItem “L6120-1“, 3 Combo4.AddItem “L6140“, 4 End Sub Private Sub 示例_Click() Text1.Text = “40“ Text2.Text = “38.8“ Text3.Text = “80“ Text16.Text = “0.027“ Text43.Text = “0“ End Sub Putong(putong.frm)Putong(putong.frm) Private Sub Command1_Click() Text4.Text = “選取 W18Cr4V 柄部 40Cr“ Text58.Text = “-2，+2“ Text59.Text = “-0.5，+0.5“ Text26.Text = “-0.25,+0.25“ Text36.Text = “20“ Text8.Text = “0.05“ If 圓孔已知.Combo1.Text = “鋼“ And 圓孔已知.Combo2.Text = “小于等于 197HB“ Then 查找 前角 Text6.Text = “16-18“ End If If 圓孔已知.Combo1.Text = “鋼“ And 圓孔已知.Combo2.Text = “198-229HB“ Then Text6.Text = “15“ End If If 圓孔已知.Combo1.Text = “鋼“ And 圓孔已知.Combo2.Text = “大于 229HB“ Then Text6.Text = “12-10“ End If If 圓孔已知.Combo1.Text = “灰鑄鐵“ And 圓孔已知.Combo3.Text = “小于等于 180HB“ Then Text6.Text = “10-8“ End If If 圓孔已知.Combo1.Text = “灰鑄鐵“ And 圓孔已知.Combo3.Text = “大于 180HB“ Then Text6.Text = “5“ End If If 圓孔已知.Combo1.Text = “銅、鋁及鎂合金、巴氏合金“ Then Text6.Text = “20“ End If If 圓孔已知.Combo1.Text = “可鍛鑄鐵“ Then Text6.Text = “10“ End If If 圓孔已知.Combo1.Text = “青銅、黃銅“ Then Text6.Text = “5“ End If Dim e As Integer e = Val(圓孔已知.Text3.Text) If e 10 And e 12 And e 14 And e 16 And e 19 And e 20 And e 25 And e 12 And e 33 And e 36 And e 40 And e 45 And e 49 And e 54 And e 60 And e 70 And e 77 And e 83 And e 90 And e 100 And e 111 And e 125 And e 143 And e 0 And a1 3 And a1 6 And a1 10 And a1 18 And a1 30 And a1 50 And a1 80 And a1 120 And a1 180 And a1 250 And a1 315 And a1 400 And a1 0 And a1 3 And a1 6 And a1 10 And a1 14 And a1 18 And a1 24 And a1 30 And a1 40 And a1 50 And a1 80 And a1 120 And a1 180 And a1 250 And a1 315 And a1 400 And a1 0 And a1 3 And a1 6 And a1 10 And a1 14 And a1 18 And a1 24 And a1 30 And a1 40 And a1 50 And a1 80 And a1 120 And a1 180 And a1 250 And a1 315 And a1 400 And a1 0 Then b = b + 1 End If Next a For a = 0 To 8 If Val(拉刀簡圖.Text4(a) 0 Then c = c + 1 End If Next a For a = 0 To 7 If Val(拉刀簡圖.Text6(a) 0 Then d = d + 1 End If Next a Text27.Text = b * Val(Text10.Text) + (c * Val(Text46.Text) Text28.Text = d * Val(Text46.Text) End Sub Private Sub Command12_Click() 分屑槽.Show End Sub Private Sub Command13_Click() 前導部.Show End Sub Private Sub Command14_Click() Text37.Text = Val(Text35.Text) + Val(Text56.Text) + Val(圓孔已知.Text3.Text) + Val(Text36.Text) + 20 End Sub Private Sub Command15_Click() Text38.Text = Val(Text37.Text) + Val(Text27.Text) + Val(Text28.Text) + Val(Text33.Text) End Sub Private Sub Command16_Click() If Val(Text9.Text) = 0 Then MsgBox “除數不能為 0“ Exit Sub End If Text24.Text = Round(Val(Text23.Text) / (2 * Val(Text9.Text) + 2, 0) 切削齒齒數 Text44.Text = Round(Val(Text23.Text) / (2 * Val(Text9.Text) + 5, 0) Text35.Text = Val(圓孔已知.Text51.Text) + Val(圓孔已知.Text54.Text) End Sub Private Sub Command18_Click() If 0.9 * Val(圓孔已知.Text5.Text) Val(Text19.Text) Then Text21.Text = 0.9 * Val(圓孔已知.Text5.Text) Else: MsgBox “不合格“ 計算機輔助拉刀設計 9 End If End Sub Private Sub Command19_Click() 拉刀后角.Show Module1.s = True End Sub Private Sub Command2_Click() 圓孔齒升量.Show End Sub Private Sub Command20_Click() Text17.Text = Val(圓孔已知.Text2.Text) - 2 * Val(Text40.Text) End Sub Private Sub Command21_Click() 拉刀簡圖.Show End Sub Private Sub Command3_Click() Module1.Y = True rongxie.Show End Sub Private Sub Command4_Click() Module1.z = True rongxiecao.Show End Sub Private Sub Command5_Click() Module1.a = True yuanladaodaobing.Show End Sub Private Sub Command6_Click() qiexueli.Show End Sub Private Sub Command7_Click() zuixiaoduanmianlayingli.Show End Sub Private Sub Command8_Click() Dim ctr As Object For Each ctl In putong If TypeOf ctl Is TextBox Then ctl.Text = “ End If Next End Sub Private Sub Command9_Click() 校準齒.Show Module1.m = True End Sub Private Sub Form_Load() Module1.X = False End Sub 拉刀簡圖（拉拉刀簡圖（拉刀刀簡圖簡圖. .frmfrm） Private Sub Command1_Click() 圓孔簡圖.Show End Sub Private Sub Form_Load() Dim zz As Double For zz = 0 To 37 Text2(zz) = “ Next zz For zz = 0 To 8 Text4(zz) = “ Next zz For zz = 0 To 7 Text6(zz) = “ Next zz 計算機輔助拉刀設計 10 Text8.Text = putong.Text7.Text Text9.Text = putong.Text59.Text Text13.Text = putong.Text63.Text Text14.Text = putong.Text26.Text Dim a As Double a = Val(putong.Text9.Text) Dim b As Double b = Val(putong.Text23.Text) / 2 Dim c As Variant c = (b - (0.8 * a) - (0.5 * a) - (0.3 * a) Dim e As Double If a = 0 Then MsgBox “除數不能為 0“ Exit Sub End If e = c / a Dim g As Integer g = Int(e) Dim d As Double d = e - g Dim f As Double Dim b3() As Variant Dim z As Double For z = 0 To (Val(putong.Text25.Text) - 1) Text6(z) = Val(putong.Text22.Text) Next z For z = 0 To g Text2(z) = Val(圓孔已知.Text2.Text) + (2 * z * a) 粗切齒直徑 Next z Dim b4 As Double b4 = Val(圓孔已知.Text2.Text) + (2 * g * a) 最后一個粗切齒直徑 If d = 0.8 Then f = d - 0.8 Dim b2 As Double b2 = f * a b3() = Array(b4 + (0.8 * 2 * a), b4 + (0.8 * 2 * a) + (0.8 * 2 * a), (b4 + (0.8 * 2 * a) + (0.5 * 2 * a) + (0.8 * 2 * a), (b4 + (0.8 * 2 * a) + (0.5 * 2 * a) + (0.3 * 2 * a) + (0.8 * 2 * a), (b4 + (0.8 * 2 * a) + (0.5 * 2 * a) + (0.3 * 2 * a) + (f * 2 * a) + (0.8 * 2 * a) For z = 0 To 4 Text4(z) = b3(z) Next z ElseIf d = 0.5 Then f = d - 0.5 b2 = f * a b3() = Array(b4 + (0.8 * 2 * a), (b4 + (0.8 * 2 * a) + (0.5 * 2 * a), (b4 + (0.8 * 2 * a) + (0.5 * 2 * a) + (0.5 * 2 * a), (b4 + (0.8 * 2 * a) + (0.5 * 2 * a) + (0.5 * 2 * a) + (0.3 * 2 * a), (b4 + (0.8 * 2 * a) + (0.5 * 2 * a) + (0.5 * 2 * a) + (0.3 * 2 * a) + (f * 2 * a) For z = 0 To 4 Text4(z) = b3(z) Next z ElseIf d 0 Then a = a + 1 End If Next i For i = 0 To 8 If Val(鍵槽直徑.Text4(i) 0 Then b = b + 1 End If Next i Text53.Text = a + b Text54.Text = a * Val(Text24.Text) + (b * Val(Text59.Text) End Sub Private Sub Command13_Click() Text57.Text = Text42.Text 計算機輔助拉刀設計 13 校準齒.Show Module1.m = False End Sub Private Sub Command14_Click() Text60.Text = Val(Text59.Text) * (Val(Text58.Text) - 1) + 25 End Sub Private Sub Command15_Click() rongxiecao.Show Module1.z = True End Sub Private Sub Command16_Click() Dim a, b As Double If Val(鍵槽已知.Text1.Text) = 0 Then MsgBox “除數不能為 0“ Exit Sub End If a = Val(鍵槽已知.Text2.Text) / Val(鍵槽已知.Text1.Text) b = (Val(鍵槽已知.Text2.Text) + (2 * 0.3) / Val(鍵槽已知.Text1.Text) Text64.Text = “0.16“ If (Sqr(1 - (a * a) - Sqr(1 - (b * b) = 0 Then MsgBox “除數不能為 0“ Exit Sub End If Text65.Text = Round(Val(jiancao.Text42.Text) - (Val(鍵槽已知.Text1.Text) / 2 * (Sqr(1 - (a * a) - Sqr(1 - (b * b) End Sub Private Sub Command17_Click() Text74.Text = Round(Val(Text65.Text) + 0.3 + 0.5) End Sub Private Sub Command18_Click() If Val(Text64.Text) = 0 Then MsgBox “除數不能為 0“ Exit Sub End If Text67.Text = (Val(Text74.Text) - Val(Text65.Text) / Val(Text64.Text) + 1 Text69.Text = (Val(Text65.Text) + (Val(鍵槽已知.Text2.Text) + Val(Text28.Text) / 2) + 0.3) * Sin(45 * 3.1415926 / 180) Text70.Text = Text59.Text Text72.Text = “同校準齒“ End Sub Private Sub Command19_Click() Text75.Text = Val(Text41.Text) + Val(Text54.Text) + Val(Text60.Text) + Val(Text71.Text) End Sub Private Sub Command2_Click() 鍵槽后角.Show End Sub Private Sub Command20_Click() 鍵槽直徑.Show End Sub Private Sub Command21_Click() Dim ctr As Object For Each ctl In jiancao If TypeOf ctl Is TextBox Then ctl.Text = “ End If Next End Sub Private Sub Command3_Click() Text33.Text = “O,O5“ If 鍵槽已知.Combo4.Text = “鋼“ And 鍵槽已知.Combo2.Text = “小于等于 197HB“ Then 查找 前角 Text21.Text = “16-18“ End If 計算機輔助拉刀設計 14 If 鍵槽已知.Combo4.Text = “鋼“ And 鍵槽已知.Combo2.Text = “198-229HB“ Then Text21.Text = “15“ End If If 鍵槽已知.Combo4.Text = “鋼“ And 鍵槽已知.Combo2.Text = “大于 229HB“ Then Text21.Text = “12-10“ End If If 鍵槽已知.Combo4.Text = “灰鑄鐵“ And 鍵槽已知.Combo3.Text = “小于等于 180HB“ Then Text21.Text = “10-8“ End If If 鍵槽已知.Combo4.Text = “灰鑄鐵“ And 鍵槽已知.Combo3.Text = “大于 180HB“ Then Text21.Text = “5“ End If If 鍵槽已知.Combo4.Text = “銅、鋁及鎂合金、巴氏合金“ Then Text21.Text = “20“ End If If 鍵槽已知.Combo4.Text = “可鍛鑄鐵“ Then Text21.Text = “10“ End If If 鍵槽已知.Combo4.Text = “青銅、黃銅“ Then Text21.Text = “5“ End If Dim e As Integer e = Val(鍵槽已知.Text3.Text) If e 10 And e 12 And e 14 And e 16 And e 19 And e 20 And e 25 And e 12 And e 33 And e 36 And e 40 And e 45 And e 49 And e 54 And e 60 And e 70 And e 77 And e 83 And e 90 And e 100 And e 111 And e 125 And e 143 And e = 0.8 Then n = l - 0.8 Text4(0) = Text2(k - 1) + (0.8 * i) Text4(1) = Text2(k - 1) + (1.6 * i) Text4(2) = Text2(k - 1) + (2.1 * i) Text4(3) = Text2(k - 1) + (2.4 * i) Text4(4) = Text2(k - 1) + (2.4 * i) + (n * i) ElseIf l = 0.5 And l Val(Text14.Text) Then a = Val(Text14.Text) End If If a Val(Text15.Text) Then a = Val(Text15.Text) End If Text16.Text = a End Sub Private Sub Command6_Click() Text17.Text = “35“ If Val(Text17.Text) = 0 Or Val(Text6.Text) = 0 Then MsgBox “除數不能為 0“ 計算機輔助拉刀設計 24 Exit Sub Text18.Text = Round(Val(Text16.Text) / Val(Text17.Text) / Val(Text6.Text), 1) Text19.Text = Round(Val(Text16.Text) / Val(Text17.Text) / Val(Text7.Text), 1) End Sub Private Sub Command7_Click() 齒升量.Show End Sub Private Sub Command8_Click() 弧形槽齒升量.Show End Sub Private Sub Command9_Click() Dim b, c As Double b = Val(Text20.Text) If Val(Text21.Text) Val(Text8.Text) Then Text9.Text = Val(Text8.Text) Else Text9.Text = Val(Text6.Text) End If End Sub Private Sub Command5_Click() If Val(Text9.Text) = 0 Then MsgBox “除數不能為 0“ Exit Sub End If Text10.Text = Int(Val(輪切式.Text41.Text) / 2 / Val(Text9.Text) + 1 End Sub Private Sub Command6_Click() Text11.Text = Val(Text10.Text) * Val(Text3.Text) End Sub Private Sub Command7_Click() 拉刀可能性.Show End Sub 拉刀可能性（拉刀可能性拉刀可能性（拉刀可能性. .frmfrm） Private Sub Command1_Click() Text6.Text = Val(輪切式.Text9.Text) + Val(輪切式.Text12.Text) Text5.Text = Val(輪切式.Text48.Text) + Val(輪切式.Text9.Text) + Val(輪切式.Text12.Text) + 20 + Val(輪切式.Text3.Text) End Sub Private Sub Command2_Click() Text10.Text = 10 * Val(Text7.Text) Text9.Text = “10“ End Sub Private Sub Command3_Click() Text12.Text = Val(Text8.Text) * 8 Text11.Text = “8“ End Sub Private Sub Command4_Click() If 方案比較.Combo2.Text = “方案一“ Then Text13.Text = Val(方案比較.Text30.Text) + Val(圓形粗切齒部分.Text11.Text) + Val(Text2.Text) + Val(Text12.Text) End If If 方案比較.Combo2.Text = “方案二“ Then Text13.Text = Val(方案比較.Text31.Text) + Val(圓形粗切齒部分.Text11.Text) + Val(Text2.Text) + Val(Text12.Text) End If End Sub Private Sub Command5_Click() Text14.Text = Val(Text5.Text) + Val(Text4.Text) + Val(Text13.Text) End Sub Private Sub Command6_Click() 其余部分計算.Show 拉刀可能性.Hide End Sub Private Sub Form_Load() If 圓形粗切齒部分.Text3.Text = “4“ Then 根據粗切齒查找校準齒和精切齒齒距 Text7.Text = “4“ Text8.Text = “4“ End If If 圓形粗切齒部分.Text3.Text = “4.5“ Then 計算機輔助拉刀設計 26 Text7.Text = “4.5“ Text8.Text = “4.5“ End If If 圓形粗切齒部分.Text3.Text = “5“ Then Text7.Text = “5“ Text8.Text = “5“ End If If 圓形粗切齒部分.Text3.Text = “6“ Then Text7.Text = “6“ Text8.Text = “6“ End If If 圓形粗切齒部分.Text3.Text = “7“ Then Text7.Text = “5“ Text8.Text = “5“ End If If 圓形粗切齒部分.Text3.Text = “8“ Then Text7.Text = “6“ Text8.Text = “6“ End If If 圓形粗切齒部分.Text3.Text = “9“ Then Text7.Text = “7“ Text8.Text = “7“ End If If 圓形粗切齒部分.Text3.Text = “10“ Then Text7.Text = “7“ Text8.Text = “7“ End If If 圓形粗切齒部分.Text3.Text = “11“ Then Text7.Text = “8“ Text8.Text = “8“ End If If 圓形粗切齒部分.Text3.Text = “12“ Then Text7.Text = “9“ Text8.Text = “9“ End If If 圓形粗切齒部分.Text3.Text = “13“ Then Text7.Text = “10“ Text8.Text = “10“ End If If 圓形粗切齒部分.Text3.Text = “14“ Then Text7.Text = “10“ Text8.Text = “10“ End If If 圓形粗切齒部分.Text3.Text = “15“ Then Text7.Text = “11“ Text8.Text = “11“ End If If 圓形粗切齒部分.Text3.Text = “16“ Then Text7.Text = “12“ Text8.Text = “12“ End If If 圓形粗切齒部分.Text3.Text = “17“ Then Text7.Text = “13“ Text8.Text = “13“ End If If 圓形粗切齒部分.Text3.Text = “18“ Then Text7.Text = “13“ Text8.Text = “13“ End If If 圓形粗切齒部分.Text3.Text = “19“ Then Text7.Text = “14“ Text8.Text = “14“ End If 計算機輔助拉刀設計 27 If 圓形粗切齒部分.Text3.Text = “20“ Then Text7.Text = “21“ Text8.Text = “21“ End If If 圓形粗切齒部分.Text3.Text = “21“ Then Text7.Text = “16“ Text8.Text = “16“ End If If 圓形粗切齒部分.Text3.Text = “22“ Then Text7.Text = “16“ Text8.Text = “16“ End If If 圓形粗切齒部分.Text3.Text = “24“ Then Text7.Text = “18“ Text8.Text = “18“ End If If 圓形粗切齒部分.Text3.Text = “25“ Then Text7.Text = “19“ Text8.Text = “19“ End If If 圓形粗切齒部分.Text3.Text = “26“ Then Text7.Text = “20“ Text8.Text = “20“ End If If 圓形粗切齒部分.Text3.Text = “28“ Then Text7.Text = “21“ Text8.Text = “21“ End If If 圓形粗切齒部分.Text3.Text = “30“ Then Text7.Text = “22“ Text8.Text = “22“ End If If 圓形粗切齒部分.Text3.Text = “32“ Then Text7.Text = “24“ Text8.Text = “24“ End If Text1.Text = 輪切式.Text2.Text Dim z As Double z = Val(輪切式.Text2.Text) Dim X As Double If z 0 And z 3 And z 3 And z 6 And z 10 And z 18 And z 30 And z 50 And z 80 And z 120 And z 180 And z 250 And z 315 And z 400 And z 0 And z 3 And z 6 And z 10 And z 18 And z 30 And z 50 And z 80 And z 120 And z 180 And z 250 And z 315 And z 400 And z 0 Then x1 = x1 + 1 End If Next z x2 = 0 For z = 0 To 13 If Val(輪切直徑.Text4(z) 0 Then x2 = x2 + 1 End If Next z x3 = 0 For z = 0 To 5 If Val(輪切直徑.Text6(z) 0 Then x3 = x3 + 1 End If Next z x4 = 0 For z = 0 To 8 If Val(輪切直徑.Text8(z) 0 Then x4 = x4 + 1 End If Next z x5 = 0 For z = 0 To 28 If Val(輪切直徑.Text10(z) 0 Then x5 = x5 + 1 End If Next z x6 = 0 For z = 0 To 6 If Val(輪切直徑.Text12(z) 0 Then x6 = x61 + 1 End If Next z x7 = 0 For z = 0 To 5 If Val(輪切直徑.Text14(z) 0 Then x7 = x7 + 1 End If Next z Text12.Text = (x1 + x2 + x5) * Val(圓形粗切齒部分.Text3.Text) + (x3 + x4 + x6 + x7) * Val(拉 刀可能性.Text7.Text) Text13.Text = (x4 * Val(圓形粗切齒部分.Text3.Text) + 10) + (x7 * Val(圓形粗切齒部 計算機輔助拉刀設計 30 分.Text3.Text) End Sub Private Sub Form_Load() Text10.Text = Val(輪切式.Text2.Text) - 0.5 Text11.Text = Val(輪切式.Text6.Text) + Val(輪切式.Text20.Text) - 0.5 Text15(0) = 圓形粗切齒部分.Text3.Text Text15(1) = 拉刀可能性.Text7.Text End Sub 輪切直徑（輪切直徑輪切直徑（輪切直徑. .frmfrm） Private Sub Command2_Click() 輪切簡圖.Show End Sub Private Sub Form_Load() Dim a As Double For a = 0 To 29 Text1(a) = a + 1 Next a For a = 0 To 13 Text3(a) = a + 1 Next a For a = 0 To 5 Text5(a) = a + 1 Next a For a = 0 To 13 Text4(a) = “ Next a For a = 0 To 5 Text6(a) = “ Next a For a = 0 To 29 Text2(a) = “ Next a For a = 0 To 8 Text8(a) = “ Next a For a = 0 To 28 Text9(a) = a + 1 Next a For a = 0 To 28 Text10(a) = “ Next a For a = 0 To 6 Text12(a) = “ Next a For a = 0 To 6 Text11(a) = a + 1 Next a For a = 0 To 5 Text14(a) = “ Next a For a = 0 To 5 Text13(a) = a + 1 Next a Dim b, c, d, e, f, g As Double b = Val(輪切式.Text40.Text) 倒角齒余量 c = Val(輪切式.Text37.Text) 倒角齒第一個直徑 If 方案比較.Combo2.Text = “方案一“ Then d 花鍵、倒角齒升量 d = Val(方案比較.Text24.Text) ElseIf 方案比較.Combo2.Text = “方案二“ Then d = Val(方案比較.Text25.Text) End If If d = 0 Then MsgBox “除數不能為 0“ 計算機輔助拉刀設計 31 Exit Sub End If e = b / 2 / d f = Int(e) 整數 g = e - f 小數 Text2(0) = c Text2(1) = 2 * d + c For a = 1 To (f - 1) Text2(1 + (a * 2) = Text2(1) + (2 * d) * a Next a For a = 1 To f Text2(a * 2) = Text2(a * 2 - 1) - 0.04 Next a Text2(2 * f + 1) = Text2(2 * f) + (g * 2 * d) Dim a1, a2, a3, a4, a5, a6, a7, a8, a9 As Double a1 = Val(輪切式.Text31.Text) 校準齒直徑 a2 = Val(輪切式.Text41.Text) 余量 a3 = Val(圓形粗切齒部分.Text9.Text) 齒升量 a4 = Val(輪切式.Text38.Text) 第一齒直徑 If a3= 0 Then MsgBox “除數不能為 0“ Exit Sub End If a5 = a2 / 2 / a3 a6 = Int(a5) 整數 a7 = a5 - a6 小數 For a = 0 To a6 Text4(a) = 2 * a3 * a + a4 Next a a9 = Val(Text4(a5) If a7 = 0.8 Then a8 = a7 - 0.8 Text6(0).Text = 0.8 *