编一个倒计时提醒和倒计时关机
.版本 2
.支持库 shell
.程序集 窗口程序集1
.程序集变量 倒计时时间, 日期时间型
.程序集变量 报警时间, 日期时间型
.程序集变量 倒计时状态, 逻辑型
.子程序 __启动窗口_创建完毕
置托盘图标 (_启动窗口.图标, _启动窗口.标题)
现行时间.标题 ＝ 到文本 (取现行时间 ())
编时.内容 ＝ “”
编分.内容 ＝ “”
编秒.内容 ＝ “”
时钟1.时钟周期 ＝ 1000
时钟2.时钟周期 ＝ 1000
.子程序 _设置倒计时_被单击
.局部变量 时间变量, 日期时间型
倒计时状态 ＝ 真
时间变量 ＝ 取现行时间 ()
时间变量 ＝ 增减时间 (时间变量, #小时, 到数值 (编时.内容))
时间变量 ＝ 增减时间 (时间变量, #分钟, 到数值 (编分.内容))
报警时间 ＝ 增减时间 (时间变量, #秒, 到数值 (编秒.内容))
输出调试文本 (报警时间)
.子程序 _时钟1_周期事件
.局部变量 时间间隔, 双精度小数型
现行时间.标题 ＝ 到文本 (取现行时间 ())
.如果真 (倒计时状态 ＝ 真)
时间间隔 ＝ 取时间间隔 (报警时间, 取现行时间 (), #秒)
倒数标签.标题 ＝ 到文本 (时间间隔)
.如果真 (时间间隔 ≤ 0)
倒计时状态 ＝ 假
报警 ()
.如果真结束
.如果真结束
.子程序 _倒计时关机_被单击
.局部变量 时间变量, 日期时间型
倒计时状态 ＝ 真
时间变量 ＝ 取现行时间 ()
时间变量 ＝ 增减时间 (时间变量, #小时, 到数值 (编时.内容))
时间变量 ＝ 增减时间 (时间变量, #分钟, 到数值 (编分.内容))
倒计时时间 ＝ 增减时间 (时间变量, #秒, 到数值 (编秒.内容))
输出调试文本 (倒计时时间)
.子程序 _时钟2_周期事件
.局部变量 时间间隔, 双精度小数型
现行时间.标题 ＝ 到文本 (取现行时间 ())
.如果真 (倒计时状态 ＝ 真)
时间间隔 ＝ 取时间间隔 (倒计时时间, 取现行时间 (), #秒)
倒数标签.标题 ＝ 到文本 (时间间隔)
.如果真 (时间间隔 ≤ 0)
倒计时状态 ＝ 假
关闭系统 (#关机, )
.如果真结束
.如果真结束
.子程序 报警
播放音乐 (#报警铃声, 真)
.子程序 _知道了_被单击
停止播放 ()
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.如果真 (操作类型 ≠ 0)
_启动窗口.可视 ＝ 真
_启动窗口.位置 ＝ 0
停止播放 ()
.如果真结束
.子程序 __启动窗口_位置被改变
.如果真 (_启动窗口.位置 ＝ 2)
_启动窗口.可视 ＝ 假
的小软件。但是倒计时出了问题。