在Aothorware 3.0中使用MIDI文件
#1 1.MIDI类控制函数的装载
在Data下拉菜单中选Load Function,点取apwmme.ucd打开该函数库,选出以MIDI开头的函数,单击load按钮装入函数,此时就可以在计算图标中编制代码时调用。
#1 2.MIDI类控制函数的说明
MIDI类控制函数共有6个,分别为:
(1)MIDIPlay(″fileName″,tempo,wait) 播放指定的MIDI文件,其中:
fileName 文件名,可指定路径;
tempo 播放速度,tempo等于100时用标准速度播放;
wait 为逻辑变量,控制是否进行同步播放,如果wait等于TRUE,播放完指定的MIDI文件后,才继续执行程序,为FALSE时,播放MIDI文件同时可继续执行程序。
(2)MIDIPlaySegment(″fileName″,tempo,fromSeconds,forSeconds,wait) 对指定的MIDI文件,截取一段播放,其中:
fromSeconds 开始播放的时间(以秒为单位);
forSeconds 播放长度(以秒为单位)。
(3)MIDIPause() 暂停播放
(4)MIDIResume() 从暂停处继续播放
(5)MIDIStop() 停止播放
(6)MIDIPlaying() 检测MIDI的当前状态,若正在播放返回TRUE,否则返回FALSE。
#1 3.MIDI类控制函数的应用
例如:在C:\midi下有一个cloud.mid文件, 要求作为背景音乐,从第10秒开始播放,持续播放30秒。可在计算图标中插入如下代码:
MIDIPlaysegment(″c:\midi\cloud.mid″,100,10,30,FALSE)即可。