Question

怎么用易语言写一键播放音乐（让他连续播放好几首歌）

比如说，播放附带的“#声音1”后，停留5秒，再播放“#声音2”。
.版本 2

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

播放MID (, , #声音1)
延时 (5000)
播放MID (, , #声音2)
延时 (5000)
播放MID (, , #声音3)
延时 (5000)
播放MID (, , #声音4)
延时 (5000)
播放MID (, , #声音5)
延时 (5000)
播放MID (, , #声音6)
延时 (5000)
播放MID (, , #声音7)
延时 (5000)
播放MID (, , #声音8)
延时 (5000)

这样的只能是放了5秒，然后放下一首。
总没必要让我把每首歌的长度计算出来，把5000替换为长度吧？

Answer 1

要播放的声音用MP3格式，然后用“播放MP3（）”来播放，用时钟来“取MP3播放状态（）”命令，如果播放状态为停止，就播放下一个。

追问

有举例的源码吗？附带的MID，不可以吗？我就是想让添加进去的声音文件，好几个声音文件连续播放。放完一首，停一下，再放下一个。

追答

播放MID的时候，第三个参数可以是数组。

.
.子程序 _按钮1_被单击
.局部变量 要播放的声音, 字节集, , "0"
清除数组 (要播放的声音)
加入成员 (要播放的声音, #声音1)
加入成员 (要播放的声音, #声音2)
加入成员 (要播放的声音, #声音3)
加入成员 (要播放的声音, #声音4)
加入成员 (要播放的声音, #声音5)
播放MID (1, 100, 要播放的声音)

这样就可以了。

Answer 2

.。其实不用简单运用了个烧毁命令就可以了让后在执行

追问

有举例的源码吗？附带的MID，不可以吗？我就是想让添加进去的声音文件，好几个声音文件连续播放。放完一首，停一下，再放下一个。