易语言 倒计时 怎么实现 倒数的时候发出声音 和 时间到了 自动归零

.版本 2
.支持库 shellEx

.程序集 窗口程序集1
.程序集变量 热键, 整数型

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

热键 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F1键)

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

倒计时 (标签1)
.如果真 (标签1.标题 ＝ “0”)
时钟1.时钟周期 ＝ 0
.如果真结束

.子程序 _编辑框1_内容被改变

标签1.标题 ＝ 编辑框1.内容

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

信息框 (“开始计时”, 0, )
时钟1.时钟周期 ＝ 1000

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ 热键)
_按钮1_被单击 ()

就按你说的那样.你写的太麻烦了,就建一个标签一个时钟一个按钮一个编辑框.要发出声音,就先在资源里添加一个声音.就当做叫#声音1吧.然后写.

.版本 2
.支持库 shellEx

.程序集 窗口程序集1
.程序集变量 热键, 整数型

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

热键 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 1, #F1键)

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

标签1.标题 ＝ 到文本 (到数值 (标签1.标题) － 1)
播放音乐 (#声音1, )
.如果真 (标签1.标题 ＝ “-1”)
标签1.标题 ＝ 编辑框1.内容
.如果真结束

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

.判断开始 (编辑框1.内容 ≠ “”)
标签1.标题 ＝ 编辑框1.内容
时钟1.时钟周期 ＝ 1000
.默认
信息框 (“输个数吧”, 0, )
.判断结束

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ 热键)
_按钮1_被单击 ()

sub 倒计时() [a1].numberformatlocal = "h:mm:ss;@" [a1] = [a1] - 1 / 3600 / 24 '减去1秒 if [a1] < 1 / 60 / 24 then [a1].font.colorindex = 3 '小于1分钟，红色显示 else [a1].font.colorindex = 5 '否则蓝色显示 end if if [a1] > 0 then application.ontime time + timeserial(0, 0, 1), "sheet1.倒计时", , true '每过一秒调用本程序一次 else [a1] = "00:00:00" end if end sub alt+f11，双击右边sheet1后粘贴代码。 最好建一命令按钮，单击开始运行sheet1.倒计时。 private sub commandbutton1_click() sheet1.倒计时 end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息