【NO.0025】 易语言制作MP1播放器 (已结束)

微凉

1.看视频

2.网络上找歌

3.歌词同步

4.程序里必须带我们论坛的链接

5.界面一定不能太大(小巧玲珑)

现在的什么MP3 MP4 MP5 都在水深火热的升级着.
那我们为什么不制作一个属于自己的MP1呢?


http://www.3600gz.cn/viewthread.php?tid=24591
微凉网络电视系统
仅供参考的例子 没有播放音乐的,有能力自己添加进去!
弄的挺辛苦的,给点奖励

阿发

超强MP1

MP3.rar (33.8 KB, 下载次数: 362)

2010-8-8 12:23 上传

点击文件名下载附件

adfan

貌似有点难啊，继续学习

heart

我等会去试试

xiaoyu1986

MP1，啥东东哦个，楼主发明的吗！哈哈。。。研究研究技术含量、、

xiaoyu1986

8楼的DX真幽默！呵呵。。。。

liudi

加油啊 ~~~~~

wqejnyt

占一下位置。。正在编思路中！

wqejnyt

写了一个。可是不太符合作题要求。
作题要求1.看视频
我觉得播放MP3音乐不需要视频吧！所以没作
作题要求1.网上找歌
这个我做得不符合要求。虽然也算是网上找歌。
作题要求1.歌词同步
水平有限。作不出来！
第4和第5就好做了

除去作题要外，播放器还有有很多缺点。是我目前无法解决的。
就是保存歌曲列表不知道如何读取。导致。每次运行都要手动加载歌曲!
还有就是滑块条的问题！这个倒是没什么大不了的！

wqejnyt

终于试出来保存列表时为什么只保存一条了！
[e].版本 2
.程序集 窗口程序集1
.程序集变量 歌曲时间, 整数型
.子程序 __启动窗口_创建完毕
皮肤_加载皮肤 (5)
.如果真 (文件是否存在 (取运行目录 () ＋ “\list.dat”))
    读入列表 ()
.如果真结束

.子程序 _按钮_搜索_被单击
运行 (“C:\Program Files\Internet Explorer\IEXPLORE.EXE http://mp3.baidu.com/m?f=ms&tn=baidump3&ct=134217728&lf=&rn=&word=” ＋ 编辑框_搜索.内容 ＋ “&lm=0”, 假, )

.子程序 _打开_被选择
.局部变量 i, 整数型
.局部变量 a, 文本型, , "0"
.局部变量 b, 文本型, , "0"
.局部变量 文件名, 文本型
a ＝ 多文件对话框 (“请选取MP3文件!”, “音乐文件(*.mp3)|*.mp3”, , , 假)
列表框_文件.清空 ()
.计次循环首 (取数组成员数 (a), i)
    写到文件 (取运行目录 () ＋ “\list.dat”, 到字节集 (a ))
    b ＝ 分割文本 (a , “\”, )
    文件名 ＝ b [取数组成员数 (b)]
    列表框_文件.加入项目 (文件名, )
.计次循环尾 ()
[/e]

这是之前的错的!
[e].版本 2
.程序集 窗口程序集1
.程序集变量 歌曲时间, 整数型
.子程序 __启动窗口_创建完毕
皮肤_加载皮肤 (5)
.如果真 (文件是否存在 (取运行目录 () ＋ “\list.dat”))
    读入列表 ()
.如果真结束

.子程序 _按钮_搜索_被单击
运行 (“C:\Program Files\Internet Explorer\IEXPLORE.EXE http://mp3.baidu.com/m?f=ms&tn=baidump3&ct=134217728&lf=&rn=&word=” ＋ 编辑框_搜索.内容 ＋ “&lm=0”, 假, )

.子程序 _打开_被选择
.局部变量 i, 整数型
.局部变量 a, 文本型, , "0"
.局部变量 b, 文本型, , "0"
.局部变量 e, 文本型
.局部变量 文件名, 文本型
a ＝ 多文件对话框 (“请选取MP3文件!”, “音乐文件(*.mp3)|*.mp3”, , , 假)
列表框_文件.清空 ()
.计次循环首 (取数组成员数 (a), i)
    e ＝ e ＋ a ＋ “|”  ' 改这里
    b ＝ 分割文本 (a , “\”, )
    文件名 ＝ b [取数组成员数 (b)]
    列表框_文件.加入项目 (文件名, )
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\list.dat”, 到字节集 (e))  ' 和这里后成功了！
[/e]