多媒体计算机技术原理docWord文件下载.docx
- 文档编号:22030811
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:9
- 大小:257.89KB
多媒体计算机技术原理docWord文件下载.docx
《多媒体计算机技术原理docWord文件下载.docx》由会员分享,可在线阅读,更多相关《多媒体计算机技术原理docWord文件下载.docx(9页珍藏版)》请在冰豆网上搜索。
本音频播放器实现了播放所需要的基本功能,如同一部放音机,可以将存储在计算机中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)
play"
EndSub
Stop的代码如下:
PrivateSubMMControl_StopClick(CancelAsInteger)
stop"
Slider1.Value=0
CommonDialog的代码如下:
CommonDialog1.FileName="
"
CommonDialog1.Filter="
(*.midi)|*.mid|(*.wav)|*.wav|(*.avi)|*.avi"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="
打开媒体文件"
CommonDialog1.Action=1
close"
Label1.Caption=CommonDialog1.FileName
IfCommonDialog1.FileName="
Then
temp=MsgBox("
没有文件被选择"
37,"
检查"
)
ElseIfCommonDialog1.FilterIndex=1Then
MMControl.DeviceType="
sequencer"
MMControl.TimeFormat=1
MMControl.FileName=CommonDialog1.FileName
open"
Slider1.Min=0
Slider1.Max=MMControl.Length
ElseIfCommonDialog1.FilterIndex=2Then
waveaudio"
ElseIfCommonDialog1.FilterIndex=3Then
avivideo"
MMControl.TimeFormat=3
EndIf
4.操作说明
a双击play图标,出现如下画面:
b点击文件——打开,画面所示:
c选择文件类型,选择一个声音文件,画面如图:
d点击
按钮,开始播放,如图所示:
e点击
可暂停播放,点击
可停止播放,当播放完毕时点击
可重放。
F点击帮助——关于,画面如下:
三、实验仪器:
486、586计算机、声卡、
音箱、麦克等。
四、实验内容及步骤:
程序清单
PrivateSubcheck1_Click()
Ifcheck1.Value=1Then
PLAY"
PrivateSubForm_Load()
Me.Image1.Picture=LoadPicture(App.Path+"
\qq.jpg"
PrivateSubForm_Unload(CancelAsInteger)
PrivateSubMMControl_StatusUpdate()
SelectCaseCommonDialog1.FilterIndex
Case1
Slider1.Value=MMControl.Position
Case2
Case3
EndSelect
IfSlider1.Value=MMControl.LengthThen
Slider1.Value=0
PrivateSubmnuabout_Click()
DimtempAsInteger
音频播放器V1.0孙婕99041242"
vbOKOnly,"
help"
PrivateSubmnuexit_Click()
End
PrivateSubmnuopen_Click()
DimstringtextAsString
Dimmidx,midyAsDouble
PrivateSubSlider1_Scroll()
MMControl.To=Slider1.Value
seek"
五、要求:
实验前预习实验内容,读懂程序,上机调试。
有能力的学生独自编写程序,把调试过程中出现的问题记录下来。
实验结束后,写好实验报告。
注:
此程序仅供学生实验作为参考,程序设计的内容不限,可以利用所学知识,用相关的应用软件设计均可。
例如:
VF、VC++、Delphi6.0等等。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 多媒体 计算机技术 原理 doc
![提示](https://static.bdocx.com/images/bang_tan.gif)