您现在的位置:小学生自学网>> 信息>> 学习电脑

用DirectMedia Xtra实现声音的控制

作者: 来源: 发布时间:2013年11月02日 点击数:
 
恰当地使用声音效果往往能给课件锦上添花,Authorware中虽然能直接使用一些音频文件,但有很大的局限性,例如:多个声音文件不能同时播放、不能调整音量大小、声音不能自动循环播放等等。因此,以前在制作课件中我经常为控制声音而伤透脑筋,直到我发现了DirectMedia Xtra,这些烦恼才一扫而光。

DirectMedia Xtra是一个完整支持外部媒体文件的Xtra插件(可在www.cce.com.cn/soft下载),更多的人喜欢用它来播放MPG、AVI、MOV等视频文件,其实它在音频播放上的表现也非常出色,它支持WAV、AIF、MIDI、MP3等多种音频文件格式。利用它的属性对话框或脚本语言可以轻松设置循环播放,可以调整音量大小、播放速度和声音平衡。每一个DirectMedia Xtra图标占用一个独立声道,多个音频文件同时播放互不冲突,很容易就能实现多声道功能,另外还可以为声音添加提示点,实现声画同步。

下面就撷取我课件中的一部分,体会一下DirectMedia Xtra在声音控制方面的强大功能。这是一个与图文同步的配乐朗读,课件要求一边播放背景音乐,一边进行课文范读,同时课文内容及相关画面根据朗读速度同步呈现。实现步骤如下:

1. 在Authorware中打开“Insert”菜单,选择“Tabuleiro Xtras/DirectMedia Xtra”命令,在弹出的“DirectMedia Xtra”属性对话框中,单击[Browse File]按钮选择背景音乐,再根据需要进行若干设置,如果音乐较短,要循环播放,则选中“Loop”,最后按[OK]便可在流程线上插入一新图标,取名为“背景音乐”。

2. 用同样的方法再加一个“DirectMedia Xtra”图标,将范读的声音文件加入,取名为“范读”。并在属性对话框中单击[播放]按钮,当要朗读第一段内容时,按[暂停]键,单击[Add],添加提示点,取名为“第一段”。按[播放]键继续。照此方法,根据段落内容为课文范读添加更多的提示点(如图1)。


图1

3. 插入一交互图标,在其右边拖入一个群组图标,将其响应类型设为“Event”,在“Sender”中双击“Icon 范读”项,并在“Event Name”中双击选中“CuePointPassed”,这样当声音播放至提示点时便会触发事件(如图2)。


图2

4. 在群组图标中添加一决策图标,将“Branch”类型设为“To Calculated Path”,在下方文本区输入语句“GetSpriteProperty(@"范读", #mostrecentcuepoint)”,然后拖四个显示图标到决策图标的右侧,并将其擦除方式设为“Don't Erase”,在各个显示图标中根据段落内容输入文字、插入图片、设置显示效果。这样就能自动根据提示点的先后顺序显示其下的各个图标内容,从而保证音画同步。

5. 为控制声音,在交互图标后再拖入三个计算图标(如图3),响应类型设为“Hot Spot”,其中“ stop/play”控制声音的暂停与播放,其“Key(s)”设为“s|S”,其他两个计算图标控制背景音乐的音量,“音量+”中的“Key(s)”设为“+”,“音量-”中的“Key(s)”设为“-”。


图3

A. 双击“stop/play”计算图标,加入脚本:

if GetSpriteProperty(@"背景音乐",#mediabusy)=1 then --检查声音是否正在播放

CallSprite(@"背景音乐", #videopause)

CallSprite(@"范读", #videopause)

Else

CallSprite(@"背景音乐", #videoplay)

CallSprite(@"范读", #videoplay)

End if

if GetSpriteProperty(@"背景音乐",#mediabusy)=1 then --检查声音是否正在播放

CallSprite(@"背景音乐", #videopause)

CallSprite(@"范读", #videopause)

Else

CallSprite(@"背景音乐", #videoplay)

CallSprite(@"范读", #videoplay)

End if

 

B. 双击“音量+”计算图标,加入脚本:

result:=CallSprite(@"背景音乐", #getvolume)

if result<0 then CallSprite(@"背景音乐", #setvolume , result+5)

 

C. 双击“音量-”计算图标,加入脚本:

result:=CallSprite(@"背景音乐", #getvolume)

if result>-100 then CallSprite(@"背景音乐", #setvolume , result-5)

6. 运行课件,背景音乐和课文范读便可以同时播放了,按[S]键声音停止,再按[S]键声音又继续播放,按[+]键音量增加,按[-]键音量减小。