VB制作P3播放器.docVIP

目录 MP3播放器原理………………………………………………2 相关API函数简介……………………………………………2 设计要求………………………………………………………5 设计步骤及程序代码…………………………………………6 运行结果分析及截图…………………………………………9 心得体会………………………………………………………10 参考文献………………………………………………………11 MP3播放器原理 MP3播放器是利用数字信号处理器DSP（Digital Sign Processer）来完成处理传输和解码MP3文件的任务的。DSP掌管随身听的数据传输，设备接口控制，文件解码回放等活动。DSP能够在非常短的时间里完成多种处理任务，而且此过程 所消耗的能量极少（这也是它适合于便携式播放器的一个显著特点）。 首先将MP3歌曲文件从内存中取出并读取存储器上的信号→到解码芯片对信号进行解码→通过数模转换器将解出来的数字信号转换成模拟信号→再把转换后的模拟音频放大→低通滤波后到耳机输出口，输出后就是我们所听到的音乐了。 相关API函数简介： mciSendString是用来播放多媒体文件的API指令，可以播放MPEG,AVI,WAV,MP3,等等，下面介绍 它的使用方法： 　　该函数有四个参数： 第一个参数：要发送的命令字符串。字符串结构是:[命令][设备别名][命令参数]. 第二个参数：返回信息的缓冲区,为一指定了大小的字符串变量. 第三个参数：缓冲区的大小,就是字符变量的长度. 第四个参数：回调方式，一般设为零 返回值：函数执行成功返回零，否则返回错误代码 一、常用命令 　　1.打开（Open），格式：Open 设备名 [type 设备型式][alias 别名] Dim mName as string mName = f:\\mpeg\\mpeg1.avi mciSendString open mName type MPEGVideo Alias movie parent %u Style %u notify,0, 0, 0 　其中： open 操作命令 mName 全路径文件名 type MPEGVideo 是指打开MPEG,AVI等类型，如果不加这一句，就是打开WAV,MP3等 Alias movie 定义了该操作的别名为movie，后续操作只要指明别名即可 parent %u 源 Style %u 样式 notify 通知 　　2.播放（Play），格式：Play 设备名 [from 起点][to 终点] mciSendString play movie, 0, 0, 0 mciSendString play movie fullscreen, 0, 0, 0 全屏播放 　　3.暂停（Pause）： mciSendString pause movie, 0, 0, 0 　　4.继续（Resume）： mciSendString resume movie, 0, 0, 0 　　5.停止（Stop）： mciSendString stop movie, 0, 0, 0 　　6.关闭（Colse）： mciSendString close movie, 0, 0, 0 　　7.前进到下一个位置： mciSendString step movie, 0, 0, 0 　　8.后退到上一个位置： mciSendString step movie reverse, 0, 0, 0 　　9.前进或后退 N 個位置(其中 N0 即表示后退) mciSendString step movie by str(N), 0, 0, 0 　　10.获取当前播放位置： Dim ST As String*64 mciSendString status movie position, st, len(st), 0 　　11. 获取媒体的总长度： mciSendString status movie length, st, len(st), 0 l=val(st) L就是所播放文件的长度 　　12.获取播放信息： Dim ST As String*64 mciSendString status movie mode, ST, Len(ST), 0 If Left(ST, 7) = stopped Then (处理代码) 播放完毕 　　13.循环播放： mciSendString play movie repeat, 0, 0, 0 二、控制声音大小： Dim V As Long mciSendString status movie volume, V, 0, 0 V是获取的音量大小值。 V = 50 mciSendString setaudio