易锦大学第八课【MP3播放器增加上一首下一首功能】
.版本 2.支持库 xplib
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 音乐列表, 文本型, , "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 ()
楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！
楼主发贴辛苦了，谢谢楼主分享！ .版本 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，加个一个如果真就好了
学习学习一下
页:
[1]