.版本 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.现行选中项)))
易语言小时倒计时
易语言+倒计时+源码+天
易语言制作倒计时