如何随机播放目录内的所有MP3文件

tst80tst

如何随机播放目录内的所有MP3文件？我这样写不行

  

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

变量名	类 型	静态	数组	备 注
MP3文件	文本型		0
n	整数型
随机MP3	整数型

计次循环首 (10, n)
加入成员 (MP3文件, 寻找文件 (取运行目录 () ＋ “\*.mp3”, ))
计次循环尾 ()
随机MP3 ＝ 取随机数 (1, 10)
调试输出 (取运行目录 () ＋ “\” ＋ #引号 ＋ MP3文件 [随机MP3] ＋ #引号 )
播放MP3 (1, 取运行目录 () ＋ “\” ＋ #引号 ＋ MP3文件 [随机MP3] ＋ #引号 )

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 播放<br /> .局部变量 MP3文件, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 随机MP3, 整数型<br /> <br /> .计次循环首 (10, n)<br />     加入成员 (MP3文件, 寻找文件 (取运行目录 () ＋ “\*.mp3”, ))<br /> .计次循环尾 ()<br /> <br /> 随机MP3 ＝ 取随机数 (1, 10)<br /> 调试输出 (取运行目录 () ＋ “\” ＋ #引号 ＋ MP3文件 [随机MP3] ＋ #引号)<br /> 播放MP3 (1, 取运行目录 () ＋ “\” ＋ #引号 ＋ MP3文件 [随机MP3] ＋ #引号)

阿顺

  

置随机数种子 ()
播放MP3 (, 取运行目录 () ＋ “\” ＋ 到文本 (取随机数 (1, 5)) ＋ “.mp3”)
要好，虽然我写的源码比他的复杂，但不用专门改文件名。
以下是这个模块的源码

子程序名	返回值类型	公开	备 注
随机播放音乐			随机播放音乐
参数名	类 型	参考	可空	数组	备 注
随机播放的路径	文本型				你要随机播放的路径

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

路径 ＝ 随机播放的路径
如果真 (取文本右边 (路径, 1) ≠ “\”)
如果真 (取文本右边 (路径, 1) ≠ “/”)
路径 ＝ 路径 ＋ “\”

文件路径 ＝ 寻找文件 (路径 ＋ “*.mp3”, )
判断循环首 (文件路径 ≠ “”)
加入成员 (歌曲路径, 路径 ＋ 文件路径)
文件路径 ＝ 寻找文件 (, )
判断循环尾 ()
置随机数种子 ()
播放MP3 (, 歌曲路径 [取随机数 (1, 取数组成员数 (歌曲路径))])

.版本 2<br /> 置随机数种子 ()<br /> 播放MP3 (, 取运行目录 () ＋ “\” ＋ 到文本 (取随机数 (1, 5)) ＋ “.mp3”)<br /> 要好，虽然我写的源码比他的复杂，但不用专门改文件名。<br /> 以下是这个模块的源码<br /> .版本 2<br /> <br /> .子程序 随机播放音乐, , 公开, 随机播放音乐<br /> .参数 随机播放的路径, 文本型, , 你要随机播放的路径<br /> .局部变量 路径, 文本型<br /> .局部变量 文件路径, 文本型<br /> .局部变量 歌曲路径, 文本型, , "0"<br /> <br /> 路径 ＝ 随机播放的路径<br /> .如果真 (取文本右边 (路径, 1) ≠ “\”)<br />     .如果真 (取文本右边 (路径, 1) ≠ “/”)<br />         路径 ＝ 路径 ＋ “\”<br />     .如果真结束<br /> <br /> .如果真结束<br /> 文件路径 ＝ 寻找文件 (路径 ＋ “*.mp3”, )<br /> .判断循环首 (文件路径 ≠ “”)<br />     加入成员 (歌曲路径, 路径 ＋ 文件路径)<br />     文件路径 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> 置随机数种子 ()<br /> 播放MP3 (, 歌曲路径 [取随机数 (1, 取数组成员数 (歌曲路径))])

阿顺

置于随机种子（）

寒潮

一个本地MP3播放器
https://bbs.125.la/forum.php?mod=viewthread&tid=14292159
(出处: 精易论坛)

Cplusplus

寻找文件 可以用来做判断条件。因为返回为空时表示搜寻结束。
大概框架这样：

1. 新文件 = 寻找文件 (取运行目录 () ＋ “\*.mp3”, )
   
2. 判断循环首(新文件 <> "")
   
3. ‘ 添加新文件 ....
   
4. ‘ 再次查找新文件
   
5. 新文件 = 寻找文件()
   
6. 判断循环尾()

复制代码

q6592081

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集_窗口1
   
4. .程序集变量 集_MP3文件, 文本型, , "0"
   
5. .程序集变量 集_路径, 文本型
   
6. 
   
7. .子程序 _按钮1_被单击
   
8. .局部变量 局_临时序号, 整数型
   
9. .局部变量 局_计次, 整数型
   
10. .局部变量 局_MP3名字, 文本型
    
11. 
    
12. .如果真 (取数组成员数 (集_MP3文件) ＝ 0)
    
13.     寻找MP3文件 ()
    
14.     .如果真 (取数组成员数 (局_MP3文件) ＝ 0)
    
15.         返回 ()
    
16.     .如果真结束
    
17. 
    
18. .如果真结束
    
19. 置随机数种子 ()
    
20. 局_临时序号 ＝ 取随机数 (1, 取数组成员数 (集_MP3文件))
    
21. 局_MP3名字 ＝ 集_MP3文件 [局_临时序号]
    
22. 删除成员 (集_MP3文件, 局_临时序号, )
    
23. 播放MP3 (1, 集_路径 ＋ 局_MP3名字)
    
24. 
    
25. .子程序 寻找MP3文件
    
26. 
    
27. 文件_枚举 (集_路径, “*.png”, 集_MP3文件, , , )
    
28. 
    
29. .子程序 _窗口1_创建完毕
    
30. 
    
31. 集_路径 ＝ 取运行目录 () ＋ “\”
    
32. 寻找MP3文件 ()
    

复制代码

补充内容 (2021-3-10 16:01):
    .如果真 (取数组成员数 (局_MP3文件) ＝ 0)
        返回 ()

局_MP3文件改成   集_MP3文件

补充内容 (2021-3-10 16:02):
文件_枚举 (集_路径, “*.png”, 集_MP3文件, , , )    PNG 改成MP3
..........

q6592081

测试.e (869.04 KB, 下载次数: 15)

2021-3-10 16:07 上传

点击文件名下载附件

云少i

置随机数种子（）
随机MP3 ＝ 取随机数 (1, 10)