理工大学数控技术大作业说明书.doc
青岛理工大学数控技术大作业说明书 学院：机械工程学院 班级：机械117班 编程使用语言：易语言1、 程序流程框图 (1)、逐点比较法直线插补2、源程序代码（易语言）.程序集 窗口程序集1.子程序 _按钮1_被单击画板1.画笔颜色 #红色x0 到整数 (编辑框2.内容) × 100y0 到整数 (编辑框1.内容) × 100x x0y y0xe 到整数 (编辑框3.内容) × 100ye 到整数 (编辑框4.内容) × 100x1 x0y1 y0画板1.画直线 (x0, y0, xe, ye)f (y y0) × (xe x0) (x x0) × (ye y0)时钟1.时钟周期 1000_时钟1_周期事件 ().子程序 _时钟1_周期事件.如果真 (f 0) x x1 100 y y1 画板1.画直线 (x1, y1, x, y) f f (ye × 100 y0 × 100) x1 x y1 y.如果真结束.如果真 (f 0) y y1 100 x x1 画板1.画直线 (x1, y1, x, y) f f xe × 100 x0 × 100 x1 x y1 y.如果真结束.如果真 (x1 xe 且 y1 ye) 画板1.画笔颜色 #白色.如果真结束.如果真 (时钟1.时钟周期 0) _时钟1_周期事件 ().如果真结束.子程序 _按钮3_被单击时钟1.时钟周期 0.子程序 _按钮2_被单击画板1.画笔颜色 #红色x5 到整数 (编辑框5.内容) × 100x6 到整数 (编辑框6.内容) × 100x7 到整数 (编辑框7.内容) × 100x8 到整数 (编辑框8.内容) × 100画板1.画椭圆 (x5, x6, x7, x8)r (x7 x5) ÷ 2i x7j x6 r时钟2.时钟周期 1000_时钟2_周期事件 ().子程序 _时钟2_周期事件.如果真 (k 0 且 i (x5 x7) ÷ 2 且 j (x8 x6) ÷ 2) i1 i 100 j1 j 画板1.画直线 (i, j, i1, j1) k (i1 r x5) × (i1 r x5) (x8 r j1) × (x8 r j1) r × r i i1 j j1.如果真结束.如果真 (k 0 且 i (x5 x7) ÷ 2 且 j (x8 x6) ÷ 2) i1 i j1 j 100 画板1.画直线 (i, j, i1, j1) k (i1 r x5) × (i1 r x5) (x8 r j1) × (x8 r j1) r × r i i1 j j1.如果真结束.如果真 (k 0 且 i (x5 x7) ÷ 2 且 j (x8 x6) ÷ 2) i1 i j1 j 100 画板1.画直线 (i, j, i1, j1) k (x5 x7) ÷ 2 i1) × (x5 x7) ÷ 2 i1) (x6 x8) ÷ 2 j1) × (x6 x8) ÷ 2 j1) r × r i i1 j j1.如果真结束.如果真 (k 0 且 i (x5 x7) ÷ 2 且 j (x8 x6) ÷ 2) i1 i 100 j1 j 画板1.画直线 (i, j, i1, j1) k (x5 x7) ÷ 2 i1) × (x5 x7) ÷ 2 i1) (x6 x8) ÷ 2 j1) × (x6 x8) ÷ 2 j1) r × r i i1 j j1.如果真结束.如果真 (k 0 且 i (x5 x7) ÷ 2 且 j (x8 x6) ÷ 2) i1 i 100 j1 j 画板1.画直线 (i, j, i1, j1) k (x5 x7) ÷ 2 i1) × (x5 x7) ÷ 2 i1) (j1 (x6 x8) ÷ 2) × (j1 (x6 x8) ÷ 2) r × r i i1 j j1.如果真结束.如果真 (k 0 且 i (x5 x7) ÷ 2 且 j (x8 x6) ÷ 2) i1 i j1 j 100 画板1.画直线 (i, j, i1, j1) k (x5 x7) ÷ 2 i1) × (x5 x7) ÷ 2 i1) (j1 (x6 x8) ÷ 2) × (j1 (x6 x8) ÷ 2) r × r i i1 j j1.如果真结束.如果真 (k 0 且 i (x5 x7) ÷ 2 且 j (x8 x6) ÷ 2) i1 i j1 j 100 画板1.画直线 (i, j, i1, j1) k (i1 r x5) × (i1 r x5) (j1 (x6 x8) ÷ 2) × (j1 (x6 x8) ÷ 2) r × r i i1 j j1.如果真结束.如果真 (k 0 且 i (x5 x7) ÷ 2 且 j (x8 x6) ÷ 2) i1 i 100 j1 j 画板1.画直线 (i, j, i1, j1) k (i1 r x5) × (i1 r x5) (j1 (x6 x8) ÷ 2) × (j1 (x6 x8) ÷ 2) r × r i i1 j j1.如果真结束3、运行程序界面：（1）逐点比较法直线插补（2）逐点比较法整圆插补：4.程序使用简单介绍：在易语言程序使用界面中，其坐标系远点在画板左上角，向右为x正半轴，向下为y正半轴，所以这里所输入的坐标值只能是非负值。点击易语言软件界面的运行按钮，即会出现插补界面，例如输入起始点为（2,0），终点为（8,9）。点击直线插补按钮就可以出现起始点为（2，0）终止点为（8,9）的直线以及它的插补轨迹。在实现整圆甚至椭圆的插补轨迹时，需要输入圆或者椭圆的外切矩形的左上角和右下角的坐标值，即可以完成整圆以及椭圆的插补轨迹。例如，点击易语言软件界面的运行按钮，即会出现插补界面，输入左上角坐标值为（1，1），右下角坐标值为（9，9），点击圆弧插补按钮，就会出现整圆以及它的插补轨迹。注意：为了看清楚插补轨迹，我们已经将图比例放大了100倍，所以此处的坐标值不易太大，否则会超出界面，看不到图。5.心得体会：由于时间紧迫，我们组只做了逐点比较法的直线和整圆的查补，我们完全是用自己学习的编程方法，所以还有很多缺陷，请您谅解！请老师指导我们再接再厉，谢谢老师！
