基于vb的直线插补与圆弧插补实验

主界面面板逐点比拟圆弧插补程序如下：PrivateSubCommand1_Click()Xe=Val(Text1.Text)Ye=Val(Text2.Text)Picture1.Scale(-20,20)-(20,-20)Picture1.ClsPicture1.Line(-20,0)-(20,0),vbBluePicture1.Line(19,1)-(20,0),vbbiuePicture1.Line-(19,-1),vbBluePicture1.Print"X"Picture1.Line(0,-20)-(0,20),vbBluePicture1.Line(1,19)-(0,20),vbBluePicture1.Line-(-1,19),vbBluePicture1.Print"Y"Picture1.Line(0,0)-(Xe,Ye),vbBluePicture1.Print"(";Xe;",";Ye;")"IfText1.Text=noneOrText2.Text=noneThenMsgBox"请输入加工终点坐标值。"Text3.Text=0Text4.Text=0Text5.Text=0EndSubPrivateSubCommand2_Click()DimsumAsIntegerXe=Val(Text1.Text)Ye=Val(Text2.Text)Xm=Val(Text3.Text)Ym=Val(Text4.Text)m=Val(Text5.Text)sum=Xe*Ym-Xm*Ye'第一象限开始IfXe>0AndYe>0Andsum>=0ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Text3.Text=Xm+1IfXe>0AndYe>0Andsum<0ThenPicture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed:Text4.Text=Ym+1IfAbs(Xm)+Abs(Ym)>=Abs(Xe)+Abs(Ye)-1ThenMsgBox"加工完毕！"'第二象限开始IfXe<0AndYe>0Andsum>=0ThenPicture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed:Text4.Text=Ym+1IfXe<0AndYe>0Andsum<0ThenPicture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Text3.Text=Xm-1IfAbs(Xm)+Abs(Ym)>=Abs(Xe)+Abs(Ye)+1ThenMsgBox"加工完毕！"'第三象限开始IfXe<0AndYe<0Andsum>=0ThenPicture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Text3.Text=Xm-1IfXe<0AndYe<0Andsum<0ThenPicture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed:Text4.Text=Ym-1IfAbs(Xm)+Abs(Ym)>=Abs(Xe)+Abs(Ye)ThenMsgBox"加工完毕！"'第四象限开始IfXe>0AndYe<0Andsum>=0ThenPicture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed:Text4.Text=Ym-1IfXe>0AndYe<0Andsum<0ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Text3.Text=Xm+1IfAbs(Xm)+Abs(Ym)>=Abs(Xe)+Abs(Ye)ThenMsgBox"加工完毕！"Text5.Text=Abs(Val(Text3.Text))+Abs(Val(Text4.Text))EndSubPrivateSubCommand3_Click()Form2.HideForm1.ShowEndSub数字积分器法圆弧插补程序如下：PrivateSubCommand1_Click()Xe=Val(Text1.Text)Ye=Val(Text2.Text)Picture1.Scale(-20,20)-(20,-20)Picture1.ClsPicture1.Line(-20,0)-(20,0),vbBluePicture1.Line(19,1)-(20,0),vbbiuePicture1.Line-(19,-1),vbBluePicture1.Print"X"Picture1.Line(0,-20)-(0,20),vbBluePicture1.Line(1,19)-(0,20),vbBluePicture1.Line-(-1,19),vbBluePicture1.Print"Y"Picture1.Line(0,0)-(Xe,Ye),vbBluePicture1.Print"(";Xe;",";Ye;")"Text3.Text=0Text4.Text=0Text5.Text=0Text6.Text=0Text7.Text=0EndSubPrivateSubCommand2_Click()Xe=Val(Text1.Text)Ye=Val(Text2.Text)ax=Val(Text3.Text)ay=Val(Text4.Text)n=Val(Text7.Text)Xm=Val(Text5.Text)Ym=Val(Text6.Text)IfText1.Text=noneOrText2.Text=noneThenMsgBox"请输入加工终点坐标值。"'终点判断a=ax+Abs(Xe)Ifa<16ThenText3.Text=aIfa>=16ThenText3.Text=a-16Ifa>=32ThenText3.Text=a-32b=ay+Abs(Ye)Ifb<16ThenText4.Text=bIfb>=16ThenText4.Text=b-16Ifb>=32ThenText4.Text=b-32'第一象限开始IfXe>0AndYe>0Anda>=16Andb<16ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Text7.Text=n+1:Text5.Text=Xm+1IfXe>0AndYe>0Anda>=16Andb>=16ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym+1),vbRed:Text7.Text=n+2:Text5.Text=Xm+1:Text6.Text=Ym+1IfXe>0AndYe>0Anda<16Andb>=16ThenPicture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed:Text7.Text=n+1:Text6.Text=Ym+1Ifn=Abs(Xe)+Abs(Ye)ThenMsgBox"错误：已经加工完毕，无法继续加工，请点击复位！"'第二象限开始IfXe<0AndYe>0Anda>=16Andb<16ThenPicture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Text7.Text=n+1:Text5.Text=Xm-1IfXe<0AndYe>0Anda>=16Andb>=16ThenPicture1.Line(Xm,Ym)-(Xm-1,Ym+1),vbRed:Text7.Text=n+2:Text5.Text=Xm-1:Text6.Text=Ym+1IfXe<0AndYe>0Anda<16Andb>=16ThenPicture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed:Text7.Text=n+1:Text6.Text=Ym+1'第三象限开始IfXe<0AndYe<0Anda>=16Andb<16ThenPicture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Text7.Text=n+1:Text5.Text=Xm-1IfXe<0AndYe<0Anda>=16Andb>=16ThenPicture1.Line(Xm,Ym)-(Xm-1,Ym-1),vbRed:Text7.Text=n+2:Text5.Text=Xm-1:Text6.Text=Ym-1IfXe<0AndYe<0Anda<16Andb>=16ThenPicture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed:Text7.Text=n+1:Text6.Text=Ym-1'第四象限开始IfXe>0AndYe<0Anda>=16Andb<16ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Text7.Text=n+1:Text5.Text=Xm+1IfXe>0AndYe<0Anda>=16Andb>=16ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym-1),vbRed:Text7.Text=n+2:Text5.Text=Xm+1:Text6.Text=Ym-1IfXe>0AndYe<0Anda<16Andb>=16ThenPicture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed:Text7.Text=n+1:Text6.Text=Ym-1'结束Ifn>=Abs(Xe)+Abs(Ye)ThenText7.Text=Abs(Xe)+Abs(Ye)Ifn=Abs(Xe)+Abs(Ye)-1Anda>=16ThenMsgBox"加工完毕！"Ifn=Abs(Xe)+Abs(Ye)-1Andb>=16ThenMsgBox"加工完毕！"Ifn=Abs(Xe)+Abs(Ye)-2Anda>=16Andb>=16ThenMsgBox"加工完毕！"EndSubPrivateSubCommand3_Click()Form3.HideForm1.ShowEndSub逐点比拟圆弧插补程序如下：DimR,a,b,Ym,Xm,Xe,YePrivateSubCommand1_Click()R=Val(Text1.Text)a=Val(Text2.Text)b=Val(Text3.Text)Xe=Val(Text4.Text)Ye=Val(Text5.Text)Xm=Val(Text6.Text)Ym=Val(Text7.Text)Picture1.Scale(-Picture1.ScaleWidth/4,Picture1.ScaleHeight/4)-(Picture1.ScaleWidth/4,-Picture1.ScaleHeight/4)Picture1.ClsPicture1.Line(-20,0)-(20,0),vbBluePicture1.Line(19,1)-(20,0),vbbiuePicture1.Line-(19,-1),vbBluePicture1.Print"X"Picture1.Line(0,-20)-(0,20),vbBluePicture1.Line(1,19)-(0,20),vbBluePicture1.Line-(-1,19),vbBluePicture1.Print"Y"Picture1.Circle(0,0),Text1,vbBlue,Text2,Text3Picture1.Print"(";Xe;",";Ye;")"Text1.Text=""Text2.Text=""Text3.Text=""Text6.Text=""Text7.Text=""EndSubPrivateSubCommand2_Click()DimsumAsSingle,Y,XIfOption1Then'逆圆弧Y=Sqr(R^2-Xm^2)X=Sqr(R^2-Ym^2)IfXm=RAndYm=0Then'一象限Picture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed:Ym=Ym+1Text7.Text=Ym+1EndIfIfXm>0AndYm>0ThenIfXm>=XThenPicture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Text6.Text=Xm-1:Xm=Xm-1ElseIfYm<YThenPicture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed:Text7.Text=Ym+1:Ym=Ym+1EndIfEndIfEndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfIfXm=0AndYm=RThen'二象限Picture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Xm=Xm-1Text6.Text=Xm-1EndIfIfXm<0AndYm>0ThenIfYm>=YThenPicture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed:Ym=Ym-1:Text7.Text=Ym-1ElseIfXm>-XThenPicture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Xm=Xm-1:Text6.Text=Xm-1EndIfEndIfEndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfIfXm=-RAndYm=0Then'三象限Picture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed:Ym=Ym-1Text7.Text=Ym-1EndIfIfXm<0AndYm<0ThenIfYm<-YThenPicture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Xm=Xm+1:Text6.Text=Xm+1ElseIfXm>-XThenPicture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed:Ym=Ym-1:Text7.Text=Ym-1EndIfEndIfEndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfIfXm=0AndYm=-RThen'四象限Picture1.Line(Xm+1,Ym)-(Xm,Ym),vbRed:Xm=Xm+1:Text6.Text=Xm+1EndIfIfXm>0AndYm<0ThenIfYm<-YThenPicture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed:Ym=Ym+1:Text7.Text=Ym+1ElseIfXm<XThenPicture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Xm=Xm+1:Text6.Text=Xm+1EndIfEndIfEndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfEndIfIfOption2Then'顺圆弧Y=Sqr(R^2-Xm^2)X=Sqr(R^2-Ym^2)IfXm=0AndYm=RThen'第一象限Picture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Xm=Xm+1:Text6.Text=Xm+1EndIfIfXm>0AndYm>0ThenIfYm>YThenPicture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed:Ym=Ym-1:Text7.Text=Ym-1ElseIfXm<XThenPicture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Xm=Xm+1:Text6.Text=Xm+1EndIfEndIfEndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfIfXm=-RAndYm=0Then'第二象限Picture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed:Ym=Ym+1:Text7.Text=Ym+1EndIfIfXm<0AndYm>0ThenIfYm<YThenPicture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed:Ym=Ym+1:Text7.Text=Ym+1ElseIfXm<-XThenPicture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Xm=Xm+1:Text6.Text=Xm+1EndIfEndIfEndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfIfXm=0AndYm=-RThen'第三象限Picture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Xm=Xm-1:Text6.Text=Xm-1EndIfIfXm<0AndYm<0ThenIfYm<-YThenPicture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed:Ym=Ym+1:Text7.Text=Ym+1ElseIfXm>-XThenPicture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Xm=Xm-1:Text6.Text=Xm-1EndIfEndIfEndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfIfXm=RAndYm=0Then'第四象限Picture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed:Ym=Ym-1:Text7.Text=Ym-1EndIfIfXm>0AndYm<0ThenIfXm>XThenPicture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Xm=Xm-1:Text6.Text=Xm-1ElseIfYm>-YThenPicture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed:Ym=Ym-1:Text7.Text=Ym-1EndIfEndIfEndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfEndIfEndSubPrivateSubCommand3_Click()Form4.HideForm1.ShowEndSub数字积分器法圆弧插补程序如下：DimR,a,b,Ym,Xm,Xe,Ye,ax,ay,m,n,s,tPrivateSubCommand1_Click()R=Val(Text1.Text)a=Val(Text2.Text)b=Val(Text3.Text)Xe=Val(Text4.Text)Ye=Val(Text5.Text)Xm=Val(Text6.Text)Ym=Val(Text7.Text)s=Val(Text8.Text)t=Val(Text9.Text)Picture1.Scale(-Picture1.ScaleWidth/4,Picture1.ScaleHeight/4)-(Picture1.ScaleWidth/4,-Picture1.ScaleHeight/4)Picture1.ClsPicture1.Line(-20,0)-(20,0),vbBluePicture1.Line(19,1)-(20,0),vbbiuePicture1.Line-(19,-1),vbBluePicture1.Print"X"Picture1.Line(0,-20)-(0,20),vbBluePicture1.Line(1,19)-(0,20),vbBluePicture1.Line-(-1,19),vbBluePicture1.Print"Y"Picture1.Circle(0,0),Text1,vbBlue,Text2,Text3Picture1.Print"(";Xe;",";Ye;")"EndSubPrivateSubCommand2_Click()IfText4.Text=noneOrText5.Text=noneThenMsgBox"请输入加工终点坐标"IfOption1Then'逆时针IfXm=RAndYm=0Then'第一象限Picture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed:Text7.Text=Ym+1:n=1:Ym=Ym+n:t=5EndIfIfXm>0AndYm>0Thens=s+YmIfs<8ThenText8.Text=s:m=0Ifs>=8ThenText8.Text=s-8:s=s-8:m=1t=t+XmIft<8ThenText9.Text=t:n=0Ift>=8ThenText9.Text=t-8:t=t-8:n=1IfXm>0AndYm>0Andm=1Andn=0ThenPicture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Text6.Text=Xm-1:Xm=Xm-mIfXm>0AndYm>0Andm=1Andn=1ThenPicture1.Line(Xm,Ym)-(Xm-1,Ym+1),vbRed:Text6.Text=Xm-1:Xm=Xm-m:Text7.Text=Ym+1:Ym=Ym+nIfXm>0AndYm>0Andm=0Andn=1ThenPicture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed::Ym=Ym+n:Text7.Text=Ym+1:EndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfIfXm=0AndYm=RThen'第二象限Picture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Text6.Text=Xm-1:m=1:Xm=Xm-m:s=5EndIfIfXm<0AndYm>0Thens=s+YmIfs<8ThenText8.Text=s:m=0Ifs>=8ThenText8.Text=s-8:s=s-8:m=1t=t+Abs(Xm)Ift<8ThenText9.Text=t:n=0Ift>=8ThenText9.Text=t-8:t=t-8:n=1IfXm<0AndYm>0Andm=1Andn=0ThenPicture1.Line(Xm,Ym)-(Xm-1,Ym),vbRed:Text6.Text=Xm-1:Xm=Xm-mIfXm<0AndYm>0Andm=1Andn=1ThenPicture1.Line(Xm,Ym)-(Xm-1,Ym-1),vbRed:Text6.Text=Xm-1:Xm=Xm-m:Text7.Text=Ym-1:Ym=Ym-nIfXm<0AndYm>0Andm=0Andn=1ThenPicture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed::Ym=Ym-n:Text7.Text=Ym-1:EndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfIfXm=-RAndYm=0Then'第三象限Picture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed:Text7.Text=Ym-1:n=1:Ym=Ym-n:t=5EndIfIfXm<0AndYm<0Thens=s+Abs(Ym)Ifs<8ThenText8.Text=s:m=0Ifs>=8ThenText8.Text=s-8:s=s-8:m=1t=t+Abs(Xm)Ift<8ThenText9.Text=t:n=0Ift>=8ThenText9.Text=t-8:t=t-8:n=1IfXm<0AndYm<0Andm=1Andn=0ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Text6.Text=Xm+1:Xm=Xm+mIfXm<0AndYm<0Andm=1Andn=1ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym-1),vbRed:Text6.Text=Xm+1:Xm=Xm+m:Text7.Text=Ym-1:Ym=Ym-nIfXm<0AndYm<0Andm=0Andn=1ThenPicture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed::Ym=Ym-n:Text7.Text=Ym-1:EndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfIfXm=0AndYm=-RThen'第四象限Picture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Text6.Text=Xm+1:m=1:Xm=Xm+m:s=5EndIfIfXm>0AndYm<0Thens=s+Abs(Ym)Ifs<8ThenText8.Text=s:m=0Ifs>=8ThenText8.Text=s-8:s=s-8:m=1t=t+XmIft<8ThenText9.Text=t:n=0Ift>=8ThenText9.Text=t-8:t=t-8:n=1IfXm>0AndYm<0Andm=1Andn=0ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Text6.Text=Xm+1:Xm=Xm+mIfXm>0AndYm<0Andm=1Andn=1ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym+1),vbRed:Text6.Text=Xm+1:Xm=Xm+m:Text7.Text=Ym+1:Ym=Ym+nIfXm>0AndYm<0Andm=0Andn=1ThenPicture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed::Ym=Ym+n:Text7.Text=Ym+1:EndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfEndIfIfOption2Then'顺时针IfXm=0AndYm=RThen'第一象限Picture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Text6.Text=Xm+1:m=1:Xm=Xm+m:s=5EndIfIfXm>0AndYm>0Thens=s+YmIfs<8ThenText8.Text=s:m=0Ifs>=8ThenText8.Text=s-8:s=s-8:m=1t=t+XmIft<8ThenText9.Text=t:n=0Ift>=8ThenText9.Text=t-8:t=t-8:n=1IfXm>0AndYm>0Andm=1Andn=0ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Text6.Text=Xm+1:Xm=Xm+mIfXm>0AndYm>0Andm=1Andn=1ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym-1),vbRed:Text6.Text=Xm+1:Xm=Xm+m:Text7.Text=Ym-1:Ym=Ym-nIfXm>0AndYm>0Andm=0Andn=1ThenPicture1.Line(Xm,Ym)-(Xm,Ym-1),vbRed::Ym=Ym-n:Text7.Text=Ym-1:EndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfIfXm=-RAndYm=0Then'第二象限Picture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed:Text7.Text=Ym+1:n=1:Ym=Ym+n:t=5EndIfIfXm<0AndYm>0Thens=s+YmIfs<8ThenText8.Text=s:m=0Ifs>=8ThenText8.Text=s-8:s=s-8:m=1t=t+Abs(Xm)Ift<8ThenText9.Text=t:n=0Ift>=8ThenText9.Text=t-8:t=t-8:n=1IfXm<0AndYm>0Andm=1Andn=0ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym),vbRed:Text6.Text=Xm+1:Xm=Xm+mIfXm<0AndYm>0Andm=1Andn=1ThenPicture1.Line(Xm,Ym)-(Xm+1,Ym+1),vbRed:Text6.Text=Xm+1:Xm=Xm+m:Text7.Text=Ym+1:Ym=Ym+nIfXm<0AndYm>0Andm=0Andn=1ThenPicture1.Line(Xm,Ym)-(Xm,Ym+1),vbRed::Ym=Ym+n:Text7.Text=Ym+1:EndIfIfXm=XeAndYm=YeThenMsgBox"加工完成！"EndIfIfXm