这样写怎么一直循环呢？

天使与恶魔

  

子程序名	返回值类型	公开	备 注
_时钟2_周期事件

变量名	类 型	静态	数组	备 注
计时器	整数型

如果真 (标签_同步.标题 ＝ “100%”)
进度条_同步.位置 ＝ 0
标签_同步.标题 ＝ “”
计时器 ＝ 报时计次 ＋ 1
调试输出 (计时器)
判断 (计时器 ＝ 到整数 (计次编辑框.内容))
判断 (选择框1.选中 ＝ 真)
打开音乐文件 (“C:\Users\Administrator\Desktop\32\买.MP3”)
置播放速度 (到整数 (取随机数 (到整数 (播放速度低编辑框.内容), 到整数 (播放速度高编辑框.内容))) ÷ 100)
BASS播放 (真)
程序_延时 (600)
如果真 (标签_同步.标题 ＝ “100%”)
进度条_同步.位置 ＝ 0
标签_同步.标题 ＝ “”
_播放列表框_当前表项被改变 ()

_播放列表框_当前表项被改变 ()

播放列表框.现行选中项 ＝ 播放列表框.现行选中项 ＋ 1

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .子程序 _时钟2_周期事件<br /> .局部变量 计时器, 整数型<br /> <br /> .如果真 (标签_同步.标题 ＝ “100%”)<br />     进度条_同步.位置 ＝ 0<br />     标签_同步.标题 ＝ “”<br />     计时器 ＝ 报时计次 ＋ 1<br />     调试输出 (计时器)<br />     .判断开始 (计时器 ＝ 到整数 (计次编辑框.内容))<br />         .判断开始 (选择框1.选中 ＝ 真)<br />             打开音乐文件 (“C:\Users\Administrator\Desktop\32\买.MP3”)<br />             置播放速度 (到整数 (取随机数 (到整数 (播放速度低编辑框.内容), 到整数 (播放速度高编辑框.内容))) ÷ 100)<br />             BASS播放 (真)<br />             程序_延时 (600)<br />             .如果真 (标签_同步.标题 ＝ “100%”)<br />                 进度条_同步.位置 ＝ 0<br />                 标签_同步.标题 ＝ “”<br />                 _播放列表框_当前表项被改变 ()<br />             .如果真结束<br /> <br />         .默认<br />             _播放列表框_当前表项被改变 ()<br />         .判断结束<br /> <br />     .默认<br />         播放列表框.现行选中项 ＝ 播放列表框.现行选中项 ＋ 1

一直在播放  C:\Users\Administrator\Desktop\32\买.MP3   我打算是把 C:\Users\Administrator\Desktop\32\买.MP3  播放到当进度条100%的时候去执行 _播放列表框_当前表项被改变 ()
但是这样写 一直循环在播放   C:\Users\Administrator\Desktop\32\买.MP3   要怎么修改这段呢

1391256982

播放完毕音乐过后用个逻辑型变量
播放完毕=真
然后最外面套个
如果（播放完毕=真）
调试输出（“已经播放”）
否则
执行你现在的