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

  1. 1、本文档共16页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
主界面面板 逐点比较圆弧插补 程序如下: Private Sub Command1_Click() Xe = Val(Text1.Text) Ye = Val(Text2.Text) Picture1.Scale (-20, 20)-(20, -20) Picture1.Cls Picture1.Line (-20, 0)-(20, 0), vbBlue Picture1.Line (19, 1)-(20, 0), vbbiue Picture1.Line -(19, -1), vbBlue Picture1.Print X Picture1.Line (0, -20)-(0, 20), vbBlue Picture1.Line (1, 19)-(0, 20), vbBlue Picture1.Line -(-1, 19), vbBlue Picture1.Print Y Picture1.Line (0, 0)-(Xe, Ye), vbBlue Picture1.Print (; Xe; ,; Ye; ) If Text1.Text = none Or Text2.Text = none Then MsgBox 请输入加工终点坐标值。 Text3.Text = 0 Text4.Text = 0 Text5.Text = 0 End Sub Private Sub Command2_Click() Dim sum As Integer Xe = Val(Text1.Text) Ye = Val(Text2.Text) Xm = Val(Text3.Text) Ym = Val(Text4.Text) m = Val(Text5.Text) sum = Xe * Ym - Xm * Ye 第一象限开始 If Xe 0 And Ye 0 And sum = 0 Then Picture1.Line (Xm, Ym)-(Xm + 1, Ym), vbRed: Text3.Text = Xm + 1 If Xe 0 And Ye 0 And sum 0 Then Picture1.Line (Xm, Ym)-(Xm, Ym + 1), vbRed: Text4.Text = Ym + 1 If Abs(Xm) + Abs(Ym) = Abs(Xe) + Abs(Ye) - 1 Then MsgBox 加工完毕! 第二象限开始 If Xe 0 And Ye 0 And sum = 0 Then Picture1.Line (Xm, Ym)-(Xm, Ym + 1), vbRed: Text4.Text = Ym + 1 If Xe 0 And Ye 0 And sum 0 Then Picture1.Line (Xm, Ym)-(Xm - 1, Ym), vbRed: Text3.Text = Xm - 1 If Abs(Xm) + Abs(Ym) = Abs(Xe) + Abs(Ye) + 1 Then MsgBox 加工完毕! 第三象限开始 If Xe 0 And Ye 0 And sum = 0 Then Picture1.Line (Xm, Ym)-(Xm - 1, Ym), vbRed: Text3.Text = Xm - 1 If Xe 0 And Ye 0 And sum 0 Then Picture1.Line (Xm, Ym)-(Xm, Ym - 1), vbRed: Text4.Text = Ym - 1 If Abs(Xm) + Abs(Ym) = Abs(Xe) + Abs(Ye) Then MsgBox 加工完毕! 第四象限开始 If Xe 0 And Ye 0 And sum = 0 Then Picture1.Line (Xm, Ym)-(Xm, Ym - 1), vbRed: Text4.Text = Ym - 1 If Xe 0 And Ye 0 And sum 0 Then Picture1.Line (Xm, Ym)-(Xm + 1, Ym), vbRed: Text3.Text = Xm + 1 If Abs(Xm) + Abs(Ym) = Abs(Xe) + Abs(Ye) Then MsgBox 加工完毕! Text5.Text = Abs(Val(Text3.Text)) + Abs(Val(Text4.Text)) End Sub Private Sub Command3_Click() Form2.Hide Form1.Show End Sub 数字积分器法圆弧插补 程序如下: Private Sub Command1_Click() Xe =

文档评论(0)

mx597651661 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档