- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
发表于 2014-7-23 09:06:04
|
显示全部楼层
.版本 2
.程序集 窗口程序集1
.程序集变量 秒, 整数型
.程序集变量 分, 整数型
.程序集变量 水平位置, 整数型
.程序集变量 垂直位置, 整数型
.子程序 __启动窗口_创建完毕
秒 = 0
分 = 1
时钟2.时钟周期 = 1
.子程序 _时钟1_周期事件
.如果 (水平位置 = 取鼠标水平位置 () 且 垂直位置 = 取鼠标垂直位置 ())
秒 = 秒 + 1
.如果真 (秒 = 60)
秒 = 0
分 = 分 - 1
.如果真结束
.如果真 (分 = 0 且 秒 = 0)
结束 ()
.如果真结束
编辑框1.内容 = “剩余” + 到文本 (分) + “分” + 到文本 (60 - 秒) + “秒”
.否则
时钟1.时钟周期 = 0
时钟2.时钟周期 = 1
秒 = 0
分 = 1
.如果结束
.子程序 _时钟2_周期事件
水平位置 = 取鼠标水平位置 ()
垂直位置 = 取鼠标垂直位置 ()
时钟2.时钟周期 = 0
时钟1.时钟周期 = 1000 |
|