多媒体计算机技术原理

多媒体计算机技术原理

实验指导书

陈琦

信息学院计算机实验室

2003．10

音频播放器设计文档

一实验目的：

多媒体计算机技术原理是多媒体数据的压缩编码技术。多媒体系统是硬件和软件组成的，利用多媒体技术可制作多媒体节目、超文本和超媒体系统，在许多领域均发挥其作用。本实验制作音频软处理器，利用多媒体控件，在计算机上实现声音的播放。

二实验原理：

1．总体设计

由于Visual Basic界面简洁，功能强大但操作易上手，所以本程序选用Visual Basic 6.0来制作。

本音频播放器实现了播放所需要的基本功能，如同一部放音机，可以将存储在计算机中avi、wave、midi格式的声音文件播放出来，除了直接播放声音以外，还可以进行循环播放。

⑴菜单介绍

①文件菜单

打开 Open

退出 Exit

②帮助菜单

关于 About

⑵工具按钮介绍

①搜索到开头（把声音文件倒到它的开始位置）

②搜索到结尾（把声音文件倒到它的结束位置）

③播放（播放当前的声音文件）

④暂停（暂停当前的声音文件）

⑤停止（停止播放）

⑥滑动条（表示声音播放的进程）

⑦文本框（显示声音文件的路径）

2．详细设计

⑴构造用户界面

首先，用菜单编辑器编辑菜单，内容如下：

其次，在界面上添加MMcontrol、Slider、CommonDialog、Label、CheckBox 控件，合理安排、布局，使之美观。分别设置各控件的name、height、left、top、width属性。如图所示：

最后，编写程序代码。

3．关键技术

本程序关键技术在MMcontrol （Multimedia MCI 控件）上，它是管理

媒体控制接口 (MCI) 设备上的多媒体文件的记录与回放。从概念上说，这种控件就是一组按钮，它被用来向诸如声卡、MIDI 序列发生器、CD-ROM 驱动器、视频 CD 播放器和视频磁带记录器及播放器等设备发出 MCI 命令。

MCI 控件还支持 Windows (*.avi) 视频文件的回放。

其上的按钮被分别定义为 Prev、 Next、 Play、 Pause、 Back、 Step、Stop、 Record 和 Eject，本程序只采用Prev、 Play、 Pause、 Stop这几个按钮。

Prev的代码如下：

If MMControl.Position = MMControl.Length Then

mand = "prev"

End If

play的代码如下：

Private Sub MMControl_PlayClick(Cancel As Integer)

mand = "play"

End Sub

Stop的代码如下：

Private Sub MMControl_StopClick(Cancel As Integer)

mand = "stop"

Slider1.Value = 0

End Sub

CommonDialog的代码如下：

CommonDialog1.FileName = ""

CommonDialog1.Filter = "(*.midi)|*.mid|(*.wav)|*.wav|(*.avi)|*.avi"

CommonDialog1.FilterIndex = 1

CommonDialog1.DialogTitle = "打开媒体文件"

CommonDialog1.Action = 1

mand = "close"

Label1.Caption = CommonDialog1.FileName

If CommonDialog1.FileName = "" Then

temp = MsgBox("没有文件被选择", 37, "检查") ElseIf CommonDialog1.FilterIndex = 1 Then

MMControl.DeviceType = "sequencer"

MMControl.TimeFormat = 1

MMControl.FileName = CommonDialog1.FileName mand = "open"

Slider1.Min = 0

Slider1.Max = MMControl.Length

ElseIf CommonDialog1.FilterIndex = 2 Then

MMControl.DeviceType = "waveaudio"

MMControl.FileName = CommonDialog1.FileName mand = "open"

Slider1.Min = 0

Slider1.Max = MMControl.Length

ElseIf CommonDialog1.FilterIndex = 3 Then

MMControl.DeviceType = "avivideo"

MMControl.TimeFormat = 3

MMControl.FileName = CommonDialog1.FileName mand = "open"

Slider1.Min = 0

Slider1.Max = MMControl.Length

End If

4．操作说明

a 双击play图标，出现如下画面：