5-11 机器猫、计时器

程序段 窗体消息(窗口,消息,参数,数据)

判断(消息)为 窗口关闭{停止(0)}
为 单击左键{左键点击(参数)}
否则 处理窗口(窗口,消息,参数,数据)

结束
整数 红刷,蓝刷,白刷,黑刷,蓝笔,红笔,黑笔,设备,分数,下落,速度=80,左边,上边=300,宽度=800,高度=600
绘制区类 绘区;
程序段 窗体启动
设备=取设备(窗体)
黑刷=创建画刷(0)
红刷=创建画刷($FF)
蓝刷=创建画刷($FF0000)
白刷=创建画刷($FFFFFF)
黑笔=创建画笔(0,1,0)
红笔=创建画笔(0,1,$FF)
蓝笔=创建画笔(0,1,$FF0000)
选择对象(设备,蓝刷)选择对象(设备,蓝笔)//脑袋
画椭圆(设备,100, 100, 400, 400)
选择对象(设备,白刷)//脸
画椭圆(设备,120, 160, 380, 400)
选择对象(设备,黑笔)//眼白
画椭圆(设备,185, 105, 250, 200)
画椭圆(设备,250, 105, 315, 200)
选择对象(设备,黑刷)//眼珠
画椭圆(设备,230, 150, 250, 175)
画椭圆(设备,250, 150, 270, 175)
移到(设备, 250, 220,0)
画线(设备, 250, 260)//人中
选择对象(设备, 红笔)
选择对象(设备, 红刷)
Ellipse(设备, 230, 180, 270, 220)// 鼻子
画和弦(设备, 140, 120, 360, 380, 140, 260, 360, 260)// 嘴巴
// 左边的胡子
选择对象(设备, 黑笔)
移到(设备, 150, 205,0)
画线(设备, 210, 215)
移到(设备, 140, 230,0)
画线(设备, 210, 230)
移到(设备, 150, 255,0)
画线(设备, 210, 245)
// 右边的胡子
移到(设备, 350, 205,0)
画线(设备, 290, 215)
移到(设备, 360, 230,0)
画线(设备, 290, 230)
移到(设备, 350, 255,0)
画线(设备, 290, 245)
结束
///1 end

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)
为 窗口关闭 {停止(0)}
否则{处理窗口(窗口,消息,参数,数据)}
结束;

小程序 窗体启动
设置定时(窗体,1,120,@定时事件)
桌面.左=窗体
读取消息
结束;

时间类 日期;
小程序 定时事件(整数 窗口,整数 消息,整数 编号,整数 毫秒)
当前时间(日期);
改控件数(窗体,1,日期.时,0)
改控件数(窗体,3,日期.分,0)
改控件数(窗体,5,日期.秒,0)
改控件数(窗体,7,日期.毫秒,0)

结束;

小程序 窗体启动
设置定时(窗体,1,120,@定时事件)
桌面.左=窗体
读取消息
结束;

时间类 日期;
小程序 定时事件(整数 窗口,整数 消息,整数 编号,整数 毫秒)
当前时间(日期);
改控件数(窗体,10,日期.时,0)
改控件数(窗体,12,日期.分,0)
改控件数(窗体,14,日期.秒,0)
改控件数(窗体,16,日期.毫秒,0)
结束;