倒计时

.版本 2

.支持库 spec



.程序集 窗口程序集_启动窗口

.程序集变量 时间, 文本型



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







.子程序 检测开始

.局部变量 处理, 文本型, , "0"

.局部变量 简化, 文本型



处理 ＝ 分割文本 (时间, “日”, )

调试输出 (处理 [2])

简化 ＝ 编辑框1.内容 ＋ “时” ＋ 编辑框2.内容 ＋ “分” ＋ 编辑框3.内容 ＋ “秒”

.如果 (处理 [2] ＝ 简化)

    标签7.文本颜色 ＝ #红色

    时钟_检测开始.时钟周期 ＝ 0

    时钟_检测结束.时钟周期 ＝ 1000

.否则

    调试输出 (“假”)

.如果结束





.子程序 检测结束

.局部变量 处理1, 文本型, , "0"

.局部变量 简化1, 文本型



处理1 ＝ 分割文本 (时间, “日”, )

调试输出 (处理1 [2])

简化1 ＝ 编辑框6.内容 ＋ “时” ＋ 编辑框5.内容 ＋ “分” ＋ 编辑框4.内容 ＋ “秒”

.如果 (处理1 [2] ＝ 简化1)

    标签8.文本颜色 ＝ #蓝色

    时钟_检测结束.时钟周期 ＝ 0

.否则

    调试输出 (“时间未到！”)

.如果结束





.子程序 _按钮1_被单击



时钟_检测开始.时钟周期 ＝ 1000



.子程序 _时钟_检测开始_周期事件



时间 ＝ 到文本 (取现行时间 ())

检测开始 ()





.子程序 _时钟_检测结束_周期事件



时间 ＝ 到文本 (取现行时间 ())

检测结束 ()