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

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

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

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

圖13.

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

圖24.

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

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

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

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

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