機(jī)床夾具常用計(jì)算計(jì)算機(jī)輔助設(shè)計(jì)含開題報(bào)告及文獻(xiàn)綜述、任務(wù)書
機(jī)床夾具常用計(jì)算計(jì)算機(jī)輔助設(shè)計(jì)含開題報(bào)告及文獻(xiàn)綜述、任務(wù)書,機(jī)床,夾具,常用,經(jīng)常使用,計(jì)算,計(jì)算機(jī)輔助設(shè)計(jì),開題,報(bào)告,講演,呈文,文獻(xiàn),綜述,任務(wù)書
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 = "機(jī)床夾具常用計(jì)算"
End Sub
Private Sub Label2_Click()
Label2.Caption = "設(shè)計(jì)者：董江浩"
End Sub
Private Sub Label3_Click()
Label3.Caption = "指導(dǎo)教師：于靖華"
End Sub
Form2
Option Explicit
Const PI# = 3.1415926 '定義符號(hào)常亮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形塊的計(jì)算"
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 ("請(qǐng)輸入?yún)?shù)")
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text3.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
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 '保留小數(shù)點(diǎn)后4位
hh = 2 * Tan((ff * PI / 180) / 2)
hh = Fix(hh * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后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, , "計(jì)算結(jié)果"
ElseIf ff = 90 Then '如果a等于90°
Text1.Text = ss
MsgBox ss, , "計(jì)算結(jié)果"
ElseIf ff = 120 Then '如果a等于120°
Text1.Text = kk
MsgBox kk, , "計(jì)算結(jié)果"
Else
Text1.Text = ii
MsgBox ii, , "計(jì)算結(jié)果"
End If
End Sub
Private Sub Command2_Click()
If Text2.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text3.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
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 '保留小數(shù)點(diǎn)后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, , "計(jì)算結(jié)果"
ElseIf ff = 90 Then '如果a等于90°
Text7.Text = xx
MsgBox xx, , "計(jì)算結(jié)果"
ElseIf ff = 120 Then '如果a等于120°
Text7.Text = zz
MsgBox zz, , "計(jì)算結(jié)果"
Else Text7.Text = nn
MsgBox nn, , "計(jì)算結(jié)果"
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 ("請(qǐng)輸入?yún)?shù)")
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
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, , "計(jì)算結(jié)果"
Text8.Text = ee
End Sub
Private Sub Command2_Click()
If Text7.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text7.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
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, , "計(jì)算結(jié)果"
Text9.Text = gg
End Sub
Private Sub Command3_Click()
If Text7.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text7.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
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, , "計(jì)算結(jié)果"
Text10.Text = gg
End Sub
Private Sub Command4_Click()
If Text7.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text7.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
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, , "實(shí)際高度"
Else
Text11.Text = kk
MsgBox kk, , "實(shí)際高度"
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 = "定位稍高度的計(jì)算"
Label7.Caption = "以一個(gè)定位稍定位"
Label8.Caption = "以兩個(gè)定位稍定位"
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 '定義符號(hào)常亮PI代表π
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text3.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text6.SetFocus
Exit Sub
End If
If Text7.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text7.SetFocus
Exit Sub
End If
If Text8.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text8.SetFocus
Exit Sub
End If
If Text9.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
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 '保留小數(shù)點(diǎn)后4位
ss = aa * bb * jj
ss = Fix(ss * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
kk = dd * hh * ii
kk = Fix(kk * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
oo = ee * hh
pp = ss / (oo + kk)
pp = Fix(pp * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
MsgBox pp, , "計(jì)算結(jié)果"
Text16.Text = pp
End Sub
Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text3.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text6.SetFocus
Exit Sub
End If
If Text7.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text7.SetFocus
Exit Sub
End If
If Text8.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text8.SetFocus
Exit Sub
End If
If Text9.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
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 '保留小數(shù)點(diǎn)后4位
ss = aa * ii * jj
ss = Fix(ss * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
kk = ff * jj
kk = Fix(kk * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
oo = ss / (kk + gg)
oo = Fix(oo * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
MsgBox oo, , "計(jì)算結(jié)果"
Text17.Text = oo
End Sub
Private Sub Command3_Click()
If Text10.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text10.SetFocus
Exit Sub
End If
If Text11.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text11.SetFocus
Exit Sub
End If
If Text12.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text12.SetFocus
Exit Sub
End If
If Text13.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text13.SetFocus
Exit Sub
End If
If Text14.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text14.SetFocus
Exit Sub
End If
If Text15.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
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 '保留小數(shù)點(diǎn)后4位
hh = 2 * ee + ff + cc * gg
hh = Fix(hh * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
ii = 2 * aa * bb
jj = ii / hh
jj = Fix(jj * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
MsgBox jj, , "計(jì)算結(jié)果"
Text19.Text = jj
End Sub
Private Sub Command4_Click()
If Text1.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text3.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text6.SetFocus
Exit Sub
End If
If Text7.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text7.SetFocus
Exit Sub
End If
If Text8.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
Text8.SetFocus
Exit Sub
End If
If Text9.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
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 '保留小數(shù)點(diǎn)后4位
ss = aa * bb * jj
ss = Fix(ss * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
kk = dd * hh * jj
kk = Fix(kk * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
oo = ee * hh
pp = ss / (oo + kk)
pp = Fix(pp * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
uu = aa * ii * jj
uu = Fix(uu * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
vv = ff * jj
vv = Fix(vv * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
rr = uu / (vv + gg)
rr = Fix(rr * 10000 + 0.5) / 10000 '保留小數(shù)點(diǎn)后4位
If pp > rr Then
Text18.Text = pp
MsgBox pp, , "計(jì)算結(jié)果"
Else
Text18.Text = rr
MsgBox rr, , "計(jì)算結(jié)果"
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 = "定位基準(zhǔn)為平面"
Label1.Caption = "一個(gè)水平面"
Label2.Caption = "兩個(gè)垂直平面"
Label3.Caption = "兩個(gè)平行平面"
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 = "定位基準(zhǔn)為一孔及一平面"
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 = "定位基準(zhǔn)為一圓孔及兩個(gè)垂直平面"
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 = "定位基準(zhǔn)為一平面及兩圓孔"
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 = "定位基準(zhǔn)為圓柱面"
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 ("請(qǐng)輸入?yún)?shù)")
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox ("請(qǐng)輸入?yún)?shù)")
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
收藏