1、易语言1、 程序流程框图 (1)、逐点比较法直线插补二、源程序代码(易语言).程序集 窗口程序集1.子程序 _按钮1_被单击画板1.画笔颜色 #红色x0 到整数 (编辑框2.内容) 100y0 到整数 (编辑框1.内容) x x0y y0xe 到整数 (编辑框3.内容) ye 到整数 (编辑框4.内容) x1 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
2、, y) f f (ye 100 y0 100) x1 x y1 y.若是真结束.若是真 (f 0) y y1 100 x x1 f f xe 100 x0 .若是真 (x1 xe 且 y1 ye) 画板1.画笔颜色 #白色.若是真 (时钟1.时钟周期 0) _时钟1_周期事件 ().子程序 _按钮3_被单击时钟1.时钟周期 0.子程序 _按钮2_被单击x5 到整数 (编辑框5.内容) x6 到整数 (编辑框6.内容) x7 到整数 (编辑框7.内容) x8 到整数 (编辑框8.内容) 画板1.画椭圆 (x5, x6, x7, x8)r (x7 x5) 2i x7j x6 r时钟2.时钟周期
3、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) i1 i j1 j 100.若是真 (k 0 且 i (x5 x7) j1 j 100 k (x5 x7) 2 i1) (x5 x7) 2 i1) (x6 x8) 2 j1) (x6 x8) 2 j1) r .若是真 (k 0 且 i
4、 (x5 x7) 2 且 j (x8 x6) i1 i 100 2 i1) (j1 (x6 x8) 2) (j1 (x6 x8) 2) r (i1 r x5) (j1 (x6 x8) 3、运行程序界面:(1)逐点比较法直线插补(2)逐点比较法整圆插补:4.程序利用简单介绍:在易语言程序利用界面中,其坐标系远点在画板左上角,向右为x正半轴,向下为y正半轴,所以这里所输入的坐标值只能是非负值。点击易语言软件界面的运行按钮,即会出现插补界面,例如输入起始点为(2,0),终点为(8,9)。点击直线插补按钮就可以够出现起始点为(2,0)终止点为(8,9)的直线和它的插补轨迹。在实现整圆乃至椭圆的插补轨迹时,需要输入圆或椭圆的外切矩形的左上角和右下角的坐标值,即能够完成整圆和椭圆的插补轨迹。例如,点击易语言软件界面的运行按钮,即会出现插补界面,输入左上角坐标值为(1,1),右下角坐标值为(9,9),点击圆弧插补按钮,就会出现整圆和它的插补轨迹。注意:为了看清楚插补轨迹,咱们已经将图比例放大了100倍,所以此处的坐标值不易太大,不然会超出界面,看不到图。5.心得体会:由于时刻紧迫,咱们组只做了逐点比较法的直线和整圆的查补,咱们完尽是用自己学习的编程方式,所以还有很多缺点,请您谅解!请老师指导咱们再接再厉,谢谢老师!