易语言倒计时纯源码

.版本 2
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 小时, 整数型
.程序集变量 分钟, 整数型
.程序集变量 秒, 整数型
.程序集变量 总时间, 整数型
.程序集变量 毫秒

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

启动线程 (&配置, , )

.子程序 配置
.局部变量 i, 整数型

.计次循环首 (60, i)
    .判断开始 (i ≤ 24)
        组合框1.加入项目 (到文本 (i － 1), )
        组合框2.加入项目 (到文本 (i － 1), )
        组合框3.加入项目 (到文本 (i － 1), )
    .默认
        组合框2.加入项目 (到文本 (i － 1), )
        组合框3.加入项目 (到文本 (i － 1), )
    .判断结束

.计次循环尾 ()
组合框1.现行选中项 ＝ 0
组合框2.现行选中项 ＝ 0
组合框3.现行选中项 ＝ 0

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

小时 ＝ 到整数 (组合框1.取项目文本 (组合框1.现行选中项))
分钟 ＝ 到整数 (组合框2.取项目文本 (组合框2.现行选中项))
秒 ＝ 到整数 (组合框3.取项目文本 (组合框3.现行选中项))
总时间 ＝ 小时 × 3600 ＋ 分钟 × 60 ＋ 秒
时钟1.时钟周期 ＝ 1000

.子程序 _时钟1_周期事件

.判断开始 (总时间 ≠ 0)
    小时 ＝ 总时间 ÷ 3600
    分钟 ＝ (总时间 － 小时 × 3600) ÷ 60
    秒 ＝ 总时间 － 小时 × 3600 － 分钟 × 60
    标签4.标题 ＝ “倒计时:” ＋ 到文本 (小时) ＋ “小时” ＋ 到文本 (分钟) ＋ “分钟” ＋ 到文本 (秒) ＋ “秒”
    总时间 ＝ 总时间 － 1
.默认
    标签4.标题 ＝ “倒计时:0小时0分钟0秒”
    时钟1.时钟周期 ＝ 0
    信息框 (“计时结束”, 0, , )
.判断结束


.子程序 _组合框3_列表项被选择

调试输出 (到整数 (组合框3.取项目文本 (组合框3.现行选中项)))

@爱生活爱威仔