持续完善“我的播放器”之第二篇-添加了“随机播放功能”

炼金师

  

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

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

当前播放索引 ＝ 0  ' 初始化为0，表示没有播放任何文件

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

变量名	类 型	静态	数组	备 注
文件组	文本型		0

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

' 将选择的文件添加到程序集变量中
MP3文件列表 ＝ 文件组
当前播放索引 ＝ 1  ' 从第一首开始播放
播放MP3 (当前播放索引, MP3文件列表 [当前播放索引])

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

暂停播放MP3 ()

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

继续播放MP3 ()

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

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

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

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

如果真 (取数组成员数 (MP3文件列表) ＝ 0)
返回 ()
随机播放索引 ＝ 当前播放索引 ＋ 1
如果真 (随机播放索引 ＞ 取数组成员数 (MP3文件列表))
随机播放索引 ＝ 1
' 更新当前播放索引
当前播放索引 ＝ 随机播放索引
暂停播放MP3 ()
播放MP3 (当前播放索引, MP3文件列表 [随机播放索引])

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 MP3文件列表, 文本型, , "0"<br /> .程序集变量 当前播放索引, 整数型<br /> .程序集变量 下一首索引, 整数型<br /> .程序集变量 随机播放索引, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 当前播放索引 ＝ 0  ' 初始化为0，表示没有播放任何文件<br /> <br /> .子程序 _播放按钮_被单击<br /> .局部变量 文件组, 文本型, , "0"<br /> <br /> 文件组 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真, )<br /> .如果真 (取数组成员数 (文件组) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> ' 将选择的文件添加到程序集变量中<br /> MP3文件列表 ＝ 文件组<br /> 当前播放索引 ＝ 1  ' 从第一首开始播放<br /> <br /> 播放MP3 (当前播放索引, 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 (当前播放索引, MP3文件列表 [当前播放索引])<br /> <br /> <br /> .子程序 _随机播放_被单击<br /> <br /> .如果真 (取数组成员数 (MP3文件列表) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> 随机播放索引 ＝ 当前播放索引 ＋ 1<br /> .如果真 (随机播放索引 ＞ 取数组成员数 (MP3文件列表))<br />     随机播放索引 ＝ 1<br /> .如果真结束<br /> ' 更新当前播放索引<br /> 当前播放索引 ＝ 随机播放索引<br /> 暂停播放MP3 ()<br /> 播放MP3 (当前播放索引, MP3文件列表 [随机播放索引])

RainCharm

你确定随机播放没有写错？下一首命令  跟  随机播放  两个写的一样的呀

憨憨问号

非常不错

神一样的人猫腻

随机播放索引

static101

找个随机数源码，把文件列表随机给随机播放索引