易语言屏幕保护撞球 画板实例 颜色值实例

源码简介：

1. 使用画板+时钟 控件完成（只需添加一个画板，一个时钟控件即可）

功能简介：

一个在窗口内弹到屏幕边缘会弹回来的简单实例（可设置圆直径大小，移动速度，圆球的颜色）

@天高任鸟飞

.版本 2

.程序集 窗口程序集1
.程序集变量 x, 整数型, , , 圆的横坐标
.程序集变量 y, 整数型, , , 圆的纵坐标
.程序集变量 sx, 整数型, , , 圆的横步长
.程序集变量 sy, 整数型, , , 圆的纵步长
.程序集变量 圆直径, 整数型

.子程序 __启动窗口_创建完毕

圆直径 ＝ 20

.子程序 _时钟1_周期事件

画板1.清除 (, , , )
.如果真 (x ＋ 圆直径 ＋ sx ＞ 取用户区宽度 () 或 x － 圆直径 ＋ sx ＜ －圆直径)
    sx ＝ －sx
.如果真结束
.如果真 (y ＋ 圆直径 ＋ sy ＞ 取用户区高度 () 或 y － 圆直径 ＋ sy ＜ －圆直径)
    sy ＝ －sy
.如果真结束
x ＝ x ＋ sx
y ＝ y ＋ sy
置随机数种子 ()
画板1.刷子颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
画板1.画笔颜色 ＝ 画板1.刷子颜色
画板1.画椭圆 (x, y, x ＋ 圆直径, y ＋ 圆直径)

.子程序 __启动窗口_尺寸被改变

画板1.左边 ＝ 0
画板1.顶边 ＝ 0
画板1.宽度 ＝ 取用户区宽度 ()
画板1.高度 ＝ 取用户区高度 ()
x ＝ 30
y ＝ 30
sx ＝ 10
sy ＝ 10
时钟1.时钟周期 ＝ 100

@天高任鸟飞