文件夹里MP3随机播放

85886815

怎么让文件夹里的MP3随机播放    且电脑不死机   以上写法播放不了

走一回

_按钮1_被单击      这个事件下要调用   子程序：随机播放目录下mp3

haoren1212

使用线程

xyts022618

看我贴：音乐播放器，占用内存远小于系统自带播放器，响应迅速 https://125.confly.eu.org/forum.php?mod=viewthread&tid=14715844 (出处: 精易论坛)

你的猫

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
mp3列表	文本型	0
当前索引	整数型
播放状态	逻辑型

DLL命令名	返回值类型	公开	备 注
mciSendString	整数型
DLL库文件名:
winmm.dll
在DLL库中对应命令名:
mciSendStringA
参数名	类 型	传址	数组	备 注
指令	文本型
返回信息	文本型
返回长度	整数型
窗口句柄	整数型

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

播放状态 ＝ 假
列表框1.可视 ＝ 假
按钮_选择目录.标题 ＝ "选择MP3目录"
按钮_播放.标题 ＝ "播放/暂停"
按钮_停止.标题 ＝ "停止"
按钮_下一首.标题 ＝ "下一首"

子程序名	返回值类型	公开	备 注
_按钮_选择目录_被单击

变量名	类 型	静态	数组	备 注
目录路径	文本型

目录路径 ＝ 浏览文件夹 ("选择MP3文件夹", )
如果真 (目录路径 ≠ "")
枚举MP3文件 (目录路径)
如果真 (取数组成员数 (mp3列表) ＞ 0)
随机排序 ()
列表框1.清空 ()
计次循环首 (取数组成员数 (mp3列表), 当前索引)
列表框1.加入项目 (取文本右边 (mp3列表 [当前索引], 取文本长度 (mp3列表 [当前索引]) － 倒找文本 (mp3列表 [当前索引], "\", , 假)), )
计次循环尾 ()
当前索引 ＝ 0

子程序名	返回值类型	公开	备 注
枚举MP3文件
参数名	类 型	参考	可空	数组	备 注
目录	文本型

变量名	类 型	静态	数组	备 注
文件句柄	整数型
文件信息	文本型

清除数组 (mp3列表)
文件句柄 ＝ 寻找文件 (目录 ＋ "\*.mp3", )
判断循环首 (文件句柄 ≠ 0)
加入成员 (mp3列表, 目录 ＋ "\" ＋ 文件信息)
文件句柄 ＝ 寻找文件 (, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
随机排序

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
temp	文本型

置随机数种子 ()
计次循环首 (取数组成员数 (mp3列表) × 3, )
i ＝ 取随机数 (1, 取数组成员数 (mp3列表))
j ＝ 取随机数 (1, 取数组成员数 (mp3列表))
如果真 (i ≠ j)
temp ＝ mp3列表 [i]
mp3列表 [i] ＝ mp3列表 [j]
mp3列表 [j] ＝ temp

计次循环尾 ()

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

如果真 (取数组成员数 (mp3列表) ＝ 0)
返回 ()

如果 (播放状态)
mciSendString ("pause myMp3", , 0, 0)
播放状态 ＝ 假
如果 (当前索引 ＝ 0)
当前索引 ＝ 1
mciSendString ("seek myMp3 to start", , 0, 0)
mciSendString ("play myMp3", , 0, 0)
播放状态 ＝ 真

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

mciSendString ("close myMp3", , 0, 0)
播放状态 ＝ 假
当前索引 ＝ 0

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

如果真 (取数组成员数 (mp3列表) ＝ 0)
返回 ()

当前索引 ＝ 当前索引 ＋ 1
如果真 (当前索引 ＞ 取数组成员数 (mp3列表))
当前索引 ＝ 1
播放指定文件 (当前索引)

子程序名	返回值类型	公开	备 注
播放指定文件
参数名	类 型	参考	可空	数组	备 注
索引	整数型

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

如果真 (索引 ＜ 1 或 索引 ＞ 取数组成员数 (mp3列表))
返回 ()

文件路径 ＝ mp3列表 [索引]
mciSendString ("open """ ＋ 文件路径 ＋ """ alias myMp3", , 0, 0)
mciSendString ("play myMp3", , 0, 0)
播放状态 ＝ 真
标题 ＝ "正在播放：" ＋ 取文本右边 (文件路径, 取文本长度 (文件路径) － 倒找文本 (文件路径, "\", , 假))

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

mciSendString ("close all", , 0, 0)

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

.版本 2<br /> .支持库 shellEx<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 mp3列表, 文本型, , "0"<br /> .程序集变量 当前索引, 整数型<br /> .程序集变量 播放状态, 逻辑型<br /> <br /> .DLL命令 mciSendString, 整数型, "winmm.dll", "mciSendStringA"<br />     .参数 指令, 文本型<br />     .参数 返回信息, 文本型<br />     .参数 返回长度, 整数型<br />     .参数 窗口句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> 播放状态 ＝ 假<br /> 列表框1.可视 ＝ 假<br /> 按钮_选择目录.标题 ＝ "选择MP3目录"<br /> 按钮_播放.标题 ＝ "播放/暂停"<br /> 按钮_停止.标题 ＝ "停止"<br /> 按钮_下一首.标题 ＝ "下一首"<br /> <br /> .子程序 _按钮_选择目录_被单击<br /> .局部变量 目录路径, 文本型<br /> <br /> 目录路径 ＝ 浏览文件夹 ("选择MP3文件夹", )<br /> .如果真 (目录路径 ≠ "")<br />     枚举MP3文件 (目录路径)<br />     .如果真 (取数组成员数 (mp3列表) ＞ 0)<br />         随机排序 ()<br />         列表框1.清空 ()<br />         .计次循环首 (取数组成员数 (mp3列表), 当前索引)<br />             列表框1.加入项目 (取文本右边 (mp3列表 [当前索引], 取文本长度 (mp3列表 [当前索引]) － 倒找文本 (mp3列表 [当前索引], "\", , 假)), )<br />         .计次循环尾 ()<br />         当前索引 ＝ 0<br />     .如果真结束<br /> .如果真结束<br /> <br /> .子程序 枚举MP3文件<br /> .参数 目录, 文本型<br /> .局部变量 文件句柄, 整数型<br /> .局部变量 文件信息, 文本型<br /> <br /> 清除数组 (mp3列表)<br /> 文件句柄 ＝ 寻找文件 (目录 ＋ "\*.mp3", )<br /> .判断循环首 (文件句柄 ≠ 0)<br />     加入成员 (mp3列表, 目录 ＋ "\" ＋ 文件信息)<br />     文件句柄 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> .子程序 随机排序<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 temp, 文本型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (取数组成员数 (mp3列表) × 3, )<br />     i ＝ 取随机数 (1, 取数组成员数 (mp3列表))<br />     j ＝ 取随机数 (1, 取数组成员数 (mp3列表))<br />     .如果真 (i ≠ j)<br />         temp ＝ mp3列表 <i><br />         mp3列表 <i> ＝ mp3列表 [j]<br />         mp3列表 [j] ＝ temp<br />     .如果真结束<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮_播放_被单击<br /> .如果真 (取数组成员数 (mp3列表) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果 (播放状态)<br />     mciSendString ("pause myMp3", , 0, 0)<br />     播放状态 ＝ 假<br /> .否则<br />     .如果 (当前索引 ＝ 0)<br />         当前索引 ＝ 1<br />     .否则<br />         mciSendString ("seek myMp3 to start", , 0, 0)<br />     .如果结束<br />     mciSendString ("play myMp3", , 0, 0)<br />     播放状态 ＝ 真<br /> .如果结束<br /> <br /> .子程序 _按钮_停止_被单击<br /> mciSendString ("close myMp3", , 0, 0)<br /> 播放状态 ＝ 假<br /> 当前索引 ＝ 0<br /> <br /> .子程序 _按钮_下一首_被单击<br /> .如果真 (取数组成员数 (mp3列表) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> <br /> 当前索引 ＝ 当前索引 ＋ 1<br /> .如果真 (当前索引 ＞ 取数组成员数 (mp3列表))<br />     当前索引 ＝ 1<br /> .如果真结束<br /> 播放指定文件 (当前索引)<br /> <br /> .子程序 播放指定文件<br /> .参数 索引, 整数型<br /> .局部变量 文件路径, 文本型<br /> <br /> .如果真 (索引 ＜ 1 或 索引 ＞ 取数组成员数 (mp3列表))<br />     返回 ()<br /> .如果真结束<br /> <br /> 文件路径 ＝ mp3列表 [索引]<br /> mciSendString ("open """ ＋ 文件路径 ＋ """ alias myMp3", , 0, 0)<br /> mciSendString ("play myMp3", , 0, 0)<br /> 播放状态 ＝ 真<br /> 标题 ＝ "正在播放：" ＋ 取文本右边 (文件路径, 取文本长度 (文件路径) － 倒找文本 (文件路径, "\", , 假))<br /> <br /> .子程序 __启动窗口_将被销毁<br /> mciSendString ("close all", , 0, 0)

aipca

那个X的变量是干啥的？取枚举出来数组成员数的随机数即可。

  

子程序名	返回值类型	公开	备 注
随机播放目录下mp3

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

文件_枚举 (取运行目录 () ＋ “\mp3”, “*.mp3”, mp3, 真, , 真)
置随机数种子 ()
播放MP3 (, mp3 [取随机数 (1, 取数组成员数 (mp3))])

.版本 2<br /> <br /> .子程序 随机播放目录下mp3<br /> .局部变量 mp3, 文本型, , "0"<br /> <br /> 文件_枚举 (取运行目录 () ＋ “\mp3”, “*.mp3”, mp3, 真, , 真)<br /> 置随机数种子 ()<br /> 播放MP3 (, mp3 [取随机数 (1, 取数组成员数 (mp3))])

安慕希ii

  

子程序名	返回值类型	公开	备 注
随机播放目录下mp3

变量名	类 型	静态	数组	备 注
mp3文件列表	文本型		0
文件数量	整数型
已播放标记	整数型		0
剩余数量	整数型
随机索引	整数型
实际索引	整数型
i	整数型
循环变量	整数型
ii	整数型

' 枚举MP3文件
文件数量 ＝ 文件_枚举 (取运行目录 () ＋ “\mp3”, “*.mp3”, mp3文件列表, 真, , 真)
如果 (文件数量 ≤ 0)
信息框 (“未找到MP3文件！”, 0, “错误”, )
返回 ()



' 初始化已播放标记数组（全部标记为未播放）
计次循环首 (文件数量, )
加入成员 (已播放标记, ii)  ' 0表示未播放
计次循环尾 ()
剩余数量 ＝ 文件数量
置随机数种子 ()
' 循环播放所有文件（不重复）
判断循环首 (剩余数量 ＞ 0)
' 随机选择一个未播放的文件
随机索引 ＝ 取随机数 (1, 剩余数量)
实际索引 ＝ 0
计次循环首 (文件数量, 循环变量)
如果 (已播放标记 [循环变量] ＝ 0)  ' 未播放的文件
实际索引 ＝ 实际索引 ＋ 1
如果 (实际索引 ＝ 随机索引)
' 找到目标文件，播放它
播放MP3 (, mp3文件列表 [循环变量])
' 标记为已播放
已播放标记 [循环变量] ＝ 1
剩余数量 ＝ 剩余数量 － 1
' 等待用户确认后继续（改进版）
跳出循环 ()




计次循环尾 ()
判断循环尾 ()
返回 ()

.版本 2<br /> <br /> .子程序 随机播放目录下mp3<br /> .局部变量 mp3文件列表, 文本型, , "0"<br /> .局部变量 文件数量, 整数型<br /> .局部变量 已播放标记, 整数型, , "0"<br /> .局部变量 剩余数量, 整数型<br /> .局部变量 随机索引, 整数型<br /> .局部变量 实际索引, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 循环变量, 整数型<br /> .局部变量 ii, 整数型<br /> <br /> ' 枚举MP3文件<br /> 文件数量 ＝ 文件_枚举 (取运行目录 () ＋ “\mp3”, “*.mp3”, mp3文件列表, 真, , 真)<br /> <br /> .如果 (文件数量 ≤ 0)<br />     信息框 (“未找到MP3文件！”, 0, “错误”, )<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> ' 初始化已播放标记数组（全部标记为未播放）<br /> .计次循环首 (文件数量, )<br /> <br />     加入成员 (已播放标记, ii)  ' 0表示未播放<br /> .计次循环尾 ()<br /> <br /> 剩余数量 ＝ 文件数量<br /> 置随机数种子 ()<br /> <br /> ' 循环播放所有文件（不重复）<br /> .判断循环首 (剩余数量 ＞ 0)<br />     ' 随机选择一个未播放的文件<br />     随机索引 ＝ 取随机数 (1, 剩余数量)<br />     实际索引 ＝ 0<br /> <br />     .计次循环首 (文件数量, 循环变量)<br />         .如果 (已播放标记 [循环变量] ＝ 0)  ' 未播放的文件<br />             实际索引 ＝ 实际索引 ＋ 1<br /> <br />             .如果 (实际索引 ＝ 随机索引)<br />                 ' 找到目标文件，播放它<br />                 播放MP3 (, mp3文件列表 [循环变量])<br /> <br />                 ' 标记为已播放<br />                 已播放标记 [循环变量] ＝ 1<br />                 剩余数量 ＝ 剩余数量 － 1<br /> <br />                 ' 等待用户确认后继续（改进版）<br /> <br /> <br />                 跳出循环 ()<br />             .否则<br /> <br />             .如果结束<br /> <br />         .否则<br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .判断循环尾 ()<br /> <br /> 返回 ()

SummerTail

  

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

随机播放目录下mp3 ()

子程序名	返回值类型	公开	备 注
随机播放目录下mp3

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

x ＝ 文件_枚举 (取运行目录 () ＋ “\mp3”, “*.mp3”, mp3, 真, , 真)
置随机数种子 ()
调试输出 (mp3 [取随机数 (1, x)])
播放MP3 (, mp3 [取随机数 (1, x)])

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 随机播放目录下mp3 ()<br /> <br /> .子程序 随机播放目录下mp3<br /> .局部变量 mp3, 文本型, , "0"<br /> .局部变量 x, 整数型<br /> <br /> x ＝ 文件_枚举 (取运行目录 () ＋ “\mp3”, “*.mp3”, mp3, 真, , 真)<br /> 置随机数种子 ()<br /> 调试输出 (mp3 [取随机数 (1, x)])<br /> 播放MP3 (, mp3 [取随机数 (1, x)])

额，你没调用你写的方法肯定不播放啊

山猫啊

按钮里面没有调用子程序

山猫啊

MP3.e (1.07 MB, 下载次数: 5)

2025-5-18 16:09 上传

点击文件名下载附件