荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: guita (干傻), 信区: Multimedia
标 题: 随机循环选择播放MIDI背景音乐
发信站: 荔园晨风BBS站 (Sat Jun 8 18:02:39 2002), 转信
这是rock的作品哦，不知道大家有没有去捧场！
在这里先贴上一篇。
随机循环选择播放MIDI背景音乐
我们在上面介绍的“循环播放MIDI背景音乐”范例中只能播放一首MIDI音乐对
象，这样显的比较单调，如果我们要实现多首MIDI背景音乐的随机循环选择播放，
能实现吗？答案是肯定的。
在这里我们要介绍另外一个外部函数a5wmme.U32。这个函数包括各种多媒体的
播放控制函数，如动画、CD、MIDI、WAV等的控制函数，其中我们可以利用的控制
MIDI音乐播放的函数有：
MIDIPause()
MIDIPlay(fileName, tempo, wait)
MIDIPlaying()
MIDIPlaySegment(fileName, tempo, fromSeconds, forSeconds, wait)
MIDIResume()
MIDIStop()
a5wmme.U32对MIDI音乐的控制函数比起MidiLoop.U32可就强大多了。
在本范例中，有两个核心问题：一是如何实现随机选择不同的MIDI音乐的问题
，二是如何让MIDI循环播放。解决第一个问题的方法是以所有要播放的MIDI声音文
件名“创建”一个播放列表，这里“创建”的列表并不是真正存在的播放列表，而
是通过系统函数“Catalog”将存放MIDI音乐的文件夹中的文件名以字符串的形式
赋给变量，即所谓的播放列表，最后通过系统函数“Random”随机选择“播放列表
”中的MIDI文件进行播放。而解决第二个问题的方法是利用了永久型的条件交互的
一点技巧而已。一起来看看如何实现吧！
1、 执行界面预览，如图3.4
图3.4 范例程序执行效果
2、 程序的流程图如图3.5
图3.5 范例程序流程图
3、操作步骤：
1） 新建一个文件，并调入外部函数a5wmme.U32的相关扩展函数：
MIDIPlay(fileName, tempo, wait)
这个函数的功能即播放指定的MIDI音乐文件，其中“filename”参数即指定播放的
MIDI音乐文件名；“tempo”参数是播放MIDI的速率，例如tempo =100表示以正常
的速率播放MIDI；“wait”参数是播放MIDI的等待时间，例如wait=0即为立刻播放
指定的MIDI音乐。
MIDIPlaying()
判断当前是否正在播放MIDI音乐，如果条件为真则返回“1”，条件为假则返回“
0”
MIDIStop()
停止当前正在播放的MIDI音乐
2） 设置屏幕大小和背景，如图3.6和图3.7所示
图3.6 设置演示窗口大小
图3.7 设置范例的背景
图3.8 创建“播放列表”的内容
3） 创建“播放列表”，如图3.8，在计算图标中写入以下代码：
Midilist:=Catalog(FileLocation^"midi","f") ----把MIDI文件夹下的MIDI文件
名
MidiNum:=LineCount(Midilist) ----赋值给字符串变量Midilist，实现
Midilist_Bak:=Midilist ----随机选择MIDI文件
MidiNum_Bak:=MidiNum
RamdonNum:=Random(1,MidiNum,1)
CurrentFile:=GetLine(Midilist,RamdonNum)
DeleteLine(Midilist,RamdonNum)
MidiNum:=MidiNum-1
4） 开始播放MIDI文件，并进行随机循环选择控制。
（1） 在交互“MidiLoop”右边添加一永久条件交互，条件为“
~(MIDIPlaying()&Sec)”返回类型设置为“Return”，相关设置如图3.9所示；在
计算图标里写入以下代码，如图3.10所示：
----判断恢复“播放列表”，即实现循环的目的
if MidiNum=0 then
Midilist:=Midilist_Bak
MidiNum:=MidiNum_Bak
end if
----继续随机选择播放新的MIDI文件
RamdonNum:=Random(1,MidiNum,1)
CurrentFile:=GetLine(Midilist,RamdonNum)
Midilist:=DeleteLine(Midilist,RamdonNum)
MidiNum:=MidiNum-1
MIDIPlay(FileLocation^"midi\\"^CurrentFile,100,0)
图3.9 永久条件的设置
图3.10 永久条件交互的执行内容
为什么要设置永久条件为“~(MIDIPlaying()&Sec)”呢？其实原理就是通过系统变
量Sec的不断变化，迫使系统去检查整个表达式的值，当MIDI停止播放时，
MIDIPlaying()返回“0”，条件表达式立刻变为真，系统自动执行计算图标“
~(MIDIPlaying()&Sec)”里的相关内容，即播放下一首随机选择的MIDI音乐文件，
从而实现了MIDI背景音乐的随机选择循环播放的功能。
（2）再在交互“Midiloop”的右边继续添加两个按钮响应交互“Next”和“Quit
”，返回类型设置为“Return”。其中“Next”交互的作用是手动选择播放下一首
MIDI，其实只要在它的计算图标里写上“MIDIStop()”即可实现，为什么？自己想
一想。“Quit”按钮交互实现退出程序执行。
（3）在交互“Midiloop”流程的后面添加一计算图标“PlayMidi”，输入代码：
MIDIPlay(FileLocation^"midi\\"^CurrentFile,100,0)
不知道大家注意到程序的流程了没有，其实这才是系统最先播放执行的MIDI文件的
程序处，程序开始播放MIDI音乐文件是从这里开始的，为什么？请参考“12．2．1
Try Again交互返回类型”章节的内容。
4、存盘完成，可以执行测试一下效果拉。
专题总结
以上的两个范例你都可以作为模块套用在你的多媒体系统中，实现MIDI背景音
乐的应用。这里值得一提的是MidiLoop.U32函数其实也是同时支持MP3格式的声音
文件，使用方法和范例一相同，对于钟爱MP3的开发者不妨一试。
--
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.55.226]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店