| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | |||
| 变量名 | 类 型 | 数组 | 备 注 |
| MP3文件列表 | 文本型 | 0 | |
| 当前播放索引 | 整数型 | ||
| 下一首索引 | 整数型 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _播放按钮_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 文件组 | 文本型 | 0 | ||||
如果真 (取数组成员数 (文件组) ＝ 0)
返回 ()
' 将选择的文件添加到程序集变量中
MP3文件列表 ＝ 文件组
当前播放索引 ＝ 1 ' 从第一首开始播放
播放MP3 (当前播放索引, MP3文件列表 [当前播放索引])
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _暂停按钮_被单击 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _继续按钮_被单击 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _下一首按钮_被单击 | |||||
如果真 (取数组成员数 (MP3文件列表) ＝ 0)返回 ()' 计算下一首索引
下一首索引 ＝ 当前播放索引 ＋ 1
如果真 (下一首索引 ＞ 取数组成员数 (MP3文件列表))下一首索引 ＝ 1' 更新当前播放索引
当前播放索引 ＝ 下一首索引
' 停止当前播放并播放下一首
暂停播放MP3 ()
播放MP3 (当前播放索引, MP3文件列表 [当前播放索引])
