只限VB播放器高手进！关于毕业设计的，急！！！！

来源：百度知道编辑：UC知道时间：2024/05/26 19:11:14

我的开题报告是：1 引言
1.1 开发背景
1.2 可行性分析
1.3 功能需求
2 系统需求
2.1 系统工作环境
2.2 基件配置
2.3 最优配置
3 系统设计过程
3.1 系统外形设计
3.2 播放波形文件设计
3.3 播放CD文件设计
3.4 播放MP3设计
3.5 播放MP4设计
4 系统维护
4.1 调试运行
4.2 生成可执行文件
5 总结与展望
重点：
①能指示播放的文件名、播放的时间和进度
②播放、暂停、停止
③可以选择播放的曲目，能实现循环播放
④在界面上要有一个播放列表框，可以把许多要播放的文件加入到该列表中，在播放时，可以连续播放列表中文件
⑤能实现重播、后退、前进、快退、快进和循环播放。
难点：
① 在播放歌曲的同时显示歌词
② 均衡器的制作
本课题的基本内容
多媒体播放器主要用来播放音频文件。能显示正在播放的文件名、播放的时间和进度；还应包括完整的播放控制功能：播放、暂停、停止；音频播放时可以选择播放的曲目，能实现循环播放；能提供一个播放列表框，把许多要播放的文件加入到该列表中，在播放时，可以连续播放列表中的文件；能实现重播、后退、前进、快退、快进和循环播放，并且能显示歌词；制作均衡器。
有谁做过类似的，都可以，要能运行哦，要很完整的代码，答的好再追加100分！
那些给不了答案就别在底下瞎发表言论噢，那个 haiantj，500人民币没人要你做的，我同学做都是100元，而且是一条龙服务的，我在这发贴，也是看看有没有哪位仁兄做过，正好是现成的，就转发给我啦，也不定要求全部都符合，现在人怎么越来越势力！！！我看别人发的贴都有人给他了...

在工程加添加WindowsMediaPlayer1 Drive1 Dir1 File1

Private Sub Dir1_Change()
File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()
On Error GoTo IFerr
Dir1.Path = Drive1.Drive
Exit Sub
IFerr:
MsgBox ("请确认驱动器是否准备好或者磁盘已经不可用!"), _
vbOKOnly + vbExclamation
Drive1.Drive = Dir1.Path

End Sub

Private Sub File1_Click()
Me.WindowsMediaPlayer1.URL = Me.File1.Path + "\" + Me.File1.FileName
End Sub

Private Sub Form_Load()
File1.Pattern = "*.AVI;*.MOV;*.DAT;*.MPG;*.WAV,*.MID;*.QT;*.MPEG;*.mp3"

Me.WindowsMediaPlayer1.settings.autoStart = False

Me.WindowsMediaPlayer1.settings.playCount = 1

End Sub

你这里还有波形。均衡器，这里需要些专业知识和商业知识。所以100元的可能是糊弄的。

网上找吧http://www.codesky.net/search.asp

关于挂双硬盘的问题，只限高手进，谢谢英语高手进,只限一晚! 关于在线播放视频时，有声音无图像的问题（只限网络和多媒体方面的高手进）关于播放器的。高手进关于VB，VB高手进来~！ VB中关于文件路径的问题，VB高手进想做一个简单的VB视频播放器,高手进... 寻找高手[关于播放器] 关于vb的三个问题！高手进！！！！！关于VB的问题 !!!!!! 高手进