易锦大学第八课【MP3播放器增加上一首下一首功能】

宝宝天下第二

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
音乐列表	文本型	0
多少首歌	整数型
第几首歌	整数型

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

XP风格 (2)
加入成员 (音乐列表, “E:\QQ\371351269\FileRecv\半阳 - 一曲相思.mp3”)
加入成员 (音乐列表, “E:\QQ\371351269\FileRecv\宝石Gem - 野狼disco (Live).mp3”)
加入成员 (音乐列表, “E:\QQ\371351269\FileRecv\肖Music,林爱人Music,妖姬 - 暴富的感觉 (DJ版).mp3”)
多少首歌 ＝ 取数组成员数 (音乐列表)

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

第几首歌 ＝ 1
播放专用 (音乐列表 [第几首歌])

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

调试输出 (参数一)
如果真 (参数一 ＝ 100)
_按钮6_被单击 ()

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

第几首歌 ＝ 第几首歌 ＋ 1
如果真 (第几首歌 ＞ 多少首歌)
第几首歌 ＝ 1
播放专用 (音乐列表 [第几首歌])

子程序名	返回值类型	公开	备 注
播放专用
参数名	类 型	参考	可空	数组	备 注
文件名	文本型

同步播放MP3 (音乐列表 [第几首歌], 0, 标签1, )

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

第几首歌 ＝ 第几首歌 － 1
如果真 (第几首歌 ＜ 多少首歌)
第几首歌 ＝ 多少首歌

播放专用 (音乐列表 [第几首歌])

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

停止播放 ()

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

暂停播放MP3 ()

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

继续播放MP3 ()

i支持库列表	支持库注释
xplib	XP风格界面库
spec	特殊功能支持库

.版本 2<br /> .支持库 xplib<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 音乐列表, 文本型, , "0"<br /> .程序集变量 多少首歌, 整数型<br /> .程序集变量 第几首歌, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> XP风格 (2)<br /> 加入成员 (音乐列表, “E:\QQ\371351269\FileRecv\半阳 - 一曲相思.mp3”)<br /> 加入成员 (音乐列表, “E:\QQ\371351269\FileRecv\宝石Gem - 野狼disco (Live).mp3”)<br /> 加入成员 (音乐列表, “E:\QQ\371351269\FileRecv\肖Music,林爱人Music,妖姬 - 暴富的感觉 (DJ版).mp3”)<br /> 多少首歌 ＝ 取数组成员数 (音乐列表)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 第几首歌 ＝ 1<br /> 播放专用 (音乐列表 [第几首歌])<br /> <br /> <br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> 调试输出 (参数一)<br /> .如果真 (参数一 ＝ 100)<br />     _按钮6_被单击 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮6_被单击<br /> <br /> 第几首歌 ＝ 第几首歌 ＋ 1<br /> .如果真 (第几首歌 ＞ 多少首歌)<br />     第几首歌 ＝ 1<br /> .如果真结束<br /> 播放专用 (音乐列表 [第几首歌])<br /> <br /> <br /> .子程序 播放专用<br /> .参数 文件名, 文本型<br /> <br /> 同步播放MP3 (音乐列表 [第几首歌], 0, 标签1, )<br /> <br /> .子程序 _按钮5_被单击<br /> <br /> 第几首歌 ＝ 第几首歌 － 1<br /> .如果真 (第几首歌 ＜ 多少首歌)<br />     第几首歌 ＝ 多少首歌<br /> .如果真结束<br /> <br /> 播放专用 (音乐列表 [第几首歌])<br /> <br /> <br /> .子程序 _按钮4_被单击<br /> <br /> 停止播放 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 暂停播放MP3 ()<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 继续播放MP3 ()

yyz860723

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！

809116503

楼主发贴辛苦了，谢谢楼主分享！

地下宠物乐园

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 音乐合集, 文本型, , "0"
.程序集变量 下标, 整数型
.程序集变量 文件, 文本型

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

文件 ＝ 寻找文件 (“D:\QQMusic\下载的音乐\*.mp3”, )  ' 路径和格式根据自己的电脑调整，注意：播放，下一曲和上一曲的路径要-*
加入成员 (音乐合集, 文件)
.判断循环首 (真)
    文件 ＝ 寻找文件 (, )
    .如果真 (文件 ＝ “”)
        跳出循环 ()
    .如果真结束
    加入成员 (音乐合集, 文件)
.判断循环尾 ()

.子程序 _按钮1_被单击, , , 播放音乐

下标 ＝ 下标 ＋ 1
同步播放MP3 (“D:\QQMusic\下载的音乐\” ＋ 音乐合集 [下标], , 标签1, )
编辑框1.内容 ＝ 音乐合集 [下标]

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

进度条1.位置 ＝ 参数一
.如果真 (参数一 ＝ 100)
    _按钮2_被单击 ()
.如果真结束


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

暂停播放MP3 ()

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

继续播放MP3 ()

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

停止播放 ()

.子程序 _按钮2_被单击, , , 下一曲

下标 ＝ 下标 ＋ 1
.如果真 (下标 ＞ 取数组成员数 (音乐合集))
    下标 ＝ 1
.如果真结束
同步播放MP3 (“D:\QQMusic\下载的音乐\” ＋ 音乐合集 [下标], , 标签1, )
编辑框1.内容 ＝ 音乐合集 [下标]

.子程序 _按钮3_被单击, , , 上一曲


下标 ＝ 下标 － 1
.如果真 (下标 ＜ 1)
    下标 ＝ 取数组成员数 (音乐合集)
.如果真结束
同步播放MP3 (“D:\QQMusic\下载的音乐\” ＋ 音乐合集 [下标], , 标签1, )
编辑框1.内容 ＝ 音乐合集 [下标]

地下宠物乐园

感谢楼主，你的代码对我太重要了

地下宠物乐园

......我的这个发现有个BUG，加个一个如果真就好了

JERRYding

学习学习一下