|
Authorware 5.2支持的声音文件格式有一些限制，只有WAV、AIFF、PCM和SWA扩展后缀名的文件才可直接导入到Authorware程序中，尽管Authorware 6.0开始支持MP3格式声音文件的播放和插入，但还是不支持MIDI文件的直接使用。我们知道MIDI文件使用的是数字乐器，换句话说MIDI文件并没有真正地记录了音频信息，而是象乐谱一样记录了各种乐器的和声和音高节奏，具体的演奏任务由声卡所带的数字乐器完成。MIDI音乐有着体积信息小的特点，而且不会与WAV声音通道冲突，因此在进行多媒体开发时经常用来做背景音乐，但Authorware并不直接提供对MIDI声音文件格式的支持，怎么办呢？别急，Authorware提供了外部函数的接口可以解决这个问题：利用第三方的UCD外部函数，我们可以实现对MIDI声音文件的支持。下面我们就一起来制作两个关于MIDI背景音乐循环播放的范例吧！
循环播放MIDI背景音乐
在这里我们要实现的目的是让MIDI背景音乐循环的播放，具体思路是通过导入Authorware的外部函数MidiLoop.U32相关的两个扩展函数，实现对MIDI背景音乐的循环播放。
在介绍范例前我们简单介绍一下MidiLoop.U32的相关扩展函数：
Result:=LoopMidi(File)
这个函数的功能是对程序指定的MIDI音乐进行循环播放，直到用户中止为止。其中参数File就是用户自行指定的外部MIDI文件，当然，这里指定的MIDI声音文件并没有导入程序内部，只是存在一种相当于链接的关系。
Result:=StopMidi()
这个函数的功能是停止当前正在播放的MIDI音乐。参数为VOID型。
1、 执行界面预览，如图3.1
图3.1 范例程序执行效果
2、程序的流程图，如图3.2
图3.2 范例程序流程图
3、 操作步骤：
1） 新建一个文件，并调入外部函数MidiLoop.U32的相关扩展函数，如图3.3
图 3.3 调入MidiLoop.U32的相关扩展函数
2） 加入一个计算机，设置运行窗口的大小，计算图标的内容为：
ResizeWindow(320,240) ------ResizeWindow是一个系统函数，设置窗口的大小
3） 设置背景图标“Background”。
4） 开始播放MIDI声音文件，在计算图标里写上：
stop:=0 -----stop为自定义变量，用来控制MIDI
LoopMidi(FileLocation^"midi.mid") -----程序开始播放MIDI背景音乐
5） 设置对MIDI音乐的开关控制以及程序的退出。分别建立三个Button按钮响应交互，返回类型设置如图3.2。
在“Stop Midi”按钮响应交互计算图标里输入代码：
stop:=1
StopMidi()
在“Replay Midi”按钮响应交互计算图标里输入代码：
if stop=1 then
LoopMidi(FileLocation^"midi.mid")
stop:=0
end if
在“Exit”按钮响应交互计算图标里输入代码：
StopMidi() ------停止MIDI背景音乐播放
Quit() ------退出程序
6） 存盘完成。 |
