理工大学数控技术大作业说明书.docVIP

青岛理工大学 数控技术大作业 说明书 学院：机械工程学院 班级：机械117班 编程使用语言：易语言 程序流程框图 (1)、逐点比较法直线插补 2、源程序代码（易语言） .程序集 窗口程序集1 .子程序 _按钮1_被单击 画板1.画笔颜色 ＝ #红色 x0 ＝ 到整数 (编辑框2.内容) × 100 y0 ＝ 到整数 (编辑框1.内容) × 100 x ＝ x0 y ＝ y0 xe ＝ 到整数 (编辑框3.内容) × 100 ye ＝ 到整数 (编辑框4.内容) × 100 x1 ＝ x0 y1 ＝ 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.内容) × 100 x6 ＝ 到整数 (编辑框6.内容) × 100 x7 ＝ 到整数 (编辑框7.内容) × 100 x8 ＝ 到整数 (编辑框8.内容) × 100 画板1.画椭圆 (x5, x6, x7, x8) r ＝ (x7 － x5) ÷ 2 i ＝ x7 j ＝ 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)