



.版本 2
.程序集 窗口程序集1
.程序集变量 hdc, 整数型
.子程序 _退出_被选择
销毁 ()
.子程序 __启动窗口_创建完毕
.局部变量 k, 整数型, , "2"
.局部变量 color, 整数型
.局部变量 f, 逻辑型
color = 信息框 (“你喜欢下大雨吗?”, 35, )
.判断开始 (color = 5)
lx = 10
.判断 (color = 6)
lx = 200
.默认
销毁 ()
返回 ()
.判断结束
_启动窗口.置托盘图标 (#s, )
.判断循环首 (真 且 是否已创建 (_启动窗口))
置随机数种子 ()
hdc = GetDC (0)
k [1] = 取随机数 (0, 取屏幕宽度 ())
k [2] = 取随机数 (0, 取屏幕高度 ())
color = GetPixel (hdc, k [1], k [2])
.判断开始 (取随机数 (1, 500) % 2 = 0)
SetPixel (hdc, k [1], k [2] + 2, color)
SetPixel (hdc, k [1], k [2] + 1, color)
.默认
SetPixel (hdc, k [1] + 1, k [2], color)
.判断结束
.计次循环首 (lx, )
处理事件 ()
.计次循环尾 ()
ReleaseDC (GetDesktopWindow (), hdc)
.判断循环尾 ()
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
弹出菜单 (x, , )
.子程序 __启动窗口_将被销毁
ReleaseDC (GetDesktopWindow (), hdc)
[ 本帖最后由 锐利兔子 于 2007-3-30 22:35 编辑 ]
附件
-
下雨.rar
(513.27 KB)
-
2007-3-30 22:35, 下载次数: 18