资源描述：
《逐点比较法圆弧插补代码VB》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、VB界面：直线插补和圆弧插补的程序代码：Dimx1%,y1%,x2%,y2%,p!DimDiAsIntegerConstPI=3.14159PrivateSubcmdShow_Click()x1=Val(Text1(0)):y1=Val(Text1(1))x2=Val(Text1(2)):y2=Val(Text1(3))pic.Clsaxispicp=Val(Combo1.Text)cmdShow.Enabled=FalseIfOption1.ValueThenpic.Circle(x1,y1),0.1,vbBlackpic.Circle(x2,y2),0.1,
2、vbBlackzhixianpic,x1,y1,x2,y2ElseIfOption2.ValueThenpic.Circle(x1,y1),0.1,vbBlackpic.Circle(x2,y2),0.1,vbBlackIfx1^2+y1^2=x2^2+y2^2Thenyuanhupic,x1,y1,x2,y2ElseMsgBox"ERROR！请重新输入！",vbCriticalEndIfEndIfcmdShow.Enabled=TrueEndSubPrivateSubzhixian(objAsObject,xi%,yi%,xj%,yj%)Dimx!,y!f=0
3、x=xi:y=yiobj.Line(xi,yi)-(xj,yj),vbBlackobj.CurrentX=xobj.CurrentY=yn=(Abs(xj-xi)+Abs(yj-yi))/pWhilen<>0Iff>=0ThenIfxj<>xiThenx=x+(xj-xi)/Abs(xj-xi)*pElsey=y+(yj-yi)/Abs(yj-yi)*pEndIff=f-Abs(yj-yi)ElseIfyj<>yiTheny=y+(yj-yi)/Abs(yj-yi)*pEndIff=f+Abs(xj-xi)EndIfobj.Line-(x,y),vbRedn=n
4、-1DoEventsFori=1To2000000*pNextiWendEndSubPrivateSubForm_Load()IfApp.PrevInstanceThenEndCombo1.Text=Combo1.List(6)pic.Height=460pic.Width=460pic.Scale(-12,12)-(12,-12)axispicEndSubPrivateSubaxis(objAsObject)obj.Line(-obj.ScaleWidth/2+0.5,0)-(obj.ScaleWidth/2-0.5,0)obj.Line-(obj.Scale
5、Width/2-1,0.2)obj.Line(obj.ScaleWidth/2-0.5,0)-(obj.ScaleWidth/2-1,-0.2)obj.Line(0,obj.ScaleHeight/2+0.5)-(0,-obj.ScaleHeight/2-0.5)obj.Line-(-0.2,-obj.ScaleHeight/2-1)obj.Line(0,-obj.ScaleHeight/2-0.5)-(0.2,-obj.ScaleHeight/2-1)obj.Font.Size=9Forcx=-10To10Step1obj.Line(cx,0)-(cx,0.2
6、)Ifcx<>0Thenobj.CurrentX=cx-0.3obj.CurrentY=-0.2obj.PrintcxEndIfNextForcy=-10To10Step1obj.Line(0,cy)-(0.2,cy)Ifcy<>0Thenobj.CurrentX=-0.8obj.CurrentY=cy+0.2obj.PrintcyEndIfNextobj.CurrentX=-0.5obj.CurrentY=-0.2obj.Font.Size=9obj.Print"O"EndSubPrivateSubyuanhu(objAsObject,xi%,yi%,xj%,
7、yj%)n=Abs(xj-xi)+Abs(yj-yi):n=n/pf=0r=Sqr(xi^2+yi^2)Ifxi<>0ThenstartP=Atn(yi/xi)ElsestartP=PI/2EndIfIfxj<>0ThenendP=Atn(yj/xj)ElseendP=PI/2EndIfIfxi<=xjThenDi=-1obj.Circle(0,0),r,vbBlack,endP,startPElseDi=1obj.Circle(0,0),r,vbBlack,startP,endPEndIfobj.CurrentX=xiobj.CurrentY=yix=xi:y
8、=yiWhilen<>0
