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