我用彝语做了一个简单的MP3播放器,但是有些歌无法播放,也是MP3格式的。这到底是怎么回事?
。支持库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时间的子程序。