目录
1、 MP3播放器原理………………………………………………2
2、 相关API函数简介……………………………………………2
3、 设计要求………………………………………………………5
4、 设计步骤及程序代码…………………………………………6
5、 运行结果分析及截图…………………………………………9
6、 心得体会………………………………………………………10
7、 参考文献………………………………………………………11
1、 MP3播放器原理
MP3播放器是利用数字信号处理器DSP（Digital Sign Processer）来完成处理传输和解码MP3文件的任务的。DSP掌管随身听的数据传输，设备接口控制，文件解码回放等活动。DS
P能够在非常短的时间里完成多种处理任务，而且此过程所消耗的能量极少（这也是它适合于便携式播放器的一个显著特点）。
首先将MP3歌曲文件从内存中取出并读取存储器上的信号→到解码芯片对信号进行解码→通过数模转换器将解出来的数字信号转换成模拟信号→再把转换后的模拟音频放大→低通滤波后到耳机输出口，输出后就是我们所听到的音乐了。
2、 相关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 個位置(其中 N<0 即表示后退)
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 movie volume to " & V, &0, 0, 0 'V是设置的音量值
三、设置播放位置.(需事先设定时间格式)，格式：Seek 疫情加油的句子 正能量设备名 [to 位置 | to start | to end]
Dim P1 as Long, P2 as Long
P1 = 100: P2 = 3000
mciSendString "seek movie to ", P1, 0, 0 'P1是当前起始位置，单位：毫秒
mciSendString "seek movie to start", 0&, 0, 0 '定位到开头位置
mciSendString "play movie", 0&, 0, 0 '定位后再播放
或者：
mciSendString "play movie FROM P1 to P2",0&, 0, 0 'P1是起始位置，P2是停止位置。单位：毫秒
mciSendString "seek movie to end", 0&, 0, 0 '定位到最后位置
四、在指定控件上播放视频：
mciSendString "open AVI 文件名 parent hWnd style child", 0&, 0, 0
其中，hWnd 是控件的句柄
执行上述命令之后，影片会被放置在控件的左上角，且影片的大小不受控件大小的影响，如果想要改变
影片播放的位置及大小，可以在執行 play 指令前先执行 put 指令，格式如下：
mcisendString "put AVI 文件名 window at X Y [Width Height]", 0&, 0, 0
其中：X、Y为影片左上角坐标，Width、Height为影片的宽高度
五、如果播放视频还可控制亮度
Dim B As Long
mciSendString "status movie brightness", B, 0, 0 'B是获取的亮度值。
B = 50
mciSendString "setvideo movie brightness to " & B, &0, 0, 0 'B是设置的亮度值
六、录音设置：
录音前，用以下语句初始化
1.设为8位：毕淑敏小说
mciSendString "set wave bitpersample 8", "", 0, 0
2.设为11025Hz
mciSendString "set wave samplespersec 11025", "", 0, 0
3.设为立体声：
mciSendString "set wave channels 2", "", 0, 0
汽车前保险杠4.实现PCM格式（不一定正确）：
MCISENDSTRING "set wave format tag pcm","", 0, 0
5.开始录音：
mciSendString "close movie",0&,0,0
mciSendString "open new type WAVEAudio alias movie",0&,0,0
mciSendString "record movie",0&,0,0
6.保存录音到c:\123.wav
mciSendString "stop movie",0&,0,0
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论