音频播放器(bass)新年第一个作品

.判断开始 (当前播放格式 ＝ 0)
滑块条 [1].置位置 (bass.取播放位置 (音频句柄_全), )
普通标签 [2].置标题 (秒到时间 (bass.位置到时间 (音频句柄_全, bass.取播放位置 (音频句柄_全))) ＋ “ | ” ＋ 当前播放音频.音频时长)
.默认
滑块条 [1].置位置 (bass.取播放位置 (音频句柄_全) － bass.时间到位置 (音频句柄_全, 当前播放音频.开始时间cue), )
普通标签 [2].置标题 (秒到时间 (bass.位置到时间 (音频句柄_全, 滑块条 [1].取位置 ())) ＋ “ | ” ＋ 当前播放音频.音频时长)
.如果真 (bass.取播放位置 (音频句柄_全) ≥ bass.时间到位置 (音频句柄_全, 当前播放音频.结束时间cue))
bass.关闭文件 (音频句柄_全)
.如果真结束

.判断结束

.如果真 (bass.取播放状态 (音频句柄_全) ＝ 0)
图形按钮 [1].置图片 (#播放正常, #播放进入, #播放按下)
播放按钮模式 ＝ 0
.如果真结束
.如果真 (取数组成员数 (表项数组_全) ≠ 0 且 bass.取播放状态 (音频句柄_全) ＝ 0 且 列表索引 ≠ 0)
.判断开始 (模式_播放 ＝ 0)
下一曲 ()
.判断 (模式_播放 ＝ 1)
播放程序 (列表索引)
.判断 (模式_播放 ＝ 2)
播放程序 (取随机数 (1, 取数组成员数 (表项数组_全)))