机床数控课设-插补原理及流程图设计-本科论文.doc
机床数控课设-插补原理及流程图设计-本科论文.doc
- 配套讲稿：
如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制：
部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词：
- 机床 数控 原理 流程图 设计 本科 论文
- 资源描述：
-
《机床数控技术》课程设计 说明书 班级:0511105 学号:0511105 姓名： 指导教师： 时间：2015年1月 地点：明故宫校区计算中心 目 录 一、简要说明 -------------------------------------------------------- 3 二、设计目的和任务-------------------------------------------------- 3 三、设计要求 -------------------------------------------------------- 3 四.插补原理及流程图设计------------------------------------------4 五.变量说明-------------------------------------------------------------6 六．程序界面及运行截图--------------------------------6 七. 源程序代码 ----------------------------------------------------7 八参考文献-------------------------------------18 一、简要说明 插补 （Interpolation） 在数控机床中，刀具不能严格地按照要求加工的曲线运动，只能用折线轨迹逼近所要加工的曲线。 插补（interpolation）定义：机床数控系统依照一定方法确定刀具运动轨迹的过程。也可以说，已知曲线上的某些数据，按照某种算法计算已知点之间的中间点的方法，也称为“数据点的密化”。数控装置根据输入的零件程序的信息，将程序段所描述的曲线的起点、终点之间的空间进行数据密化，从而形成要求的轮廓轨迹，这种“数据密化”机能就称为“插补”。 插补计算就是数控装置根据输入的基本数据，通过计算，把工件轮廓的形状描述出来，边计算边根据计算结果向各坐标发出进给脉冲，对应每个脉冲，机床在响应的坐标方向上移动一个脉冲当量的距离，从而将工件加工出所需要轮廓的形状。 插补的原理和算法很多，根据数控系统输出到伺服驱动装置的信号的不同，插补方法可归纳为基准脉冲插补和数据采样插补两种类型。 二、设计目的 课设题目： · PL4—— 逐点比较法插补第4象限直线 · DA14—— DDA法插补第14象限顺圆弧 （1） 了解连续轨迹控制数控系统的组成原理。 （2） 了解逐点比较法和DDA法插补直线和圆弧的基本原理。 （3） 掌握逐点比较法和DDA法插补的软件实现基础。 三、设计要求 （1） 具有数据输入界面，如起点、终点、圆心、半径及插补步长等； （2） 具有插补过程的动态显示功能，如单步插补、连续插补； （3） 适当的编程语言，详细的程序设计流程图，变量说明、源程序； （4） 插补的步长可调。 四：插补原理及流程图设计： 1.插补原理 逐点比较法直线插补原理图： DDA法圆弧插补原理： （同理在14象限） 2. 流程图设 五： 变量说明 程序界面控件设置以及相关变量说明： 控件名 对应变量 相关说明 寄存器位数 Register 寄存器位数 半径 Radius 圆弧半径 步长 Steplength 步长 X X0 起点横坐标 Y Y0 起点纵坐标 X X1 终点横坐标 Y Y1 终点纵坐标 连续插补 succession “连续插补” 单步插补 step “单步插补” 直线 line 直线插补选择 圆弧 circle 圆弧插补选择 六．程序界面及运行截图 1.直线连续插补： 2.直线单步插补： 2. 圆弧连续插补： 4.圆弧单步插补： 七．程序代码节选 直线 Dim x0, y0, x1, y1, L, xe, ye As Single Dim n As Integer x0 = Val(Form2.Text1.Text) '*******起点 y0 = Val(Form2.Text2.Text) ' x1 = Val(Form2.Text3.Text) '*******终点 y1 = Val(Form2.Text4.Text) L = Val(Form2.Text5.Text) '*******步长 If L = 0 Then L = 1 Form2.Text5.Text = L End If If L < 0 Then L = Abs(L) Form2.Text5.Text = L End If xe = x1 - x0 ye = y1 - y0 n = CInt(Abs(xe) / L) + CInt(Abs(ye) / L) '*******终点判别 flag1 = 0 form1.Picture1.Cls form1.pic If xe = 0 Then '*******Y轴 If ye > 0 Then '*************Ｙ正向 i = 0 j = 0 i1 = 0 j1 = 0 For a = 1 To n j1 = j + L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) j = j1 Next a ElseIf ye < 0 Then '*************Ｙ负向 i = 0 j = 0 i1 = 0 j1 = 0 For a = 1 To n j1 = j - L form1.Picture1.Line (x0, j + y0)-(x0, j1 + y0), RGB(255, 0, 0) j = j1 Next a End If flag1 = 1 End If If ye = 0 Then '********X轴 If xe > 0 Then '*************X正向 i = 0 j = 0 i1 = 0 j1 = 0 For a = 1 To n i1 = i + L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 Next a ElseIf xe < 0 Then '*************X负向 i = 0 j = 0 i1 = 0 j1 = 0 For a = 1 To n i1 = i - L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 Next a End If flag1 = 1 End If If xe > 0 And ye > 0 Then '*********************** 1象限 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 For m = 1 To n Step 1 If f >= 0 Then i1 = i + L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f - Abs(ye) ElseIf f < 0 Then j1 = j + L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f + Abs(xe) End If Next m ElseIf xe < 0 And ye > 0 Then '*********************** 2象限 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 For m = 1 To n Step 1 If f >= 0 Then i1 = i - L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f - Abs(ye) ElseIf f < 0 Then j1 = j + L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f + Abs(xe) End If Next m ElseIf xe < 0 And ye < 0 Then '*********************** 3象限 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 For m = 1 To n Step 1 If f >= 0 Then i1 = i - L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f - Abs(ye) ElseIf f < 0 Then j1 = j - L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f + Abs(xe) End If Next m ElseIf xe > 0 And ye < 0 Then '***********************４象限 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 For m = 1 To n Step 1 If f >= 0 Then i1 = i + L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f - Abs(ye) ElseIf f < 0 Then j1 = j - L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f + Abs(xe) End If Next m End If If flag1 = 0 Then '****************画直线 form1.Picture1.Line (x0, y0)-(x1, y1), RGB(0, 0, 255) End If End Sub Private Sub Command2_Click() '****************退出 Form2.Hide form1.Show End Sub Private Sub Command3_Click() '************逐点法单步插补 Static count As Integer Dim x0, y0, x1, y1, L, xe, ye As Single Dim n As Integer If SHURUchang = 1 Then count = 0 SHURUchang = 0 End If count = count + 1 x0 = Val(Form2.Text1.Text) y0 = Val(Form2.Text2.Text) x1 = Val(Form2.Text3.Text) y1 = Val(Form2.Text4.Text) L = Val(Form2.Text5.Text) If L = 0 Then L = 1 Form2.Text5.Text = L End If If L < 0 Then L = Abs(L) Form2.Text5.Text = L End If xe = x1 - x0 ye = y1 - y0 n = CInt(Abs(xe) / L) + CInt(Abs(ye) / L) flag1 = 0 form1.Picture1.Cls form1.pic If xe = 0 Then '***********Ｙ轴插补 If ye > 0 Then '*************Ｙ正向 i = 0 j = 0 i1 = 0 j1 = 0 If count <= n Then For a = 1 To count j1 = j + L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) j = j1 Next a Else: count = 0 End If ElseIf ye < 0 Then '*************Ｙ负向 i = 0 j = 0 i1 = 0 j1 = 0 If count <= n Then For a = 1 To count j1 = j - L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) j = j1 Next a Else: count = 0 End If End If flag1 = 1 End If If ye = 0 Then '*************x轴插补 If xe > 0 Then '*************x正向 i = 0 j = 0 i1 = 0 j1 = 0 If count <= n Then For a = 1 To count i1 = i + L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 Next a Else: count = 0 End If ElseIf xe < 0 Then '*************x负向 i = 0 j = 0 i1 = 0 j1 = 0 If count <= n Then For a = 1 To count i1 = i - L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 Next a Else: count = 0 End If End If flag1 = 1 End If If flag1 = 0 Then '***************如果不在ＸＹ轴插补，则画直线 form1.Picture1.Line (x0, y0)-(x1, y1), RGB(0, 0, 255) End If If xe > 0 And ye > 0 Then '******************第１象限插补 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 If count <= n Then For m = 1 To count Step 1 If f >= 0 Then i1 = i + L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f - Abs(ye) ElseIf f < 0 Then j1 = j + L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f + Abs(xe) End If Next m Else: count = 0 End If ElseIf xe < 0 And ye > 0 Then '************第２象限插补 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 If count <= n Then For m = 1 To count Step 1 If f >= 0 Then i1 = i - L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f - Abs(ye) ElseIf f < 0 Then j1 = j + L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f + Abs(xe) End If Next m Else: count = 0 End If ElseIf xe < 0 And ye < 0 Then '************第３象限插补 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 If count <= n Then For m = 1 To count Step 1 If f >= 0 Then i1 = i - L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f - Abs(ye) ElseIf f < 0 Then j1 = j - L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f + Abs(xe) End If Next m Else: count = 0 End If ElseIf xe > 0 And ye < 0 Then '************第４象限插补 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 If count <= n Then For m = 1 To count Step 1 If f >= 0 Then i1 = i + L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f - Abs(ye) ElseIf f < 0 Then j1 = j - L form1.Picture1.Line (i + x0, j + y0)-(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f + Abs(xe) End If Next m Else: count = 0 End If 圆弧 Private Sub LXddashun4(ByVal qx, ByVal qy, ByVal zx, ByVal zy, ByVal r, ByVal L, a, b, ByVal n, u) i = qx '*****************************临时点坐标 j = qy i1 = qx j1 = qy jrx = 0 jry = 0 jvx = Abs(j) jvy = Abs(i) m = 2 ^ n yichu = 0 If zx > 0 And zy <= 0 Then If u < 5 Then If zx < qx And zy < qy Then zxx = zx zyy = zy ElseIf zx = qx And zy = qy Then zxx = 0 zyy = -Abs(r) ElseIf zx > qx And zy > qy Then zxx = 0 zyy = -Abs(r) End If ElseIf u = 5 Then zxx = zx zyy = zy End If Else zxx = 0 zyy = -Abs(r) End If While Abs(i - zxx) >= L Or Abs(j - zyy) >= L jrx = jrx + jvx jry = jry + jvy If jrx >= m And jry >= m And Abs(i - zxx) >= L And Abs(j - zyy) >= L Then jrx = jrx - m i1 = i - L jry = jry - m j1 = j - L yichu = 1 ElseIf jrx >= m And Abs(i - zxx) >= L Then jrx = jrx - m i1 = i - L yichu = 1 ElseIf jry >= m And Abs(j - zyy) >= L Then jry = jry - m j1 = j - L yichu = 1 End If If yichu = 1 Then form1.Picture1.Line (i + a, j + b)-(i1 + a, j1 + b), RGB(255, 0, 0) yichu = 0 End If i = i1 j = j1 jvx = Abs(j) jvy = Abs(i) Wend If Abs(i - zx) >= L Or Abs(j - zy) >= L Then If i > 0 Then i = i - L form1.Picture1.Line (i + a, j + b)-(i1 + a, j1 + b), RGB(255, 0, 0) End If If Abs(i - zx) >= L Or Abs(j - zy) >= L Then u = u + 1 Call LXddashun3(i, j, zx, zy, r, L, a, b, n, u) End If End If End Sub Private Sub danbuddashun(ByVal x0, ByVal y0, ByVal x1, ByVal y1, ByVal r, ByVal L, a, b, ByVal n, count1, count2) qx = x0 - a '*****************************换算后的起点，终点坐标 qy = y0 - b zx = x1 - a zy = y1 - b u = 1 If qx >= 0 And qy > 0 Then Call danbuddashun1(qx, qy, zx, zy, r, L, a, b, n, u, count1, count2) ElseIf qx < 0 And qy >= 0 Then Call danbuddashun2(qx, qy, zx, zy, r, L, a, b, n, u, count1, count2) ElseIf qx <= 0 And qy < 0 Then Call danbuddashun3(qx, qy, zx, zy, r, L, a, b, n, u, count1, count2) ElseIf qx > 0 And qy <= 0 Then Call danbuddashun4(qx, qy, zx, zy, r, L, a, b, n, u, count1, count2) End If End Sub Private Sub danbuddashun1(ByVal展开阅读全文
咨信网温馨提示：1、咨信平台为文档C2C交易模式，即用户上传的文档直接被用户下载，收益归上传人（含作者）所有；本站仅是提供信息存储空间和展示预览，仅对用户上传内容的表现方式做保护处理，对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿，我们不确定上传用户享有完全著作权，根据《信息网络传播权保护条例》，如果侵犯了您的版权、权益或隐私，请联系我们，核实后会尽快下架及时删除，并可随时和客服了解处理情况，尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确)，网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据，个别因单元格分列造成显示页码不一将协商解决，平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺，下载前须认真查看，确认无误后再购买，务必慎重购买；若有违法违纪将进行移交司法处理，若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传，付费前请自行鉴别，如您付费，意味着您已接受本站规则且自行承担风险，本站不进行额外附加服务，虚拟产品一经售出概不退款（未进行购买下载可退充值款），文档一经付费（服务费）、不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印，是因预览和防盗链等技术需要对页面进行转换压缩成图而已，我们并不对上传的文档进行任何编辑或修改，文档下载后都不会有水印标识（原文档上传前个别存留的除外），下载后原文更清晰；试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓；PPT和DOC文档可被视为“模板”，允许上传人保留章节、目录结构的情况下删减部份的内容；PDF文档不管是原文档转换或图片扫描而得，本站不作要求视为允许，下载前可先查看【教您几个在下载文档中可以更好的避免被坑】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用；网站提供的党政主题相关内容(国旗、国徽、党徽－－等)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
6、文档遇到问题，请及时联系平台进行协调解决，联系【微信客服】、【QQ客服】，若有其他问题请点击或扫码反馈【服务填表】；文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“【版权申诉】”，意见反馈和侵权处理邮箱：1219186828@qq.com；也可以拔打客服电话：0574-28810668；投诉电话：18658249818。
实名认证
平台协调中心【客服】
自信AI助手
微信客服
客服QQ
发送邮件
意见反馈
链接地址：https://www.zixin.com.cn/doc/4729161.html