多媒体计算机技术原理doc.docx
《多媒体计算机技术原理doc.docx》由会员分享，可在线阅读，更多相关《多媒体计算机技术原理doc.docx（9页珍藏版）》请在冰豆网上搜索。
多媒体计算机技术原理doc
多媒体计算机技术原理
实验指导书
陈琦
信息学院计算机实验室
2003．10
音频播放器设计文档
一实验目的：
多媒体计算机技术原理是多媒体数据的压缩编码技术。
多媒体系统是硬件和软件组成的，利用多媒体技术可制作多媒体节目、超文本和超媒体系统，在许多领域均发挥其作用。
本实验制作音频软处理器，利用多媒体控件，在计算机上实现声音的播放。
二实验原理：
1．总体设计
由于VisualBasic界面简洁，功能强大但操作易上手，所以本程序选用VisualBasic6.0来制作。
本音频播放器实现了播放所需要的基本功能，如同一部放音机，可以将存储在计算机中avi、wave、midi格式的声音文件播放出来，除了直接播放声音以外，还可以进行循环播放。
⑴菜单介绍
1文件菜单
打开Open
退出Exit
2帮助菜单
关于About
⑵工具按钮介绍
①搜索到开头（把声音文件倒到它的开始位置）
②搜索到结尾（把声音文件倒到它的结束位置）
③播放（播放当前的声音文件）
④暂停（暂停当前的声音文件）
5停止（停止播放）
6滑动条（表示声音播放的进程）
7文本框（显示声音文件的路径）
2．详细设计
⑴构造用户界面
首先，用菜单编辑器编辑菜单，内容如下：
标题
名称
文件
mnufile
打开
mnuopen
退出
mnurun
帮助
mnuhelp
关于
mnuabout
其次，在界面上添加MMcontrol、Slider、CommonDialog、Label、CheckBox控件，合理安排、布局，使之美观。
分别设置各控件的name、height、left、top、width属性。
如图所示：
最后，编写程序代码。
3．关键技术
本程序关键技术在MMcontrol（MultimediaMCI控件）上，它是管理媒体控制接口（MCI）设备上的多媒体文件的记录与回放。
从概念上说，这种控件就是一组按钮，它被用来向诸如声卡、MIDI序列发生器、CD-ROM驱动器、视频CD播放器和视频磁带记录器及播放器等设备发出MCI命令。
MCI控件还支持Windows（*.avi）视频文件的回放。
其上的按钮被分别定义为Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject，本程序只采用Prev、Play、Pause、Stop这几个按钮。
Prev的代码如下：
IfMMControl.Position=MMControl.LengthThen
MMControl.Command="prev"
EndIf
play的代码如下：
PrivateSubMMControl_PlayClick（CancelAsInteger）
MMControl.Command="play"
EndSub
Stop的代码如下：
PrivateSubMMControl_StopClick（CancelAsInteger）
MMControl.Command="stop"
Slider1.Value=0
EndSub
CommonDialog的代码如下：
CommonDialog1.FileName=""
CommonDialog1.Filter="（*.midi）|*.mid|（*.wav）|*.wav|（*.avi）|*.avi"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="打开媒体文件"
CommonDialog1.Action=1
MMControl.Command="close"
Label1.Caption=CommonDialog1.FileName
IfCommonDialog1.FileName=""Then
temp=MsgBox（"没有文件被选择",37,"检查"）
ElseIfCommonDialog1.FilterIndex=1Then
MMControl.DeviceType="sequencer"
MMControl.TimeFormat=1
MMControl.FileName=CommonDialog1.FileName
MMControl.Command="open"
Slider1.Min=0
Slider1.Max=MMControl.Length
ElseIfCommonDialog1.FilterIndex=2Then
MMControl.DeviceType="waveaudio"
MMControl.FileName=CommonDialog1.FileName
MMControl.Command="open"
Slider1.Min=0
Slider1.Max=MMControl.Length
ElseIfCommonDialog1.FilterIndex=3Then
MMControl.DeviceType="avivideo"
MMControl.TimeFormat=3
MMControl.FileName=CommonDialog1.FileName
MMControl.Command="open"
Slider1.Min=0
Slider1.Max=MMControl.Length
EndIf
4．操作说明
a双击play图标，出现如下画面：
b点击文件——打开，画面所示：
c选择文件类型，选择一个声音文件，画面如图：
d点击
按钮，开始播放，如图所示：
e点击
可暂停播放，点击
可停止播放，当播放完毕时点击
可重放。
F点击帮助——关于，画面如下：
三、实验仪器：
486、586计算机、声卡、
音箱、麦克等。
四、实验内容及步骤：
程序清单
PrivateSubcheck1_Click（）
Ifcheck1.Value=1Then
MMControl.Command="PLAY"
EndIf
EndSub
PrivateSubForm_Load（）
Me.Image1.Picture=LoadPicture（App.Path+"\qq.jpg"）
EndSub
PrivateSubForm_Unload（CancelAsInteger）
MMControl.Command="stop"
MMControl.Command="close"
EndSub
PrivateSubMMControl_PlayClick（CancelAsInteger）
MMControl.Command="play"
EndSub
PrivateSubMMControl_StatusUpdate（）
SelectCaseCommonDialog1.FilterIndex
Case1
Slider1.Value=MMControl.Position
Case2
Slider1.Value=MMControl.Position
Case3
Slider1.Value=MMControl.Position
EndSelect
IfMMControl.Position=MMControl.LengthThen
MMControl.Command="prev"
EndIf
IfSlider1.Value=MMControl.LengthThen
MMControl.Command="stop"
Slider1.Value=0
EndIf
EndSub
PrivateSubMMControl_StopClick（CancelAsInteger）
MMControl.Command="stop"
Slider1.Value=0
EndSub
PrivateSubmnuabout_Click（）
DimtempAsInteger
temp=MsgBox（"音频播放器V1.0孙婕99041242",vbOKOnly,"help"）
EndSub
PrivateSubmnuexit_Click（）
MMControl.Command="stop"
MMControl.Command="close"
End
EndSub
PrivateSubmnuopen_Click（）
DimtempAsInteger
DimstringtextAsString
Dimmidx,midyAsDouble
CommonDialog1.FileName=""
CommonDialog1.Filter="（*.midi）|*.mid|（*.wav）|*.wav|（*.avi）|*.avi"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="打开媒体文件"
CommonDialog1.Action=1
MMControl.Command="close"
Label1.Caption=CommonDialog1.FileName
IfCommonDialog1.FileName=""Then
temp=MsgBox（"没有文件被选择",37,"检查"）
ElseIfCommonDialog1.FilterIndex=1Then
MMControl.DeviceType="sequencer"
MMControl.TimeFormat=1
MMControl.FileName=CommonDialog1.FileName
MMControl.Command="open"
Slider1.Min=0
Slider1.Max=MMControl.Length
ElseIfCommonDialog1.FilterIndex=2Then
MMControl.DeviceType="waveaudio"
MMControl.FileName=CommonDialog1.FileName
MMControl.Command="open"
Slider1.Min=0
Slider1.Max=MMControl.Length
ElseIfCommonDialog1.FilterIndex=3Then
MMControl.DeviceType="avivideo"
MMControl.TimeFormat=3
MMControl.FileName=CommonDialog1.FileName
MMControl.Command="open"
Slider1.Min=0
Slider1.Max=MMControl.Length
EndIf
EndSub
PrivateSubSlider1_Scroll（）
MMControl.To=Slider1.Value
MMControl.Command="seek"
MMControl.Command="play"
EndSub
五、要求：
实验前预习实验内容，读懂程序，上机调试。
有能力的学生独自编写程序，把调试过程中出现的问题记录下来。
实验结束后，写好实验报告。
注：
此程序仅供学生实验作为参考，程序设计的内容不限，可以利用所学知识，用相关的应用软件设计均可。
例如：
VF、VC++、Delphi6.0等等。
升级会员 