機(jī)床夾具常用計(jì)算計(jì)算機(jī)輔助設(shè)計(jì)
機(jī)床夾具常用計(jì)算計(jì)算機(jī)輔助設(shè)計(jì),機(jī)床,夾具,常用,經(jīng)常使用,計(jì)算,計(jì)算機(jī)輔助設(shè)計(jì)
Form1Option ExplicitPrivate Sub a1_Click()Form2.ShowEnd SubPrivate Sub a2_Click()Form3.ShowEnd SubPrivate Sub a3_Click()Form4.ShowEnd SubPrivate Sub a4_Click()Form5.ShowEnd SubPrivate Sub b1_Click()Form6.ShowEnd SubPrivate Sub b2_Click()Form7.ShowEnd SubPrivate Sub c1_Click()Form8.ShowEnd SubPrivate Sub c2_Click()Form11.ShowEnd SubPrivate Sub exit_Click()EndEnd SubPrivate Sub Form_Load()Form1.Width = 17000 Form1.Height = 10000End SubPrivate Sub Label1_Click()Label1.Caption = 機(jī)床夾具常用計(jì)算End SubPrivate Sub Label2_Click()Label2.Caption = 設(shè)計(jì)者:董江浩End SubPrivate Sub Label3_Click()Label3.Caption = 指導(dǎo)教師:于靖華End SubForm2Option ExplicitConst PI# = 3.1415926 定義符號(hào)常亮PI代表Private Sub Command3_Click()Text2.Text = 20Text3.Text = 24Text4.Text = 23Text5.Text = 12Text6.Text = 90End SubPrivate Sub Form_Load()Form2.Width = 17000Form2.Height = 10000Form2.Caption = V形塊的計(jì)算Label1.Caption = H:Label3.Caption = D:Label5.Caption = N:Label7.Caption = d:Label9.Caption = a:Command1.Caption = TCommand2.Caption = yText2 = : Text3 = : Text4 = : Text5 = : Text6 = End SubPrivate Sub Command1_Click()If Text2.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text6.SetFocusExit SubEnd IfDim bb As IntegerDim cc As IntegerDim dd As IntegerDim ee As IntegerDim ff As DoubleDim gg As DoubleDim hh As DoubleDim ii As IntegerDim jj As IntegerDim ss As IntegerDim kk As Integerbb = 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 * ccss = bb + 0.707 * dd - 0.5 * cckk = bb + 0.577 * dd - 0.289 * ccIf ff = 60 Then 如果a等于60Text1.Text = jjMsgBox jj, , 計(jì)算結(jié)果ElseIf ff = 90 Then 如果a等于90Text1.Text = ssMsgBox ss, , 計(jì)算結(jié)果ElseIf ff = 120 Then 如果a等于120Text1.Text = kkMsgBox kk, , 計(jì)算結(jié)果ElseText1.Text = iiMsgBox ii, , 計(jì)算結(jié)果End IfEnd SubPrivate Sub Command2_Click()If Text2.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text6.SetFocusExit SubEnd IfDim bb As IntegerDim cc As IntegerDim dd As IntegerDim ee As IntegerDim ff As IntegerDim pp As DoubleDim nn As IntegerDim vv As IntegerDim xx As IntegerDim zz As Integerbb = 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) / ppvv = dd - eexx = 0.707 * (dd - ee)zz = 0.577 * (dd - ee)If ff = 60 Then 如果a等于60Text7.Text = vvMsgBox vv, , 計(jì)算結(jié)果ElseIf ff = 90 Then 如果a等于90Text7.Text = xxMsgBox xx, , 計(jì)算結(jié)果ElseIf ff = 120 Then 如果a等于120Text7.Text = zzMsgBox zz, , 計(jì)算結(jié)果Else Text7.Text = nnMsgBox nn, , 計(jì)算結(jié)果End IfEnd SubForm3Option ExplicitPrivate Sub Form_Load()Form3.Width = 17000Form3.Height = 10000End SubPrivate Sub Label1_Click()End SubPrivate Sub Picture1_Click()End SubForm4Option ExplicitPrivate Sub Form_Load()Form4.Width = 17000Form4.Height = 10000End SubPrivate Sub Label1_Click()End SubPrivate Sub Picture1_Click()End SubForm5Option ExplicitPrivate Sub Command1_Click()If Text1.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text3.SetFocusExit SubEnd IfDim aa As IntegerDim bb As IntegerDim cc As IntegerDim dd As IntegerDim ff As IntegerDim ee As Integeraa = Val(Me.Text1.Text)bb = Val(Me.Text2.Text)cc = Val(Me.Text3.Text)dd = Sqr(2 * aa * cc)ff = (bb + 0.5 * aa) * ddee = ff / aaMsgBox ee, , 計(jì)算結(jié)果Text8.Text = eeEnd SubPrivate Sub Command2_Click()If Text7.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text7.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text6.SetFocusExit SubEnd IfDim aa As IntegerDim bb As IntegerDim cc As IntegerDim dd As IntegerDim ff As IntegerDim ee As IntegerDim gg As Integeraa = 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) * ffgg = ee / (aa + cc)MsgBox gg, , 計(jì)算結(jié)果Text9.Text = ggEnd SubPrivate Sub Command3_Click()If Text7.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text7.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text6.SetFocusExit SubEnd IfDim aa As IntegerDim bb As IntegerDim cc As IntegerDim dd As IntegerDim ff As IntegerDim ee As IntegerDim gg As Integeraa = 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) * ffgg = ee / ccMsgBox gg, , 計(jì)算結(jié)果Text10.Text = ggEnd SubPrivate Sub Command4_Click()If Text7.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text7.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text6.SetFocusExit SubEnd IfDim aa As IntegerDim bb As IntegerDim cc As IntegerDim dd As IntegerDim ff As IntegerDim ee As IntegerDim gg As IntegerDim kk As IntegerDim ss As IntegerDim ll As Integeraa = 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) * ffkk = gg / (aa + cc)ee = Sqr(2 * cc * dd)ss = (bb + 0.5 * cc) * eell = ss / ccIf kk ll ThenText11.Text = llMsgBox ll, , 實(shí)際高度ElseText11.Text = kkMsgBox kk, , 實(shí)際高度End IfEnd SubPrivate Sub Command5_Click()Text1.Text = 2.5Text2.Text = 12Text3.Text = 1End SubPrivate Sub Command6_Click()Text4.Text = 20Text5.Text = 12Text6.Text = 2.5Text7.Text = 1End SubPrivate Sub Form_Load()Form5.Width = 17000Form5.Height = 10000Form14.Caption = 定位稍高度的計(jì)算Label7.Caption = 以一個(gè)定位稍定位Label8.Caption = 以兩個(gè)定位稍定位Label9.Caption = DLabel10.Caption = LLabel11.Caption = minLabel12.Caption = LLabel13.Caption = lLabel14.Caption = DLabel15.Caption = minCommand1.Caption = HCommand2.Caption = H1Command3.Caption = H2Command4.Caption = HEnd SubForm6Option ExplicitPrivate Sub Command1_Click()Form10.ShowEnd SubPrivate Sub Command2_Click()Form12.ShowEnd SubPrivate Sub Command3_Click()Form13.ShowEnd SubPrivate Sub Command4_Click()Form14.ShowEnd SubPrivate Sub Command5_Click()Form15.ShowEnd SubPrivate Sub Command6_Click()Form16.ShowEnd SubPrivate Sub Form_Load()Form6.Width = 17000Form6.Height = 10000End SubForm7Option ExplicitPrivate Sub Form_Load()Form7.Width = 17000Form7.Height = 10000End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Frame3_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Label5_Click()End SubForm8Option ExplicitPrivate Sub Form_Load()Form8.Width = 17000Form8.Height = 10000End SubPrivate Sub Label10_Click()End SubPrivate Sub Label11_Click()End SubPrivate Sub Label3_Click()End SubPrivate Sub Label4_Click()End SubPrivate Sub Label5_Click()End SubPrivate Sub Label6_Click()End SubPrivate Sub Label7_Click()End SubPrivate Sub Label8_Click()End SubPrivate Sub Label9_Click()End SubPrivate Sub Picture2_Click()End SubForm9Option ExplicitConst PI# = 3.1415926 定義符號(hào)常亮PI代表Private Sub Command1_Click()If Text1.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text6.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text7.SetFocusExit SubEnd IfIf Text8.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text8.SetFocusExit SubEnd IfIf Text9.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text9.SetFocusExit SubEnd IfDim aa As DoubleDim bb As DoubleDim cc As DoubleDim dd As DoubleDim ee As DoubleDim ff As DoubleDim gg As DoubleDim hh As DoubleDim ii As DoubleDim jj As DoubleDim ss As DoubleDim kk As DoubleDim oo As DoubleDim pp As Doubleaa = 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 * jjss = Fix(ss * 10000 + 0.5) / 10000 保留小數(shù)點(diǎn)后4位kk = dd * hh * iikk = Fix(kk * 10000 + 0.5) / 10000 保留小數(shù)點(diǎn)后4位oo = ee * hhpp = ss / (oo + kk)pp = Fix(pp * 10000 + 0.5) / 10000 保留小數(shù)點(diǎn)后4位MsgBox pp, , 計(jì)算結(jié)果Text16.Text = ppEnd SubPrivate Sub Command2_Click()If Text1.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text6.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text7.SetFocusExit SubEnd IfIf Text8.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text8.SetFocusExit SubEnd IfIf Text9.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text9.SetFocusExit SubEnd IfDim aa As DoubleDim bb As DoubleDim cc As DoubleDim dd As DoubleDim ee As DoubleDim ff As DoubleDim gg As DoubleDim hh As DoubleDim ii As DoubleDim jj As DoubleDim ss As DoubleDim kk As DoubleDim oo As Doubleaa = 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 * jjss = Fix(ss * 10000 + 0.5) / 10000 保留小數(shù)點(diǎn)后4位kk = ff * jjkk = 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 = ooEnd SubPrivate Sub Command3_Click()If Text10.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text10.SetFocusExit SubEnd IfIf Text11.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text11.SetFocusExit SubEnd IfIf Text12.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text12.SetFocusExit SubEnd IfIf Text13.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text13.SetFocusExit SubEnd IfIf Text14.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text14.SetFocusExit SubEnd IfIf Text15.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text15.SetFocusExit SubEnd IfDim aa As DoubleDim bb As DoubleDim cc As DoubleDim dd As DoubleDim ee As DoubleDim ff As DoubleDim gg As DoubleDim hh As DoubleDim ii As DoubleDim jj As Doubleaa = 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 * gghh = Fix(hh * 10000 + 0.5) / 10000 保留小數(shù)點(diǎn)后4位ii = 2 * aa * bbjj = ii / hhjj = Fix(jj * 10000 + 0.5) / 10000 保留小數(shù)點(diǎn)后4位MsgBox jj, , 計(jì)算結(jié)果Text19.Text = jjEnd SubPrivate Sub Command4_Click()If Text1.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text6.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text7.SetFocusExit SubEnd IfIf Text8.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text8.SetFocusExit SubEnd IfIf Text9.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text9.SetFocusExit SubEnd IfDim aa As DoubleDim bb As DoubleDim cc As DoubleDim dd As DoubleDim ee As DoubleDim ff As DoubleDim gg As DoubleDim hh As DoubleDim ii As DoubleDim jj As DoubleDim ss As DoubleDim kk As DoubleDim oo As DoubleDim pp As DoubleDim vv As DoubleDim uu As DoubleDim rr As Doubleaa = 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 * jjss = Fix(ss * 10000 + 0.5) / 10000 保留小數(shù)點(diǎn)后4位kk = dd * hh * jjkk = Fix(kk * 10000 + 0.5) / 10000 保留小數(shù)點(diǎn)后4位oo = ee * hhpp = ss / (oo + kk)pp = Fix(pp * 10000 + 0.5) / 10000 保留小數(shù)點(diǎn)后4位uu = aa * ii * jjuu = Fix(uu * 10000 + 0.5) / 10000 保留小數(shù)點(diǎn)后4位vv = ff * jjvv = 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 ThenText18.Text = ppMsgBox pp, , 計(jì)算結(jié)果ElseText18.Text = rrMsgBox rr, , 計(jì)算結(jié)果End IfEnd SubPrivate Sub Command5_Click()Text1.Text = 1.5Text2.Text = 24Text3.Text = 30Text4.Text = 0.2Text5.Text = 0.4Text6.Text = 0.6Text7.Text = 0.8Text8.Text = 10Text9.Text = 20End SubPrivate Sub Command6_Click()Text10.Text = 1.5Text11.Text = 24Text12.Text = 30Text13.Text = 2Text14.Text = 30Text15.Text = 0.6End SubPrivate Sub Form_Load()Form9.Width = 17000Form9.Height = 10000End SubForm10Private Sub Form_Load()Form10.Width = 17000Form10.Height = 10000Form10.Caption = 定位基準(zhǔn)為平面Label1.Caption = 一個(gè)水平面Label2.Caption = 兩個(gè)垂直平面Label3.Caption = 兩個(gè)平行平面Option1.Caption = =90,yAOption2.Caption = 90,yAOption3.Caption = yAOption4.Caption = yBOption5.Caption = End SubPrivate Sub Option1_Click()MsgBox yA=hctg, , 定位誤差End SubPrivate Sub Option2_Click()MsgBox yA=hctg()-ctg, , 定位誤差End SubPrivate Sub Option3_Click()MsgBox yA=0, , 定位誤差End SubPrivate Sub Option4_Click()MsgBox yB=, , 定位誤差End SubPrivate Sub Option5_Click()MsgBox = arctg( / L), , 定位誤差End SubPrivate Sub Picture1_Click()End SubPrivate Sub Picture2_Click()End SubPrivate Sub Picture3_Click()End SubForm11Option ExplicitPrivate Sub Command1_Click()Form17.ShowEnd SubPrivate Sub Command10_Click()Form25.ShowEnd SubPrivate Sub Command2_Click()Form18.ShowEnd SubPrivate Sub Command3_Click()Form19.ShowEnd SubPrivate Sub Command4_Click()Form20.ShowEnd SubPrivate Sub Command5_Click()Form21.ShowEnd SubPrivate Sub Command6_Click()Form22.ShowEnd SubPrivate Sub Command7_Click()Form23.ShowEnd SubPrivate Sub Command8_Click()Form9.ShowEnd SubPrivate Sub Command9_Click()Form24.ShowEnd SubPrivate Sub Form_Load()Form11.Width = 17000Form11.Height = 10000End SubForm12Option ExplicitPrivate Sub Form_Load()Form12.Width = 17000Form12.Height = 10000Form12.Caption = 定位基準(zhǔn)為一孔及一平面Option1.Caption = y徑向Option2.Caption = yxOption3.Caption = yzEnd SubPrivate Sub Option1_Click()MsgBox y徑向=D+d+min, , 定位誤差End SubPrivate Sub Option2_Click()MsgBox yx=0, , 定位誤差End SubPrivate Sub Option3_Click()MsgBox yz=1/2(D+d), , 定位誤差End SubPrivate Sub Picture1_Click()End SubPrivate Sub Picture2_Click()End SubForm13Option ExplicitPrivate Sub Form_Load()Form13.Width = 17000Form13.Height = 10000Form13.Caption = 定位基準(zhǔn)為一圓孔及兩個(gè)垂直平面Option1.Caption = yyOption2.Caption = yxOption3.Caption = Option4.Caption = End SubPrivate Sub Option1_Click()MsgBox yy=0, , 定位誤差End SubPrivate Sub Option2_Click()MsgBox yx=max, , 定位誤差End SubPrivate Sub Option3_Click()MsgBox =arctg(2Lg+Lx)/L1), , 定位誤差End SubPrivate Sub Option4_Click()MsgBox arctg(Lg+Lx)/L2), , 定位誤差End SubPrivate Sub Label4_Click()End SubPrivate Sub Label5_Click()End SubPrivate Sub Label7_Click()End SubPrivate Sub Label8_Click()End SubPrivate Sub Picture1_Click()End SubPrivate Sub Picture2_Click()End SubPrivate Sub Picture3_Click()End SubForm14Option ExplicitPrivate Sub Form_Load()Form14.Width = 17000Form14.Height = 10000Form14.Caption = 定位基準(zhǔn)為一平面及兩圓孔Option1.Caption = =90,yAEnd SubPrivate Sub Option1_Click()MsgBox =arctg(1max+2max)/2L), , 定位誤差End SubPrivate Sub Label1_Click()End SubPrivate Sub Label3_Click()End SubPrivate Sub Picture1_Click()End SubForm15Option ExplicitPrivate Sub Command1_Click()Text1.Text = 20Text2.Text = 24End SubPrivate Sub Command2_Click()Text3.Text = 20Text4.Text = 24Text5.Text = 23End SubPrivate Sub Command3_Click()Text6.Text = 20Text7.Text = 24Text8.Text = 23Text9.Text = 12End SubPrivate Sub Form_Load()Form15.Width = 17000Form15.Height = 10000Form15.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 = yAOption2.Caption = yBOption3.Caption = yCOption4.Caption = yDOption5.Caption = yAOption1.Caption = yBOption2.Caption = yCOption3.Caption = yAOption4.Caption = yBOption5.Caption = yCEnd SubPrivate Sub Option1_Click()If Text1.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox (請(qǐng)輸入?yún)?shù))Text2.SetFocusExit SubEnd IfDim dd As DoubleDim bb As DoubleDim cc As Doubledd = Val(Me.Text1.Text)bb = Val(Me.Text2.Text)cc
收藏