我用彝语做了一个简单的MP3播放器,但是有些歌无法播放,也是MP3格式的。这到底是怎么回事?

版本2

。支持库iext3。

支持库规范

。支持库iext

支持库eMMedia

。装配窗装配1

。程序集变量热键

。subroutine _ button 1_被点击。

。判断开始(编辑框1。内容= " ")

信息框(“您的连接错误,或没有输入连接”,#信息图标,)

Return()

。判断(编辑框1。Content = "您可以在此添加音乐")

信息框(“您的连接错误,或没有输入连接”,#信息图标,)

Return()

。默认

审判结束

播放MP3(,编辑框1。内容)

图片框1。播放动画=真

图片框2。可见=假

子程序_垂直滚动条1_的位置已经改变。

。子程序_目录框1_目录被更改。

。子程序_按钮3_被点击。

暂停MP3()

按钮3。可见=假

图片框2。可见=真

。子程序_按钮2_被点击

。局部变量路径,文本类型

如果为真(文件是否存在(取运行目录()+"\ set。ini "))

常规对话框1。初始目录=读取配置项(取运行目录()+"\ set。ini”,“基本配置”,“最后路径”,)

如果真的结束了。

。如果为真(常规对话框1。Open())

编辑框1。Content =常规对话框1。文件名

Path =取文本的左侧(常规对话框1。文件名,向后查找文本(常规对话框1。文件名," \ ",false))

写配置项(取运行目录()+"\ set.ini ","基本配置","最后路径",path)。

如果真的结束了。

。子程序_按钮4_被点击。

按钮3。可见=真

继续播放MP3()

图片框1。播放动画=真

图片框2。可见=假

。子程序_按钮5_被点击。

卷帘菜单1。可见=真

。子程序_按钮6_被点击。

。局部变量项目值,整数类型

项目值=列表框1。添加项目(编辑框1。内容,)

。如果为真(项目值≦-1)

列表框内存(列表框1。取项目文本(项目值),1)

如果真的结束了。

图片框1。播放动画=假

。子程序_图像框1_鼠标左键按下,逻辑类型

。参数横向位置,整数类型

。整型参数的垂直位置

参数功能键状态,整数类型

。子程序回放

参数parameter _文件名,文本类型

。局部变量状态栏的文件名,文本类型,“0”

。局部变量文件名,文本类型

播放MP3(,参数_文件名)

状态栏文件名=分割文本(列表框1。取项目文本(列表框1。当前选定的项目)," \ ",)

文件名=状态栏文件名[取数组下标(状态栏文件名,)]

调试输出(文件名)

状态栏1。设置文本(0,"播放:"+取文本左侧(文件名,取文本长度(文件名)-4))

透明标签1。Title =取文本左侧(文件名,取文本长度(文件名)-4)。

编辑框1。内容=列表框1。取项目文本(列表框1。当前选择的项目)

子程序_列表框1_双击选择

播放(删除前导空格和尾随空格(列表框1。取项目文本(列表框1。当前选定的项目)))

图片框1。播放动画=真

图片框2。可见=假

。子程序列表框存储器

参数新信息,文本类型;可以空白。

参数运算类型,整数类型

。局部变量字段数据,字段信息,“1”

。局部变量接受记录计数,整数类型。

如果为true(文件是否存在(取运行目录()+"\ db.dat") = false)

字段数据[1]。Name = "Path "

字段数据[1]。Type = #文本类型

字段数据[1]。最大文本长度= 500。

。如果为真(创建(取运行目录()+"\ db.dat ",字段数据)=假)

信息框("未能创建数据",0,)

Return()

如果真的结束了。

。如果为真(open(取运行目录()+"\ db.dat ",,,,,)= false)

信息框("未能打开数据库",0,)

Return()

如果真的结束了。

如果真的结束了。

。判断开始(操作类型= 1)

如果为真(加上记录(新信息)=假)

信息框("添加记录失败",0,)

Return()

如果真的结束了。

。判断(操作类型= 2)

。如果为真(取记录数()= 0)

Return()

如果真的结束了。

。计数循环头(取记录号(),取记录计数)

列表框1。添加项目(read ("path "),)

跳过()

。计数周期尾部()

。默认

审判结束

。子程序_ window 1_已经创建。

阴影效果()

资源皮肤(#图片1)

打开(取运行目录()+"\ db.dat ",,,,,)

列表框内存(,2)

编辑框1。Content = "您可以在此添加音乐"

。子程序_列表框1_按下鼠标右键,逻辑类型

。参数横向位置,整数类型

。整型参数的垂直位置

参数功能键状态,整数类型

弹出菜单(右键单击,,)

子程序_删除记录_被选择。

如果为真(delete (search (read ("path") =列表框1。取项目文本(列表框1。当前选定的项目)))

。如果为真(完全删除())

列表框1。空()

列表框内存(,2)

如果真的结束了。

如果真的结束了。

。子程序_删除所有记录_选中

。局部变量nn,整数类型

删除(真)

完全删除()

列表框1。空()

列表框内存(,2)

。子程序_列表框1_列表项被选中。

。子程序_滑动条2_位置改变,,,音量调节

局部变量左声音,整数类型

局部变量右声音,整数类型

。局部变量n1,整数类型。

系统卷1。上(4)

。如果(滑动条2。位置= 1)

系统卷1。静音(真)

否则。

系统卷1。静音(假)

如果结束了

如果为真(滑动条2。位置= 10)

系统卷1。设置音量(系统音量1。取最大音量(),系统音量1。取最大音量())。

如果真的结束了。

。数一数循环头(8,n1)'除最大音量和静音外的其余8个音量。

。如果为真(滑动条2。位置= N1)

系统卷1。设置音量(系统音量1。取最大音量()× (N1-10 )× 0.1,系统音量1。取最大音量()× (N1。

跳出循环()

如果真的结束了。

。计数周期尾部()

。子程序_状态栏1_鼠标左键按下,逻辑类型

。参数横向位置,整数类型

。整型参数的垂直位置

参数功能键状态,整数类型

。子程序_编辑框1_的内容已更改。

图片框4。可见=真

延迟(3000)

图片框4。可见=假

。子程序_窗口1_将被销毁。

结束()

。选择子程序_快门菜单1_ item。

参数菜单索引,整数类型

参数项索引,整数类型

结束()

子程序子程序_初始化

。获取歌曲时间的子例程。

。获取MP3时间的子程序。