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） 存盘完成。
|
