Question

易语言写一个倒计时器，就是说。比如一个程序要每隔5分钟执行一次。我想让他这五分钟内倒计时

计时完后就开始执行。以此推类、求高手指点迷津故事。求代码

Answer 1

.版本 2
.子程序 取倒计时间, 文本型, , 返回“天数-时-分-秒”的文本格式，时间部分可参考参数变量
.参数 起始时间, 日期时间型
.参数 终了时间, 日期时间型
.参数 小时, , 参考 可空, 倒数出‘小时’整数部分
.参数 分钟, , 参考 可空, 倒数出‘分钟’整数部分
.参数 秒数, , 参考 可空, 倒数出‘秒数’整数部分
.局部变量 天数, 双精度小数型
.局部变量 小时_, 双精度小数型
.局部变量 分钟_, 双精度小数型
.局部变量 秒数_, 双精度小数型
.局部变量 文本_天数, 文本型
.局部变量 文本_小时, 文本型
.局部变量 文本_分钟, 文本型
.局部变量 文本_秒数, 文本型
天数 ＝ 取时间间隔 (终了时间, 起始时间, #日)
小时_ ＝ (天数 － 到整数 (天数)) × 24
分钟_ ＝ (小时_ － 到整数 (小时_)) × 60
秒数_ ＝ (分钟_ － 到整数 (分钟_)) × 60
秒数_ ＝ 四舍五入 (秒数_, )
文本_天数 ＝ 到文本 (到整数 (天数) ＋ 1) ＋ “天”
小时 ＝ 到整数 (小时_)
分钟 ＝ 到整数 (分钟_)
秒数 ＝ 秒数_
.如果 (小时_ ＜ 10)
文本_小时 ＝ “0” ＋ 到文本 (到整数 (小时_)) ＋ “时”
.否则
文本_小时 ＝ 到文本 (到整数 (小时_)) ＋ “时”
.如果结束
.如果 (分钟_ ＜ 10)
文本_分钟 ＝ “0” ＋ 到文本 (到整数 (分钟_)) ＋ “分”
.否则
文本_分钟 ＝ 到文本 (到整数 (分钟_)) ＋ “分”
.如果结束
.如果 (秒数_ ＜ 10)
文本_秒数 ＝ “0” ＋ 到文本 (秒数_) ＋ “秒”
.否则
文本_秒数 ＝ 到文本 (秒数_) ＋ “秒”
.如果结束
返回 (文本_天数 ＋ 文本_小时 ＋ 文本_分钟 ＋ 文本_秒数)

事例：
取倒计时间 (取现行时间 (), 到时间 (“2012-7-20-0:0:0”))

Answer 2

.版本 2(别的是 复制的）
.程序集 窗口程序集1
.子程序 _按钮1_被单击
编辑框1.内容 ＝ “05:00”
.如果 (按钮1.标题 ＝ “开始倒计时”)
按钮1.标题 ＝ “停止倒计时”
时钟1.时钟周期 ＝ 1000
.否则
按钮1.标题 ＝ “开始倒计时”
时钟1.时钟周期 ＝ 0
.如果结束
.子程序 _时钟1_周期事件
编辑框1.内容 ＝ 倒记时 (到整数 (取文本左边 (编辑框1.内容, 2)), 到整数 (取文本右边 (编辑框1.内容, 2)))
.子程序 倒记时, 文本型, , 00:00
.参数 分钟, 整数型
.参数 秒钟, 整数型
.局部变量 局_剩余分文本, 文本型
.局部变量 局_剩余秒文本, 文本型
.如果真 (分钟 ＝ 0)
.如果真 (秒钟 ＝ 0)
运行 (“你要运行的程序.exe”, 假, )
返回 (“05:00”)
.如果真结束
.如果真结束
.如果真 (秒钟 ＝ 0)
秒钟 ＝ 60
分钟 ＝ 分钟 － 1
.如果真结束
秒钟 ＝ 秒钟 － 1
局_剩余分文本 ＝ 到文本 (分钟)
局_剩余秒文本 ＝ 到文本 (秒钟)
.如果真 (取文本长度 (到文本 (分钟)) ＜ 2)
局_剩余分文本 ＝ “0” ＋ 到文本 (分钟)
.如果真结束
.如果真 (取文本长度 (到文本 (秒钟)) ＜ 2)
局_剩余秒文本 ＝ “0” ＋ 到文本 (秒钟)
.如果真结束
返回 (局_剩余分文本 ＋ “:” ＋ 局_剩余秒文本)

Answer 3

.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
编辑框1.内容 ＝ “05:00”
.如果 (按钮1.标题 ＝ “开始倒计时”)
按钮1.标题 ＝ “停止倒计时”
时钟1.时钟周期 ＝ 1000
.否则
按钮1.标题 ＝ “开始倒计时”
时钟1.时钟周期 ＝ 0
.如果结束
.子程序 _时钟1_周期事件
编辑框1.内容 ＝ 倒记时 (到整数 (取文本左边 (编辑框1.内容, 2)), 到整数 (取文本右边 (编辑框1.内容, 2)))
.子程序 倒记时, 文本型, , 00:00
.参数 分钟, 整数型
.参数 秒钟, 整数型
.局部变量 局_剩余分文本, 文本型
.局部变量 局_剩余秒文本, 文本型
.如果真 (分钟 ＝ 0)
.如果真 (秒钟 ＝ 0)
运行 (“你要运行的程序.exe”, 假, )
返回 (“05:00”)
.如果真结束
.如果真结束
.如果真 (秒钟 ＝ 0)
秒钟 ＝ 60
分钟 ＝ 分钟 － 1
.如果真结束
秒钟 ＝ 秒钟 － 1
局_剩余分文本 ＝ 到文本 (分钟)
局_剩余秒文本 ＝ 到文本 (秒钟)
.如果真 (取文本长度 (到文本 (分钟)) ＜ 2)
局_剩余分文本 ＝ “0” ＋ 到文本 (分钟)
.如果真结束
.如果真 (取文本长度 (到文本 (秒钟)) ＜ 2)
局_剩余秒文本 ＝ “0” ＋ 到文本 (秒钟)
.如果真结束
返回 (局_剩余分文本 ＋ “:” ＋ 局_剩余秒文本)

Answer 4

最简单的法子，就是添加一个时钟组件。将时钟周期设置为5分钟，1秒=1000 5分钟有300秒。300秒=300000 所以时钟周期=300000 在时钟事件下写下执行代码就可以了