|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?加入我们
x
- .版本 2
- .支持库 BmpOperate
- .程序集 窗口程序集_启动窗口
- .程序集变量 屏宽, 整数型
- .程序集变量 屏高, 整数型
- .程序集变量 颜色表, 整数型, , "0"
- .程序集变量 颜色数, 整数型
- .程序集变量 位图, 位图, , "0"
- .子程序 __启动窗口_创建完毕
- .局部变量 j, 整数型
- .局部变量 k, 整数型
- 颜色表 = { #红色, #绿色, #蓝色 }
- 颜色数 = 取数组成员数 (颜色表)
- 底色 = #黑色
- 左边 = 0
- 顶边 = 0
- 屏宽 = 取屏幕宽度 ()
- 屏高 = 取屏幕高度 ()
- 宽度 = 屏宽
- 高度 = 屏高
- Esc键关闭 = 真
- 总在最前 = 真
- 重定义数组 (位图, 假, 颜色数)
- .计次循环首 (颜色数, k)
- 位图 [k].创建 (屏宽, 屏高, 4, 底色)
- .变量循环首 (0, 屏宽 - 1, 1, j)
- 位图 [k].置某点颜色 (j, 0, 颜色表 [k])
- 位图 [k].置某点颜色 (j, 屏高 - 1, 颜色表 [k])
- .变量循环尾 ()
- .变量循环首 (0, 屏高 - 1, 1, j)
- 位图 [k].置某点颜色 (0, j, 颜色表 [k])
- 位图 [k].置某点颜色 (屏宽 - 1, j, 颜色表 [k])
- .变量循环尾 ()
- .计次循环尾 ()
- _时钟1_周期事件 ()
- 可视 = 真
- 时钟1.时钟周期 = 1000
- .子程序 _时钟1_周期事件
- .局部变量 颜色计数, 整数型, 静态
- 颜色计数 = 颜色计数 + 1
- .如果真 (颜色计数 > 颜色数)
- 颜色计数 = 1
- .如果真结束
- 底图 = 位图 [颜色计数].取位图数据 ()
复制代码
|
|