倒计时结束后 播放MP3

85886815

'倒计时结束后停止  不再进入循环倒计时    到计时结束后 启动播放MP3    然后等 MP3播放结束后关闭程序窗口

憨憨问号

看看满不满足你的要求，没问题麻烦结贴，有不懂可以私聊询问 计时.e (958.19 KB, 下载次数: 2)

昨天 12:03 上传

点击文件名下载附件

sangco

如果倒计时=0
时钟周期=0
播放MP3()
懒的进E打了. 大概这么个源码

85886815

sangco 发表于 2025-5-24 10:32
如果倒计时=0
时钟周期=0
播放MP3()

倒计时结束后停止  不再进入循环倒计时    到计时结束后 启动播放MP3    然后等 MP3播放结束后关闭程序窗口

憨憨问号

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

倒计时_时钟.时钟周期 ＝ 1000
集_初始时间 ＝ 20  ' 单位为秒
集_临时计次 ＝ 集_初始时间  ' 临时计次用于增减，初试时间不变

子程序名	返回值类型	公开	备 注
_倒计时_时钟_周期事件

集_临时计次 ＝ 集_临时计次 － 1  ' 每秒循环一次，每秒减一
倒计时_秒.标题 ＝ 到文本 (集_临时计次)
如果真 (集_临时计次 ≤ 0)  ' 如果倒计时小于等于0
集_临时计次 ＝ 集_初始时间
倒计时_秒.标题 ＝ 到文本 (集_临时计次)
倒计时_时钟.时钟周期 ＝ 0  ' 停止循环
启动线程 (&播放mp3, , )  ' 播放BGM

' 倒计时结束后停止  不再进入循环倒计时    到计时结束后 启动播放MP3    然后等 MP3播放结束后关闭程序窗口

子程序名	返回值类型	公开	备 注
播放mp3

变量名	类 型	静态	数组	备 注
mp3	文本型		0
x	整数型
随机数	整数型

x ＝ 文件_枚举 (取运行目录 () ＋ “\mp3”, “*.mp3”, mp3, 真, , 真)
置随机数种子 ()
随机数 ＝ 汇编_取随机数 (1, x)  ' 存放随机数
播放mp3 (, mp3 [随机数])  ' 播放MP3
延迟 (到整数 (文件_取MP3播放时间 (mp3 [随机数], 2)) × 1000)  ' 延迟音乐总时长后
结束 ()  ' 结束进程

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 倒计时_时钟.时钟周期 ＝ 1000<br /> 集_初始时间 ＝ 20  ' 单位为秒<br /> 集_临时计次 ＝ 集_初始时间  ' 临时计次用于增减，初试时间不变<br /> <br /> .子程序 _倒计时_时钟_周期事件<br /> <br /> <br /> 集_临时计次 ＝ 集_临时计次 － 1  ' 每秒循环一次，每秒减一<br /> 倒计时_秒.标题 ＝ 到文本 (集_临时计次)<br /> .如果真 (集_临时计次 ≤ 0)  ' 如果倒计时小于等于0<br />     集_临时计次 ＝ 集_初始时间<br />     倒计时_秒.标题 ＝ 到文本 (集_临时计次)<br />     倒计时_时钟.时钟周期 ＝ 0  ' 停止循环<br />     启动线程 (&播放mp3, , )  ' 播放BGM<br /> <br /> .如果真结束<br /> <br /> ' 倒计时结束后停止  不再进入循环倒计时    到计时结束后 启动播放MP3    然后等 MP3播放结束后关闭程序窗口<br /> <br /> .子程序 播放mp3<br /> .局部变量 mp3, 文本型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 随机数, 整数型<br /> <br /> x ＝ 文件_枚举 (取运行目录 () ＋ “\mp3”, “*.mp3”, mp3, 真, , 真)<br /> 置随机数种子 ()<br /> 随机数 ＝ 汇编_取随机数 (1, x)  ' 存放随机数<br /> 播放mp3 (, mp3 [随机数])  ' 播放MP3<br /> 延迟 (到整数 (文件_取MP3播放时间 (mp3 [随机数], 2)) × 1000)  ' 延迟音乐总时长后<br /> 结束 ()  ' 结束进程

85886815

憨憨问号 发表于 2025-5-24 12:04
[e=2].版本 2
.支持库 EThread
.支持库 spec

提示    调用子程序“播放mp3”时传递了过多的参数。
能上传一个源文件么