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

2025-02-25 18:42:34
推荐回答(2个)
回答1:

.版本 2

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

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

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

时钟1.时钟周期 = 1000

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

计时 = 计时 - 1
编辑框1.内容 = “倒计时还有:” + 到文本 (计时) + “秒”
.如果真 (计时 = 15)
播放音乐 (“音乐”, )
.如果真结束

.如果真 (计时 = 0)
时钟1.时钟周期 = 0
信息框 (“到计时已结束”, #确认钮 + #信息图标, “提示”)
.如果真结束

回答2:

.版本 2

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

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

.如果真 (倒计时 = 15 ) ' 15秒
时钟1.时钟周期 = 0
信息框 (“时间到”, 0, )
.如果真结束
倒计时 = 倒计时 - 1 ' 每秒递减1

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

倒计时 = 30 ' 假设定时是30秒
时钟1.时钟周期 = 1000