【NO.0038】MP3播放器

李剑开

不知道这样可以不。

仙子有毒

呵呵，我又来交作业了，这个花了好长时间才写成这样，还望老师能加分。


MP3播放器.rar (2.84 KB, 下载次数: 3)

2011-11-22 21:48 上传

点击文件名下载附件
下载积分: 精币 -2 枚

chengyi1973

mp3播放器

aa14aa

MP3作业1.6.rar (2.4 KB, 下载次数: 1)

2011-11-23 00:27 上传

点击文件名下载附件
下载积分: 精币 -2 枚

我又改了一下

（⊙㈣⊙）

{:3_234:}我用列表框作的，请老师点评一下作业的缺点并修改其中的不足之处谢谢。（努力学习中）

风行雪落

作业.zip (3.77 KB, 下载次数: 2)

2011-11-23 12:56 上传

点击文件名下载附件
下载积分: 精币 -2 枚

交作业了 因为没有时间做了 只能做到这个地步了

botong

本人的22楼的占位帖子怎么没有办法编辑了，只能重新回复了。
还是老规矩，坚持帖源码加附件~！
[e].版本 2
.支持库 shell
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 歌曲名, 文本型
编辑框1.内容 ＝ 浏览文件夹 (“选择歌曲文件夹”, )
改变目录 (编辑框1.内容)
歌曲名 ＝ 寻找文件 (“*.mp3”, )
.循环判断首 ()
    超级列表框1.插入表项 (, 歌曲名, , , , )
    歌曲名 ＝ 寻找文件 (, )
.循环判断尾 (歌曲名 ≠ “”)
超级列表框1.现行选中项 ＝ 0
.子程序 _按钮2_被单击
超级列表框1.现行选中项 ＝ 超级列表框1.现行选中项 － 1
_按钮3_被单击 ()
.子程序 _按钮3_被单击
.局部变量 当前歌曲, 文本型
滑块条1.位置 ＝ 0
当前歌曲 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, )
播放MP3 (, 编辑框1.内容 ＋ “\” ＋ 当前歌曲)
标签2.标题 ＝ 当前歌曲
同步播放MP3 (编辑框1.内容 ＋ “\” ＋ 当前歌曲, , 标签1, )
.子程序 _按钮5_被单击
超级列表框1.现行选中项 ＝ 超级列表框1.现行选中项 ＋ 1
_按钮3_被单击 ()
.子程序 _按钮4_被单击
.如果 (按钮4.标题 ＝ “暂停”)
    暂停播放MP3 ()
    按钮4.标题 ＝ “继续”
.否则
    按钮4.标题 ＝ “暂停”
    继续播放MP3 ()
.如果结束
.子程序 _标签1_反馈事件, 整数型
.参数 进度, 整数型
.参数 参数二, 整数型
.如果真 (进度 ％ 5 ＝ 0)
    滑块条1.位置 ＝ 滑块条1.位置 ＋ 1
.如果真结束
.如果真 (进度 ＝ 100)
    _按钮5_被单击 ()
.如果真结束[/e]
MP3播放器.rar (1.87 KB, 下载次数: 2)

2011-11-23 22:09 上传

点击文件名下载附件
MP3播放器
下载积分: 精币 -2 枚

这次的作业对于我这样的菜鸟有点难度啊。一个是选择文件夹，通用对话框好像做不到的；另一个是用滑块条来显示MP3的播放进度。本人尝试通过拖成滑块条来控制播放一首MP3的播放进度没有成功，请版本指教，怎么才能实现啊？

补充内容 (2011-11-26 18:37):
看到了版本的评分了，可是为什么只给我19分呢？还少一分呢？另外“同步播放MP3”这条命令我看了，可是只实现了播放进度的显示，没有实现控制播放进度。

补充内容 (2011-11-26 19:10):
[e]
, ), 滑块条1.位置 × 5, 标签1, )[/e]

补充内容 (2011-11-26 19:13):
修改了一下，滑块事件内容：
同步播放MP3 (编辑框1.内容 ＋ “\” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, ), 滑块条1.位置 × 5, 标签1, )
这样就可以了，可是感觉拖起来很累，总是拖不准呢。这是为什么

千年

2011-11-20作业.zip (3.28 KB, 下载次数: 1)

2011-11-24 03:47 上传

点击文件名下载附件
下载积分: 精币 -2 枚

496799167

老师 作业完成了

864799791

好像会写！{:3_228:}