小白播放器之连续播放问题解决。

炼金师

之前一直受音乐播放无法连续播放，只能单曲播放的问题困扰，试过了线程播放、定时器组件设置等，都没用（可能是我的技术水平太低了），今天终于解开问题了，就是播放MP3（-1 MP3文件列表），将当前播放索引去掉，直接调用播放MP3文件列表就可以了，很简单的问题，让我研究了2天，我的妈呀！！！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
MP3文件列表	文本型	0
当前播放索引	整数型
下一首索引	整数型
随机播放索引	整数型
循环播放索引	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

当前播放索引 ＝ 0  ' 初始化为0，表示没有播放任何文件
' 初始化超级列表框：清空现有内容，并添加一列用于显示曲目名称
超级列表框1.全部删除 ()
超级列表框1.插入列 (0, “曲目名称”, 150, , , )  ' 插入列，标题为“曲目名称”，宽度150像素

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

变量名	类 型	静态	数组	备 注
文件组	文本型		0
i	整数型
文件名	文本型
反斜杠位置	整数型

文件组 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真, )
如果真 (取数组成员数 (文件组) ＝ 0)
返回 ()

' 将选择的文件添加到程序集变量中
MP3文件列表 ＝ 文件组
当前播放索引 ＝ 1  ' 从第一首开始播放
' 清空超级列表框，然后遍历文件列表，将文件名添加到超级列表框
超级列表框1.全部删除 ()
计次循环首 (取数组成员数 (MP3文件列表), i)
' 使用字符串处理提取文件名
反斜杠位置 ＝ 倒找文本 (MP3文件列表 [i], “\”, , 假)
如果真 (反斜杠位置 ≠ -1)
文件名 ＝ 取文本右边 (MP3文件列表 [i], 取文本长度 (MP3文件列表 [i]) － 反斜杠位置)

' 插入到超级列表框
超级列表框1.插入表项 (-1, 文件名, , , , )
计次循环尾 ()
播放MP3 (-1, MP3文件列表)

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

暂停播放MP3 ()

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

继续播放MP3 ()

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

如果真 (取数组成员数 (MP3文件列表) ＝ 0)
返回 ()
' 计算下一首索引
下一首索引 ＝ 当前播放索引 ＋ 1
如果真 (下一首索引 ＞ 取数组成员数 (MP3文件列表))
下一首索引 ＝ 1

' 更新当前播放索引
当前播放索引 ＝ 下一首索引
' 停止当前播放并播放下一首
暂停播放MP3 ()
播放MP3 (-1, MP3文件列表)

子程序名	返回值类型	公开	备 注
_随机播放_被单击

变量名	类 型	静态	数组	备 注
随机数	整数型

如果真 (取数组成员数 (MP3文件列表) ＝ 0)
返回 ()
' 生成一个随机索引（不同于当前播放索引）
置随机数种子 ()
随机数 ＝ 取随机数 (1, 取数组成员数 (MP3文件列表))
循环判断首 ()
随机数 ＝ 取随机数 (1, 取数组成员数 (MP3文件列表))
循环判断尾 (随机数 ＝ 当前播放索引)
' 更新当前播放索引
当前播放索引 ＝ 随机数
暂停播放MP3 ()
播放MP3 (-1, MP3文件列表)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 MP3文件列表, 文本型, , "0"<br /> .程序集变量 当前播放索引, 整数型<br /> .程序集变量 下一首索引, 整数型<br /> .程序集变量 随机播放索引, 整数型<br /> .程序集变量 循环播放索引, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 当前播放索引 ＝ 0  ' 初始化为0，表示没有播放任何文件<br /> ' 初始化超级列表框：清空现有内容，并添加一列用于显示曲目名称<br /> 超级列表框1.全部删除 ()<br /> 超级列表框1.插入列 (0, “曲目名称”, 150, , , )  ' 插入列，标题为“曲目名称”，宽度150像素<br /> <br /> <br /> .子程序 _播放按钮_被单击<br /> .局部变量 文件组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 反斜杠位置, 整数型<br /> <br /> 文件组 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真, )<br /> .如果真 (取数组成员数 (文件组) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> ' 将选择的文件添加到程序集变量中<br /> MP3文件列表 ＝ 文件组<br /> 当前播放索引 ＝ 1  ' 从第一首开始播放<br /> ' 清空超级列表框，然后遍历文件列表，将文件名添加到超级列表框<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (取数组成员数 (MP3文件列表), i)<br />     ' 使用字符串处理提取文件名<br />     反斜杠位置 ＝ 倒找文本 (MP3文件列表 <i>, “\”, , 假)<br />     .如果真 (反斜杠位置 ≠ -1)<br />         文件名 ＝ 取文本右边 (MP3文件列表 <i>, 取文本长度 (MP3文件列表 <i>) － 反斜杠位置)<br />     .如果真结束<br /> <br />     ' 插入到超级列表框<br />     超级列表框1.插入表项 (-1, 文件名, , , , )<br /> .计次循环尾 ()<br /> <br /> 播放MP3 (-1, MP3文件列表)<br /> <br /> .子程序 _暂停按钮_被单击<br /> <br /> 暂停播放MP3 ()<br /> <br /> .子程序 _继续按钮_被单击<br /> <br /> 继续播放MP3 ()<br /> <br /> .子程序 _下一首按钮_被单击<br /> <br /> .如果真 (取数组成员数 (MP3文件列表) ＝ 0)<br /> <br />     返回 ()<br /> .如果真结束<br /> ' 计算下一首索引<br /> 下一首索引 ＝ 当前播放索引 ＋ 1<br /> .如果真 (下一首索引 ＞ 取数组成员数 (MP3文件列表))<br />     下一首索引 ＝ 1<br /> .如果真结束<br /> <br /> ' 更新当前播放索引<br /> 当前播放索引 ＝ 下一首索引<br /> <br /> ' 停止当前播放并播放下一首<br /> 暂停播放MP3 ()<br /> 播放MP3 (-1, MP3文件列表)<br /> <br /> <br /> .子程序 _随机播放_被单击<br /> .局部变量 随机数, 整数型<br /> <br /> <br /> .如果真 (取数组成员数 (MP3文件列表) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> ' 生成一个随机索引（不同于当前播放索引）<br /> 置随机数种子 ()<br /> 随机数 ＝ 取随机数 (1, 取数组成员数 (MP3文件列表))<br /> .循环判断首 ()<br />     随机数 ＝ 取随机数 (1, 取数组成员数 (MP3文件列表))<br /> .循环判断尾 (随机数 ＝ 当前播放索引)<br /> <br /> ' 更新当前播放索引<br /> 当前播放索引 ＝ 随机数<br /> 暂停播放MP3 ()<br /> 播放MP3 (-1, MP3文件列表)

炼金师

vosia 发表于 2025-10-31 21:51
看一下  学习一下

多多交流，相互学习，我也是刚接触易语言不久

vosia

看一下  学习一下