1.創建一個新文件playmidi.a6p,選取菜單欄上的[window]--[functions]命令,屏幕上彈出函數調用對話框。在category中選中文件名playmidi.a6p,單擊load按鈕。選取a5wmme文件后,調入以下函數:midiplay(播放)、midiplay(暫停)、midiresum(暫停后恢復播放)、midistop(停止播放)、midiplaying(返回當前midi播放的狀態)。
2.拖一個計算圖標到展示窗中,命名?quot;初始化變量",雙擊打開,輸入變量x:=1。這是為了能讓程序自動檢測midi播放完畢后繼續播放的約定條件。
3.拖一個交互圖標,命名為"midi控制"在彈出的[response type]響應類型對話框中選取[button],雙擊交互圖標打開,引入要演示的課文。
4.在交互圖標后,放入三個計算圖標,依次命名為"暫停"、"繼續"、"停止"。
雙擊"暫停"計算圖標,輸入:
midipause()
x:=0
雙擊"繼續"計算圖標,輸入:
midiresume()
x:=1
雙擊"停止"計算圖標,輸入:
midistop()
quit()
5.再拖一個計算圖標放在"停止"圖標后面,雙擊新圖標上方的響應類型符號,一個小長方形標記,在彈出的對話框中的[type]選取[conditional],按下圖輸入所示。
完畢后按ok按鈕,雙擊該計算圖標,輸入:
midiplay("d://tools//gsls.mid", 100, false)
到這里,一切ok,運行程序。 在顯示課文的同時,在屏幕上出現了三個按按鈕,可任意暫停、繼續和停止midi的播放。不但實現了midi的循環播放,而且還實現了對其任意控制的目的,就象對wav控制一樣,如果你想加入其它功能,例如播放midi中的某一段,只需加入相應的計算圖標和控制函數midiplaysegment即可。
|
新聞熱點
疑難解答