收藏 分享(赏)

音乐淡出.docx

上传人:HR专家 文档编号:12168926 上传时间:2021-10-17 格式:DOCX 页数:7 大小:69.49KB
下载 相关 举报
音乐淡出.docx_第1页
第1页 / 共7页
音乐淡出.docx_第2页
第2页 / 共7页
音乐淡出.docx_第3页
第3页 / 共7页
音乐淡出.docx_第4页
第4页 / 共7页
音乐淡出.docx_第5页
第5页 / 共7页
点击查看更多>>
资源描述

1、第1步引入背景音乐,指定链接标识符单击“文件一导入一导入到库”,然后选择事先准备好的背景音乐文件,从而将背景音乐导入到库中,再按F11键打开库,在声音组件上单击右键,选择“链接”(如图1所示),即打开“链接属性”对话框,输入一个标识符,比如“ musicl,用于标识该组件,以便在场景中进入控制(如图 2所示)。第2步创建Sound对象,绑定音乐在第一步中,我们已往库中引入了两个背景音乐,并分别为其指定了链接标识符:musicl和music2,接下来就是创建Sound对象:musicl、music2。当然,也可取为其他的名字。并分别将库中的两个声音组件( musicl和music2 )绑定到这两

2、个对象上。具 体的做法:在场景开始白帧上输入下面的ActionScript :/创建Sound对象:musicl = new Sound();music2 = new Sound();/绑定声音组件到对象上:music1.attachSound(music1);music2.attachSound(music2);第3步创建声控me,让音乐周而复始按Ctrl+F8新建一个me,只一帧,在帧上添加如下Action ,检测Root.music1_ctrl.Playing 和 Root.musie2_etrl.Playing的可见性:如果Root.musie1_etrl.Playing 可见,则说明

3、 musiel音乐在播放,当其放完时,再从头开始;如果Root.musie2_etrl.Playing 可见,则说明musie2音乐在播放,当其放完时,再从头开 始。onEnterFrame = funetion () if (_root.musie1_etrl.Playing._visible) _root.musie1.onSoundComplete = funetion() _root.musie1.start(0);;_root.music2.onSoundComplete = function。_root.music2.start(0);;最后,别忘了将此 mc拖到主场景中。第4步创

4、建声控me,让音乐逐渐淡出同样,通过按 Ctrl+F8新建一个mG共三帧:第 1 帧 Action :mvol=0;stop();第 2 帧 Actionif (_root.music1_ctrl.Playing._visible) mvol = _root.music1.getVolume(); else if (_root.music2_ctrl.Playing._visible) mvol = _root.music2.getVolume();a = setInterval(Next, 50);function Next() clearInterval(a);mvol-;if (_roo

5、t.music1_ctrl.Playing._visible) _root.music1.setVolume(mvol);_root.music2.setVolume(mvol);/if (mvol0) stopAllSounds();fscommand(quit, );第 3 帧 Action :gotoAndplay(2)对于第1、3帧的Action就不用说了,第 2帧的Action先判断_root.music1 和_root.music2 是不是有一个正在播放,如果是则将其音量值赋给变量mvol ,然后每隔50毫秒mvol减1,直到mvol小于0时,退出课件。这样就达到了声音逐渐淡出的效果!当然这个mc也要放到场景中去,并给它一个实例名,比如“ Quit”,然后再添加一个退出按钮,加上如下Action ,从而启动 Quit :on (release) _root.quit.play();这样,在课件退出时,不管背景音乐播放到何处,都能逐渐淡出,给人一种渐渐远去的感觉

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 中等教育 > 音乐美术

本站链接:文库   一言   我酷   合作


客服QQ:2549714901微博号:道客多多官方知乎号:道客多多

经营许可证编号: 粤ICP备2021046453号世界地图

道客多多©版权所有2020-2025营业执照举报