菜鸟技巧(2007年12月更新)
。。。。。。将陆续推出声音控制、Flash控制、文字图片控制等技巧。。。。。。
[color=#0000FF][b][size=4] :em02: 技巧14:声音控制①[/size][/b][/color]
一、Midi音乐(MidiLoop.U32)
在课件中,我们经常使用Midi音乐作为背景音乐,如果你只是让它循环播放,另加一个背景音乐开关按钮,可以使用下面这种方式:
程序非常简单,可以加入任何程序中。
1.计算图标play midi设置:
yy:=Random(1,15,1)
LoopMidi(FileLocation^".\\music\\mid"^yy^".mid")
--注释:
--yy是自定义变量,作为随机播放的midi音乐文件。
--请在你的程序目录下添加music文件夹,放入文件名为mid1,mid2,。。。,mid15的15个midi音乐,当然你也可以修改,放入更多或更少。
--LoopMidi是随机播放music文件夹下的midi音乐
2.背景音乐控制交互
将交互属性设为永久交互
计算图标on/off设置:
a:=~a
if a=0 then
StopMidi()
else
yy:=Random(1,15,1)
LoopMidi(FileLocation^".\\music\\mid"^yy^".mid")
end if
--其中a为自定义逻辑变量,初始值为1。其值在0与1之间变换。
--因为a的初始值为1,所以一开始midi是处于播放状态,当你点击该按钮,由a=~a可知,此时a的值变为0,midi音乐就会停止,反之亦然。