播放器问题求解

炼金师

以下是我写的一个播放器代码，我在运行的时候，添加mp3文件，选择了文件后进行添加，但是播放列表框没有任何信息，因为没有信息，也就无法播放音乐。求大佬们解答！！以下是代码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
计次变量	整数型
文件号	整数型

子程序名	返回值类型	公开	备 注
_添加_被单击

变量名	类 型	静态	数组	备 注
文本组变量	文本型		0

文本组变量 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真, )
如果真 (取数组成员数 (文本组变量) ＝ 0)
返回 ()
计次循环首 (取数组成员数 (文本组变量), 计次变量)
播放列表框.加入项目 (文本组变量 [计次变量], )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_删除_被单击

播放列表框.删除项目 (播放列表框.现行选中项)

子程序名	返回值类型	公开	备 注
_保存_被单击

文件号 ＝ 打开文件 (取运行目录 () ＋ “mp3.txt”, #重写, )
计次循环首 (播放列表框.取项目数 (), 计次变量)
写文本行 (文件号, 播放列表框.取项目文本 (计次变量 － 1))
计次循环尾 ()
关闭文件 (文件号)

子程序名	返回值类型	公开	备 注
_播放_被单击

如果真 (播放列表框.现行选中项 ＝ -1)
播放列表框.现行选中项 ＝ 0
同步播放MP3 (播放列表框.取项目文本 (播放列表框.现行选中项), , 进度标签, )

子程序名	返回值类型	公开	备 注
_进度标签_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

播放进度条.位置 ＝ 参数一
如果真 (参数一 ＝ 100)
如果 (播放列表框.现行选中项 ＝ 播放列表框.取项目数 () － 1)
播放列表框.选择项目 (0, )
播放列表框.选择项目 (播放列表框.现行选中项 ＋ 1, )
_播放_被单击 ()

子程序名	返回值类型	公开	备 注
_暂停_被单击

暂停播放MP3 ()

子程序名	返回值类型	公开	备 注
_继续_被单击

继续播放MP3 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本变量	文本型

如果真 (文件是否存在 (取运行目录 () ＋ “\mp3.txt”) ＝ 假)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\mp3.txt”, #重写, )
关闭文件 (文件号)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\mp3.txt”, #读写, )
移到文件首 (文件号)
判断循环首 (是否在文件尾 (文件号, 真) ＝ 假)
文本变量 ＝ 读入一行 (文件号)
播放列表框.加入项目 (文本变量, )
判断循环尾 ()
关闭文件 (文件号)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 计次变量, 整数型<br /> .程序集变量 文件号, 整数型<br /> <br /> .子程序 _添加_被单击<br /> .局部变量 文本组变量, 文本型, , "0"<br /> <br /> 文本组变量 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真, )<br /> .如果真 (取数组成员数 (文本组变量) ＝ 0)<br />     返回 ()<br />     .计次循环首 (取数组成员数 (文本组变量), 计次变量)<br />         播放列表框.加入项目 (文本组变量 [计次变量], )<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _删除_被单击<br /> <br /> 播放列表框.删除项目 (播放列表框.现行选中项)<br /> <br /> <br /> .子程序 _保存_被单击<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “mp3.txt”, #重写, )<br /> .计次循环首 (播放列表框.取项目数 (), 计次变量)<br />     写文本行 (文件号, 播放列表框.取项目文本 (计次变量 － 1))<br /> .计次循环尾 ()<br /> 关闭文件 (文件号)<br /> <br /> <br /> .子程序 _播放_被单击<br /> <br /> .如果真 (播放列表框.现行选中项 ＝ -1)<br />     播放列表框.现行选中项 ＝ 0<br />     同步播放MP3 (播放列表框.取项目文本 (播放列表框.现行选中项), , 进度标签, )<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _进度标签_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> 播放进度条.位置 ＝ 参数一<br /> .如果真 (参数一 ＝ 100)<br />     .如果 (播放列表框.现行选中项 ＝ 播放列表框.取项目数 () － 1)<br />         播放列表框.选择项目 (0, )<br />         播放列表框.选择项目 (播放列表框.现行选中项 ＋ 1, )<br />         _播放_被单击 ()<br /> <br />     .否则<br /> <br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _暂停_被单击<br /> <br /> 暂停播放MP3 ()<br /> <br /> <br /> .子程序 _继续_被单击<br /> <br /> 继续播放MP3 ()<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本变量, 文本型<br /> <br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\mp3.txt”) ＝ 假)<br />     文件号 ＝ 打开文件 (取运行目录 () ＋ “\mp3.txt”, #重写, )<br />     关闭文件 (文件号)<br />     文件号 ＝ 打开文件 (取运行目录 () ＋ “\mp3.txt”, #读写, )<br />     移到文件首 (文件号)<br />     .判断循环首 (是否在文件尾 (文件号, 真) ＝ 假)<br />         文本变量 ＝ 读入一行 (文件号)<br />         播放列表框.加入项目 (文本变量, )<br />     .判断循环尾 ()<br /> .如果真结束<br /> 关闭文件 (文件号)

fq19851220

  

如果真 (取数组成员数 (文本组变量) ＝ 0)
返回 ()

计次循环首 (取数组成员数 (文本组变量), 计次变量)
播放列表框.加入项目 (文本组变量 [计次变量], )
计次循环尾 ()

.版本 2<br /> <br /> .如果真 (取数组成员数 (文本组变量) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (文本组变量), 计次变量)<br />     播放列表框.加入项目 (文本组变量 [计次变量], )<br /> .计次循环尾 ()

cxl

  

文本组变量 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真, )
如果真 (取数组成员数 (文本组变量) ＝ 0)
返回 ()
计次循环首 (取数组成员数 (文本组变量), 计次变量) ' 你吧循环放在如果真下面无论你的条件成立是否都到不了这里的
播放列表框.加入项目 (文本组变量 [计次变量], )
计次循环尾 ()

文本组变量 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真, )<br /> 如果真 (取数组成员数 (文本组变量) ＝ 0)<br /> 返回 ()<br /> 计次循环首 (取数组成员数 (文本组变量), 计次变量)'你吧循环放在如果真下面无论你的条件成立是否都到不了这里的<br /> 播放列表框.加入项目 (文本组变量 [计次变量], )<br /> 计次循环尾 ()

麻拐

  

子程序名返回值类型公开备 注
_添加_被单击  
变量名类 型静态数组备 注
文本组变量文本型0
文本组变量 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真, )
如果真 (取数组成员数 (文本组变量) ＝ 0)
返回 ()‘你这里都返回了，下面的计次循环也没用了啊。计次循环不要放到如果真下面
计次循环首 (取数组成员数 (文本组变量), 计次变量)
播放列表框.加入项目 (文本组变量 [计次变量], )
计次循环尾 ()

子程序名        返回值类型        公开        备 注<br /> _添加_被单击                          <br /> 变量名        类 型        静态        数组        备 注<br /> 文本组变量        文本型                0        <br /> 文本组变量 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真, )<br /> 如果真 (取数组成员数 (文本组变量) ＝ 0)<br /> 返回 ()‘你这里都返回了，下面的计次循环也没用了啊。计次循环不要放到如果真下面<br /> 计次循环首 (取数组成员数 (文本组变量), 计次变量)<br /> 播放列表框.加入项目 (文本组变量 [计次变量], )<br /> 计次循环尾 ()