多媒体计算机技术原理

多媒体计算机技术原理实验指导书陈琦信息学院计算机实验室2003・10音频播放器设计文档一实验目的：多媒体计算机技术原理是多媒体数据的压缩编码技术。多媒体系统是硬件和软件组成的，利用多媒体技术可制作多媒体节目、超文本和超媒体系统，在许多领域均发挥其作用。本实验制作音频软处理器，利用多媒体控件，在计算机上实现声音的播放。二实验原理：1.总体设计由于VisualBasic界面简洁，功能强大但操作易上手，所以本程序选用VisualBasic6.0来制作。本音频播放器实现了播放所需要的基本功能，如同一部放音机，可以将存储在计算机中avi、wave、midi格式的声音文件播放出来，除了直接播放声音以外，还可以进行循环播放。⑴菜单介绍文件菜单打开Open退出Exit帮助菜单关于About⑵工具按钮介绍搜索到开头（把声音文件倒到它的开始位置）搜索到结尾（把声音文件倒到它的结束位置）播放（播放当前的声音文件）暂停（暂停当前的声音文件）停止（停止播放）滑动条（ 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 示声音播放的进程）文本框（显示声音文件的路径）2?详细设计⑴构造用户界面首先，用菜单编辑器编辑菜单，内容如下标题名称文件mnufile打开mnuopen帮助mnuhelp关于mnuabout退出mnurun其次，在界面上添加MMcontrol、Slider、CommonDialog、Label、CheckBox控件，合理安排、布局，使之美观。分另U设置各控件的nameheight、left、top、width属性。如图所示：最后，编写程序代码3.关键技术本程序关键技术在MMcontrol（MultimediaMCI控件）上，它是管理媒体控制接口（MCI）设备上的多媒体文件的记录与回放。从概念上说，这种控件就是一组按钮，它被用来向诸如声卡、MIDI序列发生器、CD-ROM驱动器、视频CD播放器和视频磁带记录器及播放器等设备发出MCI命令。MCI控件还支持Windows（*avi）视频文件的回放。其上的按钮被分另U定义为Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject,本程序只采用Prev、Play、PauseStop这几个按钮。Prev的代码如下：IfMMControl.Position=MMControl.LengthThenMMControl.Command="prev"EndIfplay的代码如下：PrivateSubMMControl_PlayClick(CancelAsInteger)MMControl.Command="play"EndSubStop的代码如下：PrivateSubMMControl_StopClick(CancelAsInteger)MMControl.Command="stop"Slider1.Value=0EndSubCommonDialog的代码如下：CommonDialog1.FileName=""CommonDialog1.Filter="仁midi)|*mid|(*wav)|*.wav|(*avi)|*.avi”CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle="打开媒体文件"CommonDialog1.Action=1MMControl.Command="close"Label1.Caption=CommonDialog1.FileNameIfCommonDialog1.FileName=""Thentemp=MsgBox("没有文件被选择",37,”检查”)ElseIfCommonDialog1.FilterIndex=1ThenMMControl.DeviceType="sequencer"MMControl.TimeFormat=1MMControl.FileName=CommonDialog1.FileNameMMControl.Command="open"Slider1.Min=0Slider1.Max=MMControl.LengthElseIfCommonDialog1.FilterIndex=2ThenMMControl.DeviceType="waveaudio"MMControl.FileName=CommonDialog1.FileNameMMControl.Command="openSlider1.Min=0Sliderl.Max=MMControl.LengthElselfCommonDialogl.FilterIndex=3ThenMMControl.DeviceType="avivideo"MMControl.TimeFormat=3MMControl.FileName=CommonDialog1.FileNameMMControl.Command="openSlider1.Min=0Slider1.Max=MMControl.LengthEndIf4.操作说明a双击play图标，出现如下画面：交件帮助b点击文件——打开，画面所示c选择文件类型，选择一个声音文件，画面如图d点击-A—按钮，开始播放，如图所示・音务■故at”.。文件帮助e点击m可暂停播放，点击可停止播放，当播放完毕时点击关于，画面如下F点击帮助、实验仪器486、586计算机、声卡、音箱、麦克等。四、实验内容及步骤：程序清单PrivateSubcheck1_Click()Ifcheck1.Value=1ThenMMControl.Command="PLAY"EndIfEndSubPrivateSubForm_Load()Me.Image1.Picture=LoadPicture(App.Path+"\qq.jpg")EndSubPrivateSubForm_Unload(CancelAsInteger)MMControl.Command="stop"MMControl.Command="close"EndSubPrivateSubMMControl_PlayClick(CancelAsInteger)MMControl.Command="play"EndSubPrivateSubMMControl_StatusUpdate()SelectCaseCommonDialog1.FilterIndexCase1Slider1.Value=MMControl.PositionCase2Slider1.Value=MMControl.PositionCase3Slider1.Value=MMControl.PositionEndSelectIfMMControl.Position=MMControl.LengthThenMMControl.Command="prev"EndIfIfSlider1.Value=MMControl.LengthThenMMControl.Command="stop"Slider1.Value=0EndIfEndSubPrivateSubMMControl_StopClick(CancelAsInteger)MMControl.Command="stop"Slider1.Value=0EndSubPrivateSubmnuabout_Click()DimtempAsIntegertemp=MsgBox(”音频播放器V1.0孙婕99041242”,vbOKOnly,"help")EndSubPrivateSubmnuexit_Click()MMControl.Command="stop"MMControl.Command="close"EndEndSubPrivateSubmnuopen_Click()DimtempAsIntegerDimstringtextAsStringDimmidx,midyAsDoubleCommonDialogl.FileName=""CommonDialogl.Filter="仁midi)|*mid|(*.wav)|*.wav|(*.avi)|*avi"CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle="打开媒体文件"CommonDialog1.Action=1MMControl.Command="close"Label1.Caption=CommonDialog1.FileNameIfCommonDialog1.FileName=""Thentemp=MsgBox("没有文件被选择",37,”检查")ElseIfCommonDialog1.FilterIndex=1ThenMMControl.DeviceType="sequencer'MMControl.TimeFormat=1MMControl.FileName=CommonDialog1.FileNameMMControl.Command="open"Slider1.Min=0Slider1.Max=MMControl.LengthElseIfCommonDialog1.FilterIndex=2ThenMMControl.DeviceType="waveaudioMMControl.FileName=CommonDialog1.FileNameMMControl.Command="open"Slider1.Min=0Slider1.Max=MMControl.LengthElseIfCommonDialog1.FilterIndex=3ThenMMControl.DeviceType="avivideo"MMControl.TimeFormat=3MMControl.FileName=CommonDialog1.FileNameMMControl.Command="open"Slider1.Min=0Slider1.Max=MMControl.LengthEndIfEndSubPrivateSubSlider1_Scroll()MMControl.To=Slider1.ValueMMControl.Command="seek"MMControl.Command="play"EndSub五、要求：实验前预习实验内容，读懂程序，上机调试。有能力的学生独自编写程序把调试过程中出现的问题记录下来。实验结束后，写好实验 报告 软件系统测试报告下载sgs报告如何下载关于路面塌陷情况报告535n,sgs报告怎么下载竣工报告下载 。注：此程序仅供学生实验作为参考，程序设计的内容不限，可以利用所学知识，用相关的应用软件设计均可。例如：VF、VC++、Delphi6.0等等。