易飞鸟|一个MP3播放器源码分享

易飞鸟

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_索引	整数型
集_歌曲全路径	文本型
集_暂停	逻辑型

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

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

皮肤_加载 ( #皮肤_QQ音乐, , )
如果真 (打开 ( #数据库1, , , , , , ))
置当前库 ( #数据库1 )
到首记录 ()
计次循环首 (取记录数 (), i)
集_索引 ＝ 超级列表框_播放列表.插入表项 (, , , , , )
超级列表框_播放列表.置标题 (集_索引, 0, 到文本 (读 ( #序号 )))
超级列表框_播放列表.置标题 (集_索引, 1, 到文本 (读 ( #歌曲名 )))
超级列表框_播放列表.置标题 (集_索引, 2, 到文本 (读 ( #全路径 )))
跳过 ()
计次循环尾 ()

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

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

歌曲名数组 ＝ 多文件对话框 (“选择mp3文件”, “MP3文件|*.mp3”, , 取运行目录 (), , )
如果真 (取数组成员数 (歌曲名数组) ＞ 0)
超级列表框_播放列表.全部删除 ()
清空 ()
计次循环首 (取数组成员数 (歌曲名数组), i)
歌曲名 ＝ 文件_取文件名 (歌曲名数组 [i], 真)
歌曲全路径 ＝ 歌曲名数组 [i]
集_索引 ＝ 超级列表框_播放列表.插入表项 (, , , , , )
超级列表框_播放列表.置标题 (集_索引, 0, 到文本 (集_索引 ＋ 1))
超级列表框_播放列表.置标题 (集_索引, 1, 歌曲名)
超级列表框_播放列表.置标题 (集_索引, 2, 歌曲全路径)
加记录 (集_索引 ＋ 1, 歌曲名, 歌曲全路径)
计次循环尾 ()

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

如果 (集_暂停 ＝ 真)
集_暂停 ＝ 假
滑块条_进度.位置 ＝ 0

如果真 (组合框_播放方式.内容 ＝ “单曲循环”)
子程序_单曲循环 ()

如果真 (组合框_播放方式.内容 ＝ “随机播放”)
子程序_随机播放 ()

如果真 (组合框_播放方式.内容 ＝ “列表循环”)
子程序_列表循环 ()

子程序名	返回值类型	公开	备 注
子程序_单曲循环

集_歌曲全路径 ＝ 超级列表框_播放列表.取标题 (超级列表框_播放列表.现行选中项, 2)
时钟1.时钟周期 ＝ 1000
播放MP3歌曲 (集_歌曲全路径)

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

集_歌曲全路径 ＝ 超级列表框_播放列表.取标题 (超级列表框_播放列表.现行选中项, 2)
时钟1.时钟周期 ＝ 1000
播放MP3歌曲 (集_歌曲全路径)

子程序名	返回值类型	公开	备 注
子程序_列表循环

如果真 (超级列表框_播放列表.取表项数 () ＞ 0)
如果真 (超级列表框_播放列表.现行选中项 ＝ -1)
超级列表框_播放列表.现行选中项 ＝ 0

集_歌曲全路径 ＝ 超级列表框_播放列表.取标题 (超级列表框_播放列表.现行选中项, 2)
时钟1.时钟周期 ＝ 1000
播放MP3歌曲 (集_歌曲全路径)

子程序名	返回值类型	公开	备 注
播放MP3歌曲
参数名	类 型	参考	可空	数组	备 注
歌曲全路径	文本型

同步播放MP3 (歌曲全路径, 滑块条_进度.位置, 标签_反馈, )
_启动窗口.标题 ＝ 文件_取文件名 (歌曲全路径, 真)

子程序名	返回值类型	公开	备 注
_标签_反馈_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

滑块条_进度.位置 ＝ 参数一

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
索引	整数型

如果真 (组合框_播放方式.内容 ＝ “单曲循环”)
如果真 (滑块条_进度.位置 ＝ 100)
滑块条_进度.位置 ＝ 0
播放MP3歌曲 (集_歌曲全路径)


如果真 (组合框_播放方式.内容 ＝ “随机播放”)
如果真 (滑块条_进度.位置 ＝ 100)
置随机数种子 ()
索引 ＝ 取随机数 (0, 超级列表框_播放列表.取表项数 ())
超级列表框_播放列表.保证显示 (索引)
超级列表框_播放列表.现行选中项 ＝ 索引
集_歌曲全路径 ＝ 超级列表框_播放列表.取标题 (索引, 2)
滑块条_进度.位置 ＝ 0
播放MP3歌曲 (集_歌曲全路径)


如果真 (组合框_播放方式.内容 ＝ “列表循环”)
如果真 (滑块条_进度.位置 ＝ 100)
如果 (超级列表框_播放列表.现行选中项 ＋ 1 ＝ 超级列表框_播放列表.取表项数 ())
索引 ＝ 0
索引 ＝ 超级列表框_播放列表.现行选中项 ＋ 1

超级列表框_播放列表.保证显示 (索引)
超级列表框_播放列表.现行选中项 ＝ 索引
集_歌曲全路径 ＝ 超级列表框_播放列表.取标题 (索引, 2)
滑块条_进度.位置 ＝ 0
播放MP3歌曲 (集_歌曲全路径)

子程序名	返回值类型	公开	备 注
_滑块条_进度_位置被改变

播放MP3歌曲 (集_歌曲全路径)

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

暂停播放MP3 ()
集_暂停 ＝ 真

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_索引, 整数型<br /> .程序集变量 集_歌曲全路径, 文本型<br /> .程序集变量 集_暂停, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> 皮肤_加载 (#皮肤_QQ音乐, , )<br /> .如果真 (打开 (#数据库1, , , , , , ))<br />     置当前库 (#数据库1)<br />     到首记录 ()<br />     .计次循环首 (取记录数 (), i)<br />         集_索引 ＝ 超级列表框_播放列表.插入表项 (, , , , , )<br />         超级列表框_播放列表.置标题 (集_索引, 0, 到文本 (读 (#序号)))<br />         超级列表框_播放列表.置标题 (集_索引, 1, 到文本 (读 (#歌曲名)))<br />         超级列表框_播放列表.置标题 (集_索引, 2, 到文本 (读 (#全路径)))<br />         跳过 ()<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_导入_被单击<br /> .局部变量 歌曲名数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 歌曲名, 文本型<br /> .局部变量 歌曲全路径, 文本型<br /> <br /> 歌曲名数组 ＝ 多文件对话框 (“选择mp3文件”, “MP3文件|*.mp3”, , 取运行目录 (), , )<br /> .如果真 (取数组成员数 (歌曲名数组) ＞ 0)<br />     超级列表框_播放列表.全部删除 ()<br />     清空 ()<br />     .计次循环首 (取数组成员数 (歌曲名数组), i)<br />         歌曲名 ＝ 文件_取文件名 (歌曲名数组 <i>, 真)<br />         歌曲全路径 ＝ 歌曲名数组 <i><br />         集_索引 ＝ 超级列表框_播放列表.插入表项 (, , , , , )<br />         超级列表框_播放列表.置标题 (集_索引, 0, 到文本 (集_索引 ＋ 1))<br />         超级列表框_播放列表.置标题 (集_索引, 1, 歌曲名)<br />         超级列表框_播放列表.置标题 (集_索引, 2, 歌曲全路径)<br />         加记录 (集_索引 ＋ 1, 歌曲名, 歌曲全路径)<br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_播放_被单击<br /> <br /> .如果 (集_暂停 ＝ 真)<br />     集_暂停 ＝ 假<br /> .否则<br />     滑块条_进度.位置 ＝ 0<br /> .如果结束<br /> <br /> .如果真 (组合框_播放方式.内容 ＝ “单曲循环”)<br />     子程序_单曲循环 ()<br /> .如果真结束<br /> <br /> .如果真 (组合框_播放方式.内容 ＝ “随机播放”)<br />     子程序_随机播放 ()<br /> .如果真结束<br /> <br /> .如果真 (组合框_播放方式.内容 ＝ “列表循环”)<br />     子程序_列表循环 ()<br /> .如果真结束<br /> <br /> <br /> <br /> <br /> .子程序 子程序_单曲循环<br /> <br /> 集_歌曲全路径 ＝ 超级列表框_播放列表.取标题 (超级列表框_播放列表.现行选中项, 2)<br /> 时钟1.时钟周期 ＝ 1000<br /> 播放MP3歌曲 (集_歌曲全路径)<br /> <br /> <br /> <br /> .子程序 子程序_随机播放<br /> <br /> 集_歌曲全路径 ＝ 超级列表框_播放列表.取标题 (超级列表框_播放列表.现行选中项, 2)<br /> 时钟1.时钟周期 ＝ 1000<br /> 播放MP3歌曲 (集_歌曲全路径)<br /> <br /> <br /> .子程序 子程序_列表循环<br /> <br /> .如果真 (超级列表框_播放列表.取表项数 () ＞ 0)<br />     .如果真 (超级列表框_播放列表.现行选中项 ＝ -1)<br />         超级列表框_播放列表.现行选中项 ＝ 0<br />     .如果真结束<br /> <br />     集_歌曲全路径 ＝ 超级列表框_播放列表.取标题 (超级列表框_播放列表.现行选中项, 2)<br />     时钟1.时钟周期 ＝ 1000<br />     播放MP3歌曲 (集_歌曲全路径)<br /> <br /> <br /> .如果真结束<br /> <br /> <br /> <br /> <br /> .子程序 播放MP3歌曲<br /> .参数 歌曲全路径, 文本型<br /> <br /> 同步播放MP3 (歌曲全路径, 滑块条_进度.位置, 标签_反馈, )<br /> _启动窗口.标题 ＝ 文件_取文件名 (歌曲全路径, 真)<br /> <br /> <br /> .子程序 _标签_反馈_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> 滑块条_进度.位置 ＝ 参数一<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 索引, 整数型<br /> <br /> .如果真 (组合框_播放方式.内容 ＝ “单曲循环”)<br />     .如果真 (滑块条_进度.位置 ＝ 100)<br />         滑块条_进度.位置 ＝ 0<br />         播放MP3歌曲 (集_歌曲全路径)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (组合框_播放方式.内容 ＝ “随机播放”)<br />     .如果真 (滑块条_进度.位置 ＝ 100)<br />         置随机数种子 ()<br />         索引 ＝ 取随机数 (0, 超级列表框_播放列表.取表项数 ())<br />         超级列表框_播放列表.保证显示 (索引)<br />         超级列表框_播放列表.现行选中项 ＝ 索引<br />         集_歌曲全路径 ＝ 超级列表框_播放列表.取标题 (索引, 2)<br />         滑块条_进度.位置 ＝ 0<br />         播放MP3歌曲 (集_歌曲全路径)<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (组合框_播放方式.内容 ＝ “列表循环”)<br />     .如果真 (滑块条_进度.位置 ＝ 100)<br /> <br />         .如果 (超级列表框_播放列表.现行选中项 ＋ 1 ＝ 超级列表框_播放列表.取表项数 ())<br />             索引 ＝ 0<br />         .否则<br />             索引 ＝ 超级列表框_播放列表.现行选中项 ＋ 1<br />         .如果结束<br /> <br /> <br />         超级列表框_播放列表.保证显示 (索引)<br />         超级列表框_播放列表.现行选中项 ＝ 索引<br />         集_歌曲全路径 ＝ 超级列表框_播放列表.取标题 (索引, 2)<br />         滑块条_进度.位置 ＝ 0<br />         播放MP3歌曲 (集_歌曲全路径)<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _滑块条_进度_位置被改变<br /> <br /> 播放MP3歌曲 (集_歌曲全路径)<br /> <br /> <br /> .子程序 _按钮_暂停_被单击<br /> <br /> 暂停播放MP3 ()<br /> 集_暂停 ＝ 真

蓝奏云下载：https://wwe.lanzous.com/ipY3dnvlmsf

天使与恶魔

感谢分享！易语言有你更精彩！！

我非平凡

第二个是一个本地数据文件也可以不下载的！

pq9999

搞不好你家门口

anbwscx

感谢分享！易语言有你更精彩！！

FUYUEPC

感谢分享，很给力！~

cqws8023

谢谢分享！！！

灵海雪缘

点点丶滴滴

谢谢大佬分享 支持支持

深圳梦

感谢分享，很给力！~