逐点比较法三、四象限逆圆插补计算

《逐点比较法三、四象限逆圆插补计算》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、逐点比较法三、四象限逆圆插补计算第三象限第四象限PrivateSubCommand1_Click()Picture1.ForeColor=vbBlackPicture1.DrawWidth=2Picture1.Line(500,1000)-(8500,1000)'画直线坐标轴Picture1.Line(4500,1000)-(4500,5000)Picture1.CurrentX=230'当前位置Picture1.CurrentY=900Picture1.Print"-X"'坐标轴标注Picture1.CurrentX=4300Picture1.CurrentY=800Pictu

2、re1.Print"(0,0)"Picture1.CurrentX=8650Picture1.CurrentY=900Picture1.Print"X"Picture1.CurrentX=4400Picture1.CurrentY=5100Picture1.Print"-Y"Picture1.Line(500,1000)-(600,950)'箭头Picture1.Line(500,1000)-(600,1050)Picture1.Line(8500,1000)-(8400,950)Picture1.Line(8500,1000)-(8400,1050)Picture1.Line(

3、4500,5000)-(4450,4900)Picture1.Line(4500,5000)-(4550,4900)EndSubPrivateSub坐标判别_Click()IfNot(Option1.Value=TrueOrOption2.Value=True)Thenans=MsgBox("出错了，请选择象限",48,"提示信息")EndIfDima,b,c,d,n,mAsIntegerDimrAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=Val(Text4.Text)n=a*a+b*bm=c*c+d*

4、dr=Sqr(n)IfOption1.Value=TrueThenIfNot(a<=0Andb<=0Andc<=0Andd<=0)ThenGoTowwElseIfNot(ad)ThenGoToww1ElseIfn<>mThenGoToww2EndIfEndIfIfOption2.Value=TrueThenIfNot(a>=0Andb<=0Andc>=0Andd<=0)ThenGoTowwElseIfNot(amThenGoToww2EndIfEndIfGoToww4ww:ans=MsgBox("出错了，逆圆

5、弧起点、终点不在该象限，请重新输入",48,"提示信息")GoToww3ww1:ans=MsgBox("出错了，逆圆弧起点、终点位置错误，请重新输入",48,"提示信息")GoToww3ww2:ans=MsgBox("出错了，该象限所绘圆弧不以原点为圆心，请重新输入",48,"提示信息")ww3:Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text1.SetFocusGoToww4ww4:EndSubPrivateSubCommand4_Click()IfNot(Option1.Value=TrueOrOption2.V

6、alue=True)Thenans=MsgBox("出错了，请选择象限",48,"提示信息")EndIfDima,b,c,d,n,mAsIntegerDimrAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=Val(Text4.Text)n=a*a+b*bm=c*c+d*dr=Sqr(n)IfOption1.Value=TrueThenIfNot(a<=0Andb<=0Andc<=0Andd<=0)ThenGoTowwElseIfNot(ad)ThenGoToww1ElseIfn<>mThenG

7、oToww2EndIfEndIfIfOption2.Value=TrueThenIfNot(a>=0Andb<=0Andc>=0Andd<=0)ThenGoTowwElseIfNot(amThenGoToww2EndIfEndIfPicture1.ForeColor=vbBluePicture1.DrawWidth=2IfOption1.Value=TrueThenIfb=0ThenIfc=0ThenPicture1.Ci