學(xué)習(xí)電腦信息用DirectMediaXtra實(shí)現(xiàn)聲音的控制

Page1用DirectMediaXtra實(shí)現(xiàn)聲音的限制恰當(dāng)?shù)剡\(yùn)用聲音效果往往能給課件錦上添花，Authorware中雖然能干脆運(yùn)用一些音頻文件，但有很大的局限性，例如：多個(gè)聲音文件不能同時(shí)播放、不能調(diào)整音量大小、聲音不能自動(dòng)循環(huán)播放等等。因此，以前在制作課件中我常常為限制聲音而傷透腦筋，直到我發(fā)覺(jué)了DirectMediaXtra，這些苦惱才一網(wǎng)打盡。DirectMediaXtra是一個(gè)完整支持外部媒體文件的Xtra插件（可在cce/soft下載），更多的人喜愛(ài)用它來(lái)播放MPG、AVI、MOV等視頻文件，其實(shí)它在音頻播放上的表現(xiàn)也特別精彩，它支持WAV、AIF、MIDI、MP3等多種音頻文件格式。利用它的屬性對(duì)話框或腳本語(yǔ)言可以輕松設(shè)置循環(huán)播放，可以調(diào)整音量大小、播放速度和聲音平衡。每一個(gè)DirectMediaXtra圖標(biāo)占用一個(gè)獨(dú)立聲道，多個(gè)音頻文件同時(shí)播放互不沖突，很簡(jiǎn)單就能實(shí)現(xiàn)多聲道功能，另外還可以為聲音添加提示點(diǎn)，實(shí)現(xiàn)聲畫同步。下面就擷取我課件中的一部分，體會(huì)一下DirectMediaXtra在聲音限制方面的強(qiáng)大功能。這是一個(gè)與圖文同步的配樂(lè)朗讀，課件要求一邊播放背景音樂(lè)，一邊進(jìn)行課文范讀，同時(shí)課文內(nèi)容及相關(guān)畫面依據(jù)朗讀速度同步呈現(xiàn)。實(shí)現(xiàn)步驟如下：1.

在Authorware中打開(kāi)“Insert”菜單，選擇“TabuleiroXtras/DirectMediaXtra”吩咐，在彈出的“DirectMediaXtra”屬性對(duì)話框中，單擊[BrowseFile]按鈕選擇背景音樂(lè)，再依據(jù)須要進(jìn)行若干設(shè)置，假如音樂(lè)較短，要循環(huán)播放，則選中“Loop”，最終按[OK]便可在流程線上插入一新圖標(biāo)，取名為“背景音樂(lè)”。2.

用同樣的方法再加一個(gè)“DirectMediaXtra”圖標(biāo)，將范讀的聲音文件加入，取名為“范讀”。并在屬性對(duì)話框中單擊[播放]按鈕，當(dāng)要朗讀第一段內(nèi)容時(shí)，按[暫停]鍵，單擊[Add]，添加提示點(diǎn)，取名為“第一段”。按[播放]鍵接著。照此方法，依據(jù)段落內(nèi)容為課文范讀添加更多的提示點(diǎn)（如圖1）。

圖13.

插入一交互圖標(biāo)，在其右邊拖入一個(gè)群組圖標(biāo)，將其響應(yīng)類型設(shè)為“Event”，在“Sender”中雙擊“Icon范讀”項(xiàng)，并在“EventName”中雙擊選中“CuePointPassed”，這樣當(dāng)聲音播放至提示點(diǎn)時(shí)便會(huì)觸發(fā)事務(wù)（如圖2）。

圖24.

在群組圖標(biāo)中添加一決策圖標(biāo)，將“Branch”類型設(shè)為“ToCalculatedPath”，在下方文本區(qū)輸入語(yǔ)句“GetSpriteProperty(@"范讀",#mostrecentcuepoint)”，然后拖四個(gè)顯示圖標(biāo)到?jīng)Q策圖標(biāo)的右側(cè)，并將其擦除方式設(shè)為“Don'tErase”，在各個(gè)顯示圖標(biāo)中依據(jù)段落內(nèi)容輸入文字、插入圖片、設(shè)置顯示效果。這樣就能自動(dòng)依據(jù)提示點(diǎn)的先后依次顯示其下的各個(gè)圖標(biāo)內(nèi)容，從而保證音畫同步。5.

為限制聲音，在交互圖標(biāo)后再拖入三個(gè)計(jì)算圖標(biāo)（如圖3），響應(yīng)類型設(shè)為“HotSpot”，其中“stop/play”限制聲音的暫停與播放，其“Key(s)”設(shè)為“s|S”，其他兩個(gè)計(jì)算圖標(biāo)限制背景音樂(lè)的音量，“音量+”中的“Key(s)”設(shè)為“+”，“音量-”中的“Key(s)”設(shè)為“-”。

圖3A.雙擊“stop/play”計(jì)算圖標(biāo)，加入腳本：ifGetSpriteProperty(@"背景音樂(lè)",#mediabusy)=1then--檢查聲音是否正在播放CallSprite(@"背景音樂(lè)",#videopause)CallSprite(@"范讀",#videopause)ElseCallSprite(@"背景音樂(lè)",#videoplay)CallSprite(@"范讀",#videoplay)EndififGetSpriteProperty(@"背景音樂(lè)",#mediabusy)=1then--檢查聲音是否正在播放CallSprite(@"背景音樂(lè)",#videopause)CallSprite(@"范讀",#videopause)ElseCallSprite(@"背景音樂(lè)",#videoplay)CallSprite(@"范讀",#videoplay)Endif

B.雙擊“音量+”計(jì)算圖標(biāo)，加入腳本：result:=CallSprite(@"背景音樂(lè)",#getvolume)ifresult<0thenCallSprite(@"背景音樂(lè)",#setvolume,result+5)

C.雙擊“音量-”計(jì)算圖標(biāo)，加入腳本：result:=CallSprite(@"背景音樂(lè)",#getvolume)ifresult>-100thenCallSpr