怎样用易语言写一个计时器

怎样用易语言写一个计时器

.版本 2

.程序集 窗口程序集1
.程序集变量 计时, 整数型

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

计时 ＝ 到数值 (编辑框1.内容)
.如果真 (计时 ＜ 1)
信息框 (“错误，”, 0, )
返回 ()
.如果真结束

时钟1.时钟周期 ＝ 1000

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

计时 ＝ 计时 － 1
编辑框1.内容 ＝ “倒计时还有：” ＋ 到文本 (计时) ＋ “秒”
.如果真 (计时 ＝ 15)
播放音乐 (“音乐”, )
.如果真结束

.如果真 (计时 ＝ 0)
时钟1.时钟周期 ＝ 0
信息框 (“到计时已结束”, #确认钮 ＋ #信息图标, “提示”)
.如果真结束追问如果是设置成输入时间和秒，比如输入5分25秒，改怎么设置，还有，运行的时候，提示缺少变量“计时”...不懂，新手，莫笑哈

.版本 2
.程序集 窗口程序集1
.程序集变量 倒计时, 整数型
.子程序 _时钟1_周期事件
.如果真 (倒计时 ＝ 15 ) ' 15秒
时钟1.时钟周期 ＝ 0
信息框 (“时间到”, 0, )
.如果真结束
倒计时 ＝ 倒计时 － 1 ' 每秒递减1
.子程序 _按钮1_被单击
倒计时 ＝ 30 ' 假设定时是30秒
时钟1.时钟周期 ＝ 1000