数控课程设计--前加减速控制.doc

数控技术课程设计前加减速控制（vb）指导教师：应用专业：机械设计制造及其自动化班级 学号 姓名 组号 班级序号 目 录一 设计任务书1. 课程的地位、任务和作用 32设计内容 3 3. 设计目的 3 二 vb软件设计说明书 2-1 分析问题 42-2 提出算法 42-3 列出流程图 52-4前加减速软件控制界面 62-5编写程序 6三 参考文献 9一、 设计任务书 1.课程的地位、任务和作用 本课程设计是在数控技术理论课程学习完后进行。数控技术是机械设计制造及其自动化专业必修的主干专业课之一，对实际应用能力要求很高；通过该课程设计使学生进一步掌握和消化数控机床基本内容，了解数控机床编程的特点和步骤，深化工艺处理技术和编程方法，通过调试，掌握系统软件的操作方法，了解数控系统组成，深化系统控制原理和方法，通过设计和调试，掌握各种数控功能的实现方法，为今后从事数控领域工作作打下坚实的基础。 2设计内容2.1软件设计：问题分析，提出算法，列出流程图，编写程序，最后进行程序验证。 2.2 设计成员： 3.设计目的1）针对设计任务选择合适的实现方案；2）培养学生查阅技术手册和有关技术资料的能力；3）培养学生程序设计能力；4）培养学生程序调试能力；5）培养学生编制技术文档的能力；6）培养学生严肃认真、一丝不苟和实事求是的科学态度。二 、vb软件设计说明书 2-1分析问题：在cnc 装置中，加减数控制多数都采用软件来实现，这给系统带来了较大的灵活性，这种用软件实现的加减数控制放在插补前进行称为前加减速控制。 2-2提出算法： 前加减速控制，仅对编程速度f指令进行控制，其优点是不会影响实际插补输出的位置精度，其缺点是需要预测减速点，而这个减速点要根据实际刀具的位置与程序段终点之间的距离来确定，预测工作需要完成的计算量较大。（1） 稳定速度和瞬时速度 稳定速度 fs=f*t*k/60/1000 当fs1000时 fs=1000 瞬时速度fi=fs,当系统处于加速（或减速）状态时，fifs)(2) 线性加减速处理加减速度 a=1.67x10-5*f/t (mm/ms2)1) 加速处理 fs=fs+at 2) 减速处理 s=fs2/2a+s fi+1=fi-at(3) 终点判别处理1)直线插补xi=xi-1+x yi=yi-1+ysi=ne=sqr(xe-xi)2+(ye-yi)2)2)圆弧插补 si=sqr(xe-xi)2+(ye-yi)2)ynynnyny入口fs=f*t*k/60/1000fsffsfs加速处理fi+1=fi+a*tsis减速处理原始fs=f匀速处理fi+1=fi-a*tfi+1=fs或fi+1=0出口fs=fsfi+1=fss前加减速控制原理框图nnynny入口si= (xe-xi)2-(ye-yi)2需要减速计算减速区域s=fs2/2/a+ ssis?置减速状态标志接近终点？置程序段转接标志到终点？置到终点标志出口终点判别原理框图 2-3列出流程图 2-4前加减速软件控制界面 2-5编写程序 前加减速控制程序代码 dim x1 as double, x2 as double, y1 as double, y2 as double, a as double, b as doubledim fs as double, f as integer, t as integer, fi as integer, f1 as integer, mdim ti as integer, t2 as integer, ts as integer, t1 as integer, tt as doubleprivate sub command1_click()timer1.enabled = trueif text1.text = or text2.text = or text3.text = or text4.text = or text5.text = or text6.text = thenmsgbox (输入的数据不完整 & vbcrlf & 请输入完整后再运行程序) if text1.text = 0 or text2.text = 0 or text3.text = 0 or text4.text = 0 or text5.text = 0 or text6.text 1000 then fs = 1000x1 = 0y1 = 0x2 = val(text1.text)y2 = val(text2.text)a = (1.67 * 10 -5) * f1 / tlabel11.caption = & val(t) & & , & & val(f1)x1 = x1 + 1y1 = y1 + y2 / x2si = sqr(x2 - x1) 2 + (y2 - y1) 2)s = fs 2 / 2 / as1 = fs 2 / 2 / at1 = sqr(2 * s / a)s2 = sqr(x2 2 + y2 2) - si - s1t2 = s2 / f1 * 60000ti = val(t + t + t2)label12.caption = & format(val(t + t2), 0.00) & & , & & val(f1)label13.caption = & format(val(t + t + t2), 0.00) & & , & & 0picture2.scale (0, 2 * f1)-(1.5 * ti, 0)picture2.line (x1, y1)-(t, f1)picture2.line (t, f1)-(t + t2, f1)picture2.line (t + t2, f1)-(ti, 0)timer2.enabled = falsetimer3.enabled = falseend ifts = val(t + t2)end subprivate sub command2_click()timer3.enabled = falsetext1.text = text2.text = text3.text = text4.text = text5.text = text6.text = label11.caption = label12.caption = label13.caption = picture2.clsend subprivate sub command3_click()endend subprivate sub form_load()timer1.enabled = falsetimer2.enabled = truepicture1.scale (0, 1000)-(1000, 0)if fi f1 thentimer2.interval = val(20)timer2.enabled = trueif fi ts thentimer3.enabled = truetimer3.interval = val(20)end ifend subprivate sub timer3_timer()timer2.enabled = falsetimer3.interval = val(10)picture2.line (ts, f1)-(t