機床夾具常用計算計算機輔助設計含開題報告及文獻綜述、任務書
機床夾具常用計算計算機輔助設計含開題報告及文獻綜述、任務書,機床,夾具,常用,經常使用,計算,計算機輔助設計,開題,報告,講演,呈文,文獻,綜述,任務書
Form1
Option Explicit
Private Sub a1_Click()
Form2.Show
End Sub
Private Sub a2_Click()
Form3.Show
End Sub
Private Sub a3_Click()
Form4.Show
End Sub
Private Sub a4_Click()
Form5.Show
End Sub
Private Sub b1_Click()
Form6.Show
End Sub
Private Sub b2_Click()
Form7.Show
End Sub
Private Sub c1_Click()
Form8.Show
End Sub
Private Sub c2_Click()
Form11.Show
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub Form_Load()
Form1.Width = 17000
Form1.Height = 10000
End Sub
Private Sub Label1_Click()
Label1.Caption = "機床夾具常用計算"
End Sub
Private Sub Label2_Click()
Label2.Caption = "設計者：董江浩"
End Sub
Private Sub Label3_Click()
Label3.Caption = "指導教師：于靖華"
End Sub
Form2
Option Explicit
Const PI# = 3.1415926 '定義符號常亮PI代表π
Private Sub Command3_Click()
Text2.Text = 20
Text3.Text = 24
Text4.Text = 23
Text5.Text = 12
Text6.Text = 90
End Sub
Private Sub Form_Load()
Form2.Width = 17000
Form2.Height = 10000
Form2.Caption = "V形塊的計算"
Label1.Caption = "H:"
Label3.Caption = "D:"
Label5.Caption = "N:"
Label7.Caption = "d:"
Label9.Caption = "a:"
Command1.Caption = "T"
Command2.Caption = "△y"
Text2 = "": Text3 = "": Text4 = "": Text5 = "": Text6 = ""
End Sub
Private Sub Command1_Click()
If Text2.Text = "" Then
MsgBox ("請輸入參數")
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox ("請輸入參數")
Text3.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請輸入參數")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請輸入參數")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請輸入參數")
Text6.SetFocus
Exit Sub
End If
Dim bb As Integer
Dim cc As Integer
Dim dd As Integer
Dim ee As Integer
Dim ff As Double
Dim gg As Double
Dim hh As Double
Dim ii As Integer
Dim jj As Integer
Dim ss As Integer
Dim kk As Integer
bb = Val(Me.Text2.Text)
cc = Val(Me.Text3.Text)
dd = Val(Me.Text4.Text)
ee = Val(Me.Text5.Text)
ff = Val(Me.Text6.Text)
gg = 2 * Sin((ff * PI / 180) / 2)
gg = Fix(gg * 10000 + 0.5) / 10000 '保留小數點后4位
hh = 2 * Tan((ff * PI / 180) / 2)
hh = Fix(hh * 10000 + 0.5) / 10000 '保留小數點后4位
ii = bb + dd / (2 * gg) - cc / (2 * hh)
jj = bb + dd - 0.866 * cc
ss = bb + 0.707 * dd - 0.5 * cc
kk = bb + 0.577 * dd - 0.289 * cc
If ff = 60 Then '如果a等于60°
Text1.Text = jj
MsgBox jj, , "計算結果"
ElseIf ff = 90 Then '如果a等于90°
Text1.Text = ss
MsgBox ss, , "計算結果"
ElseIf ff = 120 Then '如果a等于120°
Text1.Text = kk
MsgBox kk, , "計算結果"
Else
Text1.Text = ii
MsgBox ii, , "計算結果"
End If
End Sub
Private Sub Command2_Click()
If Text2.Text = "" Then
MsgBox ("請輸入參數")
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox ("請輸入參數")
Text3.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請輸入參數")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請輸入參數")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請輸入參數")
Text6.SetFocus
Exit Sub
End If
Dim bb As Integer
Dim cc As Integer
Dim dd As Integer
Dim ee As Integer
Dim ff As Integer
Dim pp As Double
Dim nn As Integer
Dim vv As Integer
Dim xx As Integer
Dim zz As Integer
bb = Val(Me.Text2.Text)
cc = Val(Me.Text3.Text)
dd = Val(Me.Text4.Text)
ee = Val(Me.Text5.Text)
ff = Val(Me.Text6.Text)
pp = 2 * Sin((ff * PI / 180) / 2)
pp = Fix(pp * 10000 + 0.5) / 10000 '保留小數點后4位
nn = (dd - ee) / pp
vv = dd - ee
xx = 0.707 * (dd - ee)
zz = 0.577 * (dd - ee)
If ff = 60 Then '如果a等于60°
Text7.Text = vv
MsgBox vv, , "計算結果"
ElseIf ff = 90 Then '如果a等于90°
Text7.Text = xx
MsgBox xx, , "計算結果"
ElseIf ff = 120 Then '如果a等于120°
Text7.Text = zz
MsgBox zz, , "計算結果"
Else Text7.Text = nn
MsgBox nn, , "計算結果"
End If
End Sub
Form3
Option Explicit
Private Sub Form_Load()
Form3.Width = 17000
Form3.Height = 10000
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Picture1_Click()
End Sub
Form4
Option Explicit
Private Sub Form_Load()
Form4.Width = 17000
Form4.Height = 10000
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Picture1_Click()
End Sub
Form5
Option Explicit
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("請輸入參數")
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox ("請輸入參數")
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox ("請輸入參數")
Text3.SetFocus
Exit Sub
End If
Dim aa As Integer
Dim bb As Integer
Dim cc As Integer
Dim dd As Integer
Dim ff As Integer
Dim ee As Integer
aa = Val(Me.Text1.Text)
bb = Val(Me.Text2.Text)
cc = Val(Me.Text3.Text)
dd = Sqr(2 * aa * cc)
ff = (bb + 0.5 * aa) * dd
ee = ff / aa
MsgBox ee, , "計算結果"
Text8.Text = ee
End Sub
Private Sub Command2_Click()
If Text7.Text = "" Then
MsgBox ("請輸入參數")
Text7.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請輸入參數")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請輸入參數")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請輸入參數")
Text6.SetFocus
Exit Sub
End If
Dim aa As Integer
Dim bb As Integer
Dim cc As Integer
Dim dd As Integer
Dim ff As Integer
Dim ee As Integer
Dim gg As Integer
aa = Val(Me.Text4.Text)
bb = Val(Me.Text5.Text)
cc = Val(Me.Text6.Text)
dd = Val(Me.Text7.Text)
ff = Sqr(2 * (aa + cc) * dd)
ee = (aa + bb + 0.5 * cc) * ff
gg = ee / (aa + cc)
MsgBox gg, , "計算結果"
Text9.Text = gg
End Sub
Private Sub Command3_Click()
If Text7.Text = "" Then
MsgBox ("請輸入參數")
Text7.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請輸入參數")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請輸入參數")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請輸入參數")
Text6.SetFocus
Exit Sub
End If
Dim aa As Integer
Dim bb As Integer
Dim cc As Integer
Dim dd As Integer
Dim ff As Integer
Dim ee As Integer
Dim gg As Integer
aa = Val(Me.Text4.Text)
bb = Val(Me.Text5.Text)
cc = Val(Me.Text6.Text)
dd = Val(Me.Text7.Text)
ff = Sqr(2 * cc * dd)
ee = (bb + 0.5 * cc) * ff
gg = ee / cc
MsgBox gg, , "計算結果"
Text10.Text = gg
End Sub
Private Sub Command4_Click()
If Text7.Text = "" Then
MsgBox ("請輸入參數")
Text7.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請輸入參數")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請輸入參數")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請輸入參數")
Text6.SetFocus
Exit Sub
End If
Dim aa As Integer
Dim bb As Integer
Dim cc As Integer
Dim dd As Integer
Dim ff As Integer
Dim ee As Integer
Dim gg As Integer
Dim kk As Integer
Dim ss As Integer
Dim ll As Integer
aa = Val(Me.Text4.Text)
bb = Val(Me.Text5.Text)
cc = Val(Me.Text6.Text)
dd = Val(Me.Text7.Text)
ff = Sqr(2 * (aa + cc) * dd)
gg = (aa + bb + 0.5 * cc) * ff
kk = gg / (aa + cc)
ee = Sqr(2 * cc * dd)
ss = (bb + 0.5 * cc) * ee
ll = ss / cc
If kk > ll Then
Text11.Text = ll
MsgBox ll, , "實際高度"
Else
Text11.Text = kk
MsgBox kk, , "實際高度"
End If
End Sub
Private Sub Command5_Click()
Text1.Text = 2.5
Text2.Text = 12
Text3.Text = 1
End Sub
Private Sub Command6_Click()
Text4.Text = 20
Text5.Text = 12
Text6.Text = 2.5
Text7.Text = 1
End Sub
Private Sub Form_Load()
Form5.Width = 17000
Form5.Height = 10000
Form14.Caption = "定位稍高度的計算"
Label7.Caption = "以一個定位稍定位"
Label8.Caption = "以兩個定位稍定位"
Label9.Caption = "D"
Label10.Caption = "L"
Label11.Caption = "△min"
Label12.Caption = "L"
Label13.Caption = "l"
Label14.Caption = "D"
Label15.Caption = "△min"
Command1.Caption = "H"
Command2.Caption = "H1"
Command3.Caption = "H2"
Command4.Caption = "H"
End Sub
Form6
Option Explicit
Private Sub Command1_Click()
Form10.Show
End Sub
Private Sub Command2_Click()
Form12.Show
End Sub
Private Sub Command3_Click()
Form13.Show
End Sub
Private Sub Command4_Click()
Form14.Show
End Sub
Private Sub Command5_Click()
Form15.Show
End Sub
Private Sub Command6_Click()
Form16.Show
End Sub
Private Sub Form_Load()
Form6.Width = 17000
Form6.Height = 10000
End Sub
Form7
Option Explicit
Private Sub Form_Load()
Form7.Width = 17000
Form7.Height = 10000
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Frame3_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Label5_Click()
End Sub
Form8
Option Explicit
Private Sub Form_Load()
Form8.Width = 17000
Form8.Height = 10000
End Sub
Private Sub Label10_Click()
End Sub
Private Sub Label11_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Label5_Click()
End Sub
Private Sub Label6_Click()
End Sub
Private Sub Label7_Click()
End Sub
Private Sub Label8_Click()
End Sub
Private Sub Label9_Click()
End Sub
Private Sub Picture2_Click()
End Sub
Form9
Option Explicit
Const PI# = 3.1415926 '定義符號常亮PI代表π
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("請輸入參數")
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox ("請輸入參數")
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox ("請輸入參數")
Text3.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請輸入參數")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請輸入參數")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請輸入參數")
Text6.SetFocus
Exit Sub
End If
If Text7.Text = "" Then
MsgBox ("請輸入參數")
Text7.SetFocus
Exit Sub
End If
If Text8.Text = "" Then
MsgBox ("請輸入參數")
Text8.SetFocus
Exit Sub
End If
If Text9.Text = "" Then
MsgBox ("請輸入參數")
Text9.SetFocus
Exit Sub
End If
Dim aa As Double
Dim bb As Double
Dim cc As Double
Dim dd As Double
Dim ee As Double
Dim ff As Double
Dim gg As Double
Dim hh As Double
Dim ii As Double
Dim jj As Double
Dim ss As Double
Dim kk As Double
Dim oo As Double
Dim pp As Double
aa = Val(Me.Text1.Text)
bb = Val(Me.Text2.Text)
cc = Val(Me.Text3.Text)
dd = Val(Me.Text4.Text)
ee = Val(Me.Text5.Text)
ff = Val(Me.Text6.Text)
gg = Val(Me.Text7.Text)
hh = Val(Me.Text8.Text)
ii = Val(Me.Text9.Text)
jj = Sin((cc * PI / 180) / 2)
jj = Fix(ii * 10000 + 0.5) / 10000 '保留小數點后4位
ss = aa * bb * jj
ss = Fix(ss * 10000 + 0.5) / 10000 '保留小數點后4位
kk = dd * hh * ii
kk = Fix(kk * 10000 + 0.5) / 10000 '保留小數點后4位
oo = ee * hh
pp = ss / (oo + kk)
pp = Fix(pp * 10000 + 0.5) / 10000 '保留小數點后4位
MsgBox pp, , "計算結果"
Text16.Text = pp
End Sub
Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox ("請輸入參數")
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox ("請輸入參數")
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox ("請輸入參數")
Text3.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請輸入參數")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請輸入參數")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請輸入參數")
Text6.SetFocus
Exit Sub
End If
If Text7.Text = "" Then
MsgBox ("請輸入參數")
Text7.SetFocus
Exit Sub
End If
If Text8.Text = "" Then
MsgBox ("請輸入參數")
Text8.SetFocus
Exit Sub
End If
If Text9.Text = "" Then
MsgBox ("請輸入參數")
Text9.SetFocus
Exit Sub
End If
Dim aa As Double
Dim bb As Double
Dim cc As Double
Dim dd As Double
Dim ee As Double
Dim ff As Double
Dim gg As Double
Dim hh As Double
Dim ii As Double
Dim jj As Double
Dim ss As Double
Dim kk As Double
Dim oo As Double
aa = Val(Me.Text1.Text)
bb = Val(Me.Text2.Text)
cc = Val(Me.Text3.Text)
dd = Val(Me.Text4.Text)
ee = Val(Me.Text5.Text)
ff = Val(Me.Text6.Text)
gg = Val(Me.Text7.Text)
hh = Val(Me.Text8.Text)
ii = Val(Me.Text9.Text)
jj = Sin((cc * PI / 180) / 2)
jj = Fix(ii * 10000 + 0.5) / 10000 '保留小數點后4位
ss = aa * ii * jj
ss = Fix(ss * 10000 + 0.5) / 10000 '保留小數點后4位
kk = ff * jj
kk = Fix(kk * 10000 + 0.5) / 10000 '保留小數點后4位
oo = ss / (kk + gg)
oo = Fix(oo * 10000 + 0.5) / 10000 '保留小數點后4位
MsgBox oo, , "計算結果"
Text17.Text = oo
End Sub
Private Sub Command3_Click()
If Text10.Text = "" Then
MsgBox ("請輸入參數")
Text10.SetFocus
Exit Sub
End If
If Text11.Text = "" Then
MsgBox ("請輸入參數")
Text11.SetFocus
Exit Sub
End If
If Text12.Text = "" Then
MsgBox ("請輸入參數")
Text12.SetFocus
Exit Sub
End If
If Text13.Text = "" Then
MsgBox ("請輸入參數")
Text13.SetFocus
Exit Sub
End If
If Text14.Text = "" Then
MsgBox ("請輸入參數")
Text14.SetFocus
Exit Sub
End If
If Text15.Text = "" Then
MsgBox ("請輸入參數")
Text15.SetFocus
Exit Sub
End If
Dim aa As Double
Dim bb As Double
Dim cc As Double
Dim dd As Double
Dim ee As Double
Dim ff As Double
Dim gg As Double
Dim hh As Double
Dim ii As Double
Dim jj As Double
aa = Val(Me.Text10.Text)
bb = Val(Me.Text11.Text)
cc = Val(Me.Text12.Text)
dd = Val(Me.Text13.Text)
ee = Val(Me.Text14.Text)
ff = Val(Me.Text15.Text)
gg = Tan((dd * PI / 180) / 2)
gg = Fix(gg * 10000 + 0.5) / 10000 '保留小數點后4位
hh = 2 * ee + ff + cc * gg
hh = Fix(hh * 10000 + 0.5) / 10000 '保留小數點后4位
ii = 2 * aa * bb
jj = ii / hh
jj = Fix(jj * 10000 + 0.5) / 10000 '保留小數點后4位
MsgBox jj, , "計算結果"
Text19.Text = jj
End Sub
Private Sub Command4_Click()
If Text1.Text = "" Then
MsgBox ("請輸入參數")
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox ("請輸入參數")
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox ("請輸入參數")
Text3.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請輸入參數")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請輸入參數")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請輸入參數")
Text6.SetFocus
Exit Sub
End If
If Text7.Text = "" Then
MsgBox ("請輸入參數")
Text7.SetFocus
Exit Sub
End If
If Text8.Text = "" Then
MsgBox ("請輸入參數")
Text8.SetFocus
Exit Sub
End If
If Text9.Text = "" Then
MsgBox ("請輸入參數")
Text9.SetFocus
Exit Sub
End If
Dim aa As Double
Dim bb As Double
Dim cc As Double
Dim dd As Double
Dim ee As Double
Dim ff As Double
Dim gg As Double
Dim hh As Double
Dim ii As Double
Dim jj As Double
Dim ss As Double
Dim kk As Double
Dim oo As Double
Dim pp As Double
Dim vv As Double
Dim uu As Double
Dim rr As Double
aa = Val(Me.Text1.Text)
bb = Val(Me.Text2.Text)
cc = Val(Me.Text3.Text)
dd = Val(Me.Text4.Text)
ee = Val(Me.Text5.Text)
ff = Val(Me.Text6.Text)
gg = Val(Me.Text7.Text)
hh = Val(Me.Text8.Text)
ii = Val(Me.Text9.Text)
jj = Sin((cc * PI / 180) / 2)
jj = Fix(ii * 10000 + 0.5) / 10000 '保留小數點后4位
ss = aa * bb * jj
ss = Fix(ss * 10000 + 0.5) / 10000 '保留小數點后4位
kk = dd * hh * jj
kk = Fix(kk * 10000 + 0.5) / 10000 '保留小數點后4位
oo = ee * hh
pp = ss / (oo + kk)
pp = Fix(pp * 10000 + 0.5) / 10000 '保留小數點后4位
uu = aa * ii * jj
uu = Fix(uu * 10000 + 0.5) / 10000 '保留小數點后4位
vv = ff * jj
vv = Fix(vv * 10000 + 0.5) / 10000 '保留小數點后4位
rr = uu / (vv + gg)
rr = Fix(rr * 10000 + 0.5) / 10000 '保留小數點后4位
If pp > rr Then
Text18.Text = pp
MsgBox pp, , "計算結果"
Else
Text18.Text = rr
MsgBox rr, , "計算結果"
End If
End Sub
Private Sub Command5_Click()
Text1.Text = 1.5
Text2.Text = 24
Text3.Text = 30
Text4.Text = 0.2
Text5.Text = 0.4
Text6.Text = 0.6
Text7.Text = 0.8
Text8.Text = 10
Text9.Text = 20
End Sub
Private Sub Command6_Click()
Text10.Text = 1.5
Text11.Text = 24
Text12.Text = 30
Text13.Text = 2
Text14.Text = 30
Text15.Text = 0.6
End Sub
Private Sub Form_Load()
Form9.Width = 17000
Form9.Height = 10000
End Sub
Form10
Private Sub Form_Load()
Form10.Width = 17000
Form10.Height = 10000
Form10.Caption = "定位基準為平面"
Label1.Caption = "一個水平面"
Label2.Caption = "兩個垂直平面"
Label3.Caption = "兩個平行平面"
Option1.Caption = "α=90°，△yA"
Option2.Caption = "α≠90°,△yA"
Option3.Caption = "△yA"
Option4.Caption = "△yB"
Option5.Caption = "α"
End Sub
Private Sub Option1_Click()
MsgBox "△yA=hctgγ", , "定位誤差"
End Sub
Private Sub Option2_Click()
MsgBox "△yA=h[ctg(α±γ)-ctgα]", , "定位誤差"
End Sub
Private Sub Option3_Click()
MsgBox "△yA=0", , "定位誤差"
End Sub
Private Sub Option4_Click()
MsgBox "△yB=δ", , "定位誤差"
End Sub
Private Sub Option5_Click()
MsgBox "α = ±arctg(δ / L)", , "定位誤差"
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub Picture2_Click()
End Sub
Private Sub Picture3_Click()
End Sub
Form11
Option Explicit
Private Sub Command1_Click()
Form17.Show
End Sub
Private Sub Command10_Click()
Form25.Show
End Sub
Private Sub Command2_Click()
Form18.Show
End Sub
Private Sub Command3_Click()
Form19.Show
End Sub
Private Sub Command4_Click()
Form20.Show
End Sub
Private Sub Command5_Click()
Form21.Show
End Sub
Private Sub Command6_Click()
Form22.Show
End Sub
Private Sub Command7_Click()
Form23.Show
End Sub
Private Sub Command8_Click()
Form9.Show
End Sub
Private Sub Command9_Click()
Form24.Show
End Sub
Private Sub Form_Load()
Form11.Width = 17000
Form11.Height = 10000
End Sub
Form12
Option Explicit
Private Sub Form_Load()
Form12.Width = 17000
Form12.Height = 10000
Form12.Caption = "定位基準為一孔及一平面"
Option1.Caption = "△y徑向"
Option2.Caption = "△yx"
Option3.Caption = "△yz"
End Sub
Private Sub Option1_Click()
MsgBox "△y徑向=δD+δd+△min", , "定位誤差"
End Sub
Private Sub Option2_Click()
MsgBox "△yx=0", , "定位誤差"
End Sub
Private Sub Option3_Click()
MsgBox "△yz=1/2(δD+δd)", , "定位誤差"
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub Picture2_Click()
End Sub
Form13
Option Explicit
Private Sub Form_Load()
Form13.Width = 17000
Form13.Height = 10000
Form13.Caption = "定位基準為一圓孔及兩個垂直平面"
Option1.Caption = "△yy"
Option2.Caption = "△yx"
Option3.Caption = "α"
Option4.Caption = "α"
End Sub
Private Sub Option1_Click()
MsgBox "△yy=0", , "定位誤差"
End Sub
Private Sub Option2_Click()
MsgBox "△yx=△max", , "定位誤差"
End Sub
Private Sub Option3_Click()
MsgBox "α=arctg((2δLg+δLx)/L1)", , "定位誤差"
End Sub
Private Sub Option4_Click()
MsgBox "α≈arctg((δLg+δLx)/L2)", , "定位誤差"
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Label5_Click()
End Sub
Private Sub Label7_Click()
End Sub
Private Sub Label8_Click()
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub Picture2_Click()
End Sub
Private Sub Picture3_Click()
End Sub
Form14
Option Explicit
Private Sub Form_Load()
Form14.Width = 17000
Form14.Height = 10000
Form14.Caption = "定位基準為一平面及兩圓孔"
Option1.Caption = "α=90°，△yA"
End Sub
Private Sub Option1_Click()
MsgBox "α=arctg((△1max+△2max)/2L)", , "定位誤差"
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Picture1_Click()
End Sub
Form15
Option Explicit
Private Sub Command1_Click()
Text1.Text = 20
Text2.Text = 24
End Sub
Private Sub Command2_Click()
Text3.Text = 20
Text4.Text = 24
Text5.Text = 23
End Sub
Private Sub Command3_Click()
Text6.Text = 20
Text7.Text = 24
Text8.Text = 23
Text9.Text = 12
End Sub
Private Sub Form_Load()
Form15.Width = 17000
Form15.Height = 10000
Form15.Caption = "定位基準為圓柱面"
Label1.Caption = "兩垂直平面定位"
Label2.Caption = "d:"
Label3.Caption = "δ:"
Label4.Caption = "平面定位，V形塊定心"
Label5.Caption = "d:"
Label6.Caption = "δ:"
Label7.Caption = "γ:"
Label8.Caption = "V形塊定位"
Label9.Caption = "d:"
Label10.Caption = "δ:"
Label11.Caption = "α:"
Label12.Caption = "γ:"
Option1.Caption = "△yA"
Option2.Caption = "△yB"
Option3.Caption = "△yC"
Option4.Caption = "△yD"
Option5.Caption = "△yA"
Option1.Caption = "△yB"
Option2.Caption = "△yC"
Option3.Caption = "△yA"
Option4.Caption = "△yB"
Option5.Caption = "△yC"
End Sub
Private Sub Option1_Click()
If Text1.Text = "" Then
MsgBox ("請輸入參數")
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox ("請輸入參數")
Text2.SetFocus
Exit Sub
End If
Dim dd As Double
Dim bb As Double
Dim cc As Double
dd = Val(Me.Text1.Text)
bb = Val(Me.Text2.Text)
cc
收藏