电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

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

逐点比较法三、四象限逆圆插补计算_第1页
1/7
逐点比较法三、四象限逆圆插补计算_第2页
2/7
逐点比较法三、四象限逆圆插补计算_第3页
3/7
逐点比较法三、四象限逆圆插补计算第三象限第四象限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=800Picture1.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(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*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("出错了,逆圆弧起点、终点不在该象限,请重新输入",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.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*dr=Sqr(n)IfOption1.Value=TrueThenIfNot(a<=0Andb<=0Andc<=0Andd<=0)ThenGoTowwElseIfNot(ad)ThenGoToww1ElseIfn<>mThenGoToww2EndIfEndIfIfOption2.Value=TrueThenIfNot(a>=0Andb<=0Andc>=0Andd<=0)ThenGoTowwElseIfNot(amThenGoToww2EndIfEndIfPicture1.ForeColor=vbBluePicture1.DrawWidth=2IfOption1.Value=TrueThenIfb=0ThenIfc=0ThenPicture1.Circle(4500,1000),r*300,,3.14159,3*3.14159/2ElsePicture1.Circle(4500,1000),r*300,,3.14159,Atn(d/c)+3.14159EndIfElseIfc=0ThenPicture1.Circle(4500,1000),r*300,,Atn(b/a)+3.14159,3*3.14159/2ElsePicture1.Circle(4500,1000),r*300,,Atn(b/a)+3.14159,Atn(d/c)+3.14159EndIfEndIfIfOption2.Value=TrueThenIfa=0ThenIfd=0ThenPicture1.Circle(4500,1000),r*300,,3*3.14159/2,2*3.14159ElsePicture1.Circle(4500,1000),r*300,,3*3.14159/2,Atn(d/c)+3.14159*2EndIfElseIfd=0ThenPicture1.Circle(4500,1000),r*300,,Atn(b/a)+3.14159*2,2*3.14159ElsePicture1.Circle(4500,1000),r*300,,Atn(b/a)+3.14159*2,Atn(d/c)+3.14159*2EndIfEndIfGoToww4ww:ans=MsgBox("出错了,逆圆弧起点、终点不在该象限,请重新输入",48,"提示信息")GoToww3ww1:ans=MsgBox("出错了,逆圆弧起点、终点位置错误,请重新输入",48,"提示信息")GoToww3ww2:ans=MsgBox("出错了,该象限所绘圆弧不以原点为圆心,请重新输入",48,"提示信息")ww3:Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text1.SetFocusGoToww4ww4:EndSubPrivateSubCommand2_Click()Dimk,m,j,l,n,F(30),X(30),Y(30)AsInteger,aAsInteger,bAsInteger,cAsInteger,dAsIntegera=Int(Text1)b=Int(Text2)c=Int(Text3)d=Int(Text4)m=0l=0k=0F(m)=0X(m)=aY(m)=bPicture1.ForeColor=vbGreenPicture1.DrawWidth=3j=Abs(Abs(a)...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

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

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部