[易语言源码]易语言写出自绘播放器列表

[易语言源码]说明：

.程序集 窗口程序集1

.程序集变量 文件号, 整数型

.程序集变量 mp3, 文本型, , "0"

.程序集变量 选项, 文本型

.子程序 __启动窗口_创建完毕

.局部变量 文件名, 文本型

组合框1.加入项目 (“请选歌曲”, )

按钮2.标题 ＝ “播放”

选项 ＝ “重复”

文件名 ＝ 寻找文件 (取运行目录 () ＋ “\*.mp3”, )

.循环判断首 ()

文件名 ＝ 寻找文件 (, )

.如果真 (文件名 ＝ “”)

跳出循环 ()

.如果真结束

组合框1.加入项目 (文件名, )

加入成员 (mp3, 文件名)

.循环判断尾 (文件名 ≠ “”)

置随机数种子 ()

组合框1.现行选中项 ＝ 0

_按钮1_被单击 ()

.子程序 _按钮1_被单击

.如果真 (按钮2.标题 ＝ “继续”)

按钮2.标题 ＝ “播放”

按钮1.标题 ＝ 选项

停止播放 ()

组合框1.现行选中项 ＝ 0

.如果真结束

.如果真 (选项 ＝ “重复”)

按钮1.标题 ＝ “重复”

选项 ＝ “随机”

返回 ()

.如果真结束

.如果 (选项 ＝ “随机”)

按钮1.标题 ＝ “随机”

选项 ＝ “顺序”

.否则

按钮1.标题 ＝ “顺序”

选项 ＝ “重复”

.如果结束

返回 ()

.子程序 _按钮2_被单击

.如果真 (取MP3播放状态 () ＝ 1)

暂停播放MP3 ()

按钮2.标题 ＝ “继续”

选项 ＝ 按钮1.标题

按钮1.标题 ＝ “停止”

返回 ()

.如果真结束

.如果 (取MP3播放状态 () ＝ 0)

.如果真 (组合框1.现行选中项 ＝ 0)

文件号 ＝ 1

.如果真结束

播放 ()

.否则

继续播放MP3 ()

按钮1.标题 ＝ 选项

.如果结束

按钮2.标题 ＝ “暂停”

返回 ()

.子程序 _组合框1_列表项被选择

文件号 ＝ 组合框1.现行选中项

按钮2.标题 ＝ “播放”

停止播放 ()

.子程序 播放

组合框1.现行选中项 ＝ 文件号

同步播放MP3 (mp3 [文件号], , 标签1, )

.子程序 _标签1_反馈事件, 整数型

.参数 参数一, 整数型

.参数 参数二, 整数型

进度条1.位置 ＝ 参数一

.如果真 (参数一 ＝ 100)

.如果真 (按钮1.标题 ＝ “随机”)

文件号 ＝ 取随机数 (1, 取数组成员数 (mp3))

.如果真结束

.如果真 (按钮1.标题 ＝ “顺序”)

.如果 (文件号 ＜ 取数组成员数 (mp3))

文件号 ＝ 文件号 ＋ 1

.否则

文件号 ＝ 1

.如果结束

.如果真结束

播放 ()

.如果真结束

[易语言源码]下载：

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

提取码:e4a8 
下载次数:0    状态:您未购买  售价:2金粒
下载权限: 新手上路  以上或 赞助会员   [赞助获得会员]   [赞助获得金粒]  [免费赚金粒]

为毛老子总也抢不到沙发？！！

确实不错，顶先

学习学习啊啊啊