機(jī)床夾具常用計算計算機(jī)輔助設(shè)計含開題報告及文獻(xiàn)綜述、任務(wù)書
機(jī)床夾具常用計算計算機(jī)輔助設(shè)計含開題報告及文獻(xiàn)綜述、任務(wù)書,機(jī)床,夾具,常用,經(jīng)常使用,計算,計算機(jī)輔助設(shè)計,開題,報告,講演,呈文,文獻(xiàn),綜述,任務(wù)書
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ī)床夾具常用計算End SubPrivate Sub Label2_Click()Label2.Caption = 設(shè)計者:董江浩End SubPrivate Sub Label3_Click()Label3.Caption = 指導(dǎo)教師:于靖華End SubForm2Option ExplicitConst PI# = 3.1415926 定義符號常亮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形塊的計算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 (請輸入?yún)?shù))Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox (請輸入?yún)?shù))Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請輸入?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ù)點后4位hh = 2 * Tan(ff * PI / 180) / 2)hh = Fix(hh * 10000 + 0.5) / 10000 保留小數(shù)點后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, , 計算結(jié)果ElseIf ff = 90 Then 如果a等于90Text1.Text = ssMsgBox ss, , 計算結(jié)果ElseIf ff = 120 Then 如果a等于120Text1.Text = kkMsgBox kk, , 計算結(jié)果ElseText1.Text = iiMsgBox ii, , 計算結(jié)果End IfEnd SubPrivate Sub Command2_Click()If Text2.Text = ThenMsgBox (請輸入?yún)?shù))Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox (請輸入?yún)?shù))Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請輸入?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ù)點后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, , 計算結(jié)果ElseIf ff = 90 Then 如果a等于90Text7.Text = xxMsgBox xx, , 計算結(jié)果ElseIf ff = 120 Then 如果a等于120Text7.Text = zzMsgBox zz, , 計算結(jié)果Else Text7.Text = nnMsgBox nn, , 計算結(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 (請輸入?yún)?shù))Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox (請輸入?yún)?shù))Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox (請輸入?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, , 計算結(jié)果Text8.Text = eeEnd SubPrivate Sub Command2_Click()If Text7.Text = ThenMsgBox (請輸入?yún)?shù))Text7.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請輸入?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, , 計算結(jié)果Text9.Text = ggEnd SubPrivate Sub Command3_Click()If Text7.Text = ThenMsgBox (請輸入?yún)?shù))Text7.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請輸入?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, , 計算結(jié)果Text10.Text = ggEnd SubPrivate Sub Command4_Click()If Text7.Text = ThenMsgBox (請輸入?yún)?shù))Text7.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請輸入?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, , 實際高度ElseText11.Text = kkMsgBox kk, , 實際高度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 = 定位稍高度的計算Label7.Caption = 以一個定位稍定位Label8.Caption = 以兩個定位稍定位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 定義符號常亮PI代表Private Sub Command1_Click()If Text1.Text = ThenMsgBox (請輸入?yún)?shù))Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox (請輸入?yún)?shù))Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox (請輸入?yún)?shù))Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請輸入?yún)?shù))Text6.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox (請輸入?yún)?shù))Text7.SetFocusExit SubEnd IfIf Text8.Text = ThenMsgBox (請輸入?yún)?shù))Text8.SetFocusExit SubEnd IfIf Text9.Text = ThenMsgBox (請輸入?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ù)點后4位ss = aa * bb * jjss = Fix(ss * 10000 + 0.5) / 10000 保留小數(shù)點后4位kk = dd * hh * iikk = Fix(kk * 10000 + 0.5) / 10000 保留小數(shù)點后4位oo = ee * hhpp = ss / (oo + kk)pp = Fix(pp * 10000 + 0.5) / 10000 保留小數(shù)點后4位MsgBox pp, , 計算結(jié)果Text16.Text = ppEnd SubPrivate Sub Command2_Click()If Text1.Text = ThenMsgBox (請輸入?yún)?shù))Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox (請輸入?yún)?shù))Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox (請輸入?yún)?shù))Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請輸入?yún)?shù))Text6.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox (請輸入?yún)?shù))Text7.SetFocusExit SubEnd IfIf Text8.Text = ThenMsgBox (請輸入?yún)?shù))Text8.SetFocusExit SubEnd IfIf Text9.Text = ThenMsgBox (請輸入?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ù)點后4位ss = aa * ii * jjss = Fix(ss * 10000 + 0.5) / 10000 保留小數(shù)點后4位kk = ff * jjkk = Fix(kk * 10000 + 0.5) / 10000 保留小數(shù)點后4位oo = ss / (kk + gg)oo = Fix(oo * 10000 + 0.5) / 10000 保留小數(shù)點后4位MsgBox oo, , 計算結(jié)果Text17.Text = ooEnd SubPrivate Sub Command3_Click()If Text10.Text = ThenMsgBox (請輸入?yún)?shù))Text10.SetFocusExit SubEnd IfIf Text11.Text = ThenMsgBox (請輸入?yún)?shù))Text11.SetFocusExit SubEnd IfIf Text12.Text = ThenMsgBox (請輸入?yún)?shù))Text12.SetFocusExit SubEnd IfIf Text13.Text = ThenMsgBox (請輸入?yún)?shù))Text13.SetFocusExit SubEnd IfIf Text14.Text = ThenMsgBox (請輸入?yún)?shù))Text14.SetFocusExit SubEnd IfIf Text15.Text = ThenMsgBox (請輸入?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ù)點后4位hh = 2 * ee + ff + cc * gghh = Fix(hh * 10000 + 0.5) / 10000 保留小數(shù)點后4位ii = 2 * aa * bbjj = ii / hhjj = Fix(jj * 10000 + 0.5) / 10000 保留小數(shù)點后4位MsgBox jj, , 計算結(jié)果Text19.Text = jjEnd SubPrivate Sub Command4_Click()If Text1.Text = ThenMsgBox (請輸入?yún)?shù))Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox (請輸入?yún)?shù))Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox (請輸入?yún)?shù))Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox (請輸入?yún)?shù))Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox (請輸入?yún)?shù))Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox (請輸入?yún)?shù))Text6.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox (請輸入?yún)?shù))Text7.SetFocusExit SubEnd IfIf Text8.Text = ThenMsgBox (請輸入?yún)?shù))Text8.SetFocusExit SubEnd IfIf Text9.Text = ThenMsgBox (請輸入?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ù)點后4位ss = aa * bb * jjss = Fix(ss * 10000 + 0.5) / 10000 保留小數(shù)點后4位kk = dd * hh * jjkk = Fix(kk * 10000 + 0.5) / 10000 保留小數(shù)點后4位oo = ee * hhpp = ss / (oo + kk)pp = Fix(pp * 10000 + 0.5) / 10000 保留小數(shù)點后4位uu = aa * ii * jjuu = Fix(uu * 10000 + 0.5) / 10000 保留小數(shù)點后4位vv = ff * jjvv = Fix(vv * 10000 + 0.5) / 10000 保留小數(shù)點后4位rr = uu / (vv + gg)rr = Fix(rr * 10000 + 0.5) / 10000 保留小數(shù)點后4位If pp rr ThenText18.Text = ppMsgBox pp, , 計算結(jié)果ElseText18.Text = rrMsgBox rr, , 計算結(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 = 一個水平面Label2.Caption = 兩個垂直平面Label3.Caption = 兩個平行平面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)為一圓孔及兩個垂直平面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 (請輸入?yún)?shù))Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox (請輸入?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
收藏