画图-初级程序-极语言教程

窗体代码:

整数 窗体,小方;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-753)>>1,上=(桌面.高-563)>>1;
整数 菜单=创建菜单
整数 菜单.1=创建菜单
附加菜单(菜单,16,菜单.1,"文件")
附加菜单(菜单.1,0,1001,"颜色")
附加菜单(菜单.1,0,1002,"清屏")
整数 菜单.2=创建菜单
附加菜单(菜单,16,菜单.2,"形状")
附加菜单(菜单.2,0,1003,"涂鸦")
附加菜单(菜单.2,0,1004,"矩形")
附加菜单(菜单.2,0,1005,"椭圆")
附加菜单(菜单.2,0,1006,"画线")
附加菜单(菜单.2,0,1007,"画饼")
窗体=创建窗口($100,程序.名称,"画图",$10CB0000,左,上,753,563,0,菜单,0,0);
小方=创建窗口($0,"Static","",$4080000E,60,30,40,30,窗体,1,$400000,0);
窗体启动;读取消息
结束

 

程序代码:

引入 "lib\user32.lib","lib\gdi32.lib";
整数 窗体,设备,图像,图层,画刷,白笔,红笔,绿笔,蓝笔,弧=10;
小数 圆=3.14159265;
小程序 初始启动
窗体=命令窗口
移动窗口(窗体,0,0,850,800,假)
图层=取设备(窗体)
设备=创建设备(图层)
图像=创建图像(图层,850,800)
选择对象(设备,图像)
画刷=创建画刷($FFFFFF)
白笔=创建画笔(0,1,$FFFFFF)
红笔=创建画笔(0,2,$9FF)
绿笔=创建画笔(0,2,$FF30)
蓝笔=创建画笔(0,2,$FF0000)
选择对象(设备,画刷)
循环{延时(10)绘图程序}
结束;
小程序 绘图程序
    整数 数=0,左,上;小数 值,勾,股,弦,角,度
    选择对象(设备,白笔)
    画方块(设备,0,0,850,800)
    循环(数<3000)
    {
        角=圆/1500.0 * 数 - 圆
        勾=(角)余弦
        股=(角)正弦
        角+弧/100;
        弦=(角*7)余弦
        值=弦 + 1;
        弦=(角*3)正弦
        度=弦*1.5;弦=度*度
        值=(弦 + 值) *90;
        左=勾*值;
        上=股*值;
        判断(数)为 <1000选择对象(设备,红笔)
        为 <2000选择对象(设备,绿笔)
        否则    选择对象(设备,蓝笔)
        移到(设备,450,400,0)
        画线(设备,左+450,400-上)
        数++
    }弧++如果(弧>999)弧=0;
位图传输(图层,0,0,850,800, 设备,0,0,原图复制)
结束;