易锦大学第八课【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 ()