多媒體計算機技術原理

1、多媒體計算機技術原理實驗指導書陳琦信息學院計算機實驗室200310音頻播放器設計文檔一 實驗目的：多媒體計算機技術原理是多媒體數(shù)據(jù)的壓縮編碼技術。多媒體系統(tǒng)是硬件和軟件組成的，利用多媒體技術可制作多媒體節(jié)目、超文本和超媒體系統(tǒng)，在許多領域均發(fā)揮其作用。本實驗制作音頻軟處理器，利用多媒體控件，在計算機上實現(xiàn)聲音的播放。二 實驗原理：1 總體設計由于Visual Basic界面簡潔，功能強大但操作易上手，所以本程序選用Visual Basic 6.0來制作。本音頻播放器實現(xiàn)了播放所需要的基本功能，如同一部放音機，可以將存儲在計算機中avi、wave、midi格式的聲音文件播放出來，除了直接播放聲音

2、以外，還可以進行循環(huán)播放。 菜單介紹 文件菜單打開 Open退出 Exit 幫助菜單關于 About 工具按鈕介紹 搜索到開頭（把聲音文件倒到它的開始位置） 搜索到結尾（把聲音文件倒到它的結束位置） 播放（播放當前的聲音文件） 暫停（暫停當前的聲音文件） 停止（停止播放） 滑動條（表示聲音播放的進程） 文本框（顯示聲音文件的路徑）2 詳細設計 構造用戶界面 首先，用菜單編輯器編輯菜單，內容如下：標 題名 稱文件mnufile打開mnuopen退出mnurun幫助mnuhelp關于mnuabout 其次，在界面上添加MMcontrol、Slider、CommonDialog、Label、Chec

3、kBox控件，合理安排、布局，使之美觀。分別設置各控件的name、height、left、top、width屬性。如圖所示：最后，編寫程序代碼。3 關鍵技術本程序關鍵技術在MMcontrol （Multimedia MCI 控件）上，它是管理媒體控制接口 (MCI) 設備上的多媒體文件的記錄與回放。從概念上說，這種控件就是一組按鈕，它被用來向諸如聲卡、MIDI 序列發(fā)生器、CD-ROM 驅動器、視頻 CD 播放器和視頻磁帶記錄器及播放器等設備發(fā)出 MCI 命令。MCI 控件還支持 Windows (*.avi) 視頻文件的回放。其上的按鈕被分別定義為 Prev、 Next、 Play、 Pau

4、se、 Back、 Step、 Stop、 Record 和 Eject，本程序只采用Prev、 Play、 Pause、 Stop這幾個按鈕。Prev的代碼如下： If MMControl.Position = MMControl.Length Then MMControl.Command = "prev" End Ifplay的代碼如下：Private Sub MMControl_PlayClick(Cancel As Integer) MMControl.Command = "play"End SubStop的代碼如下：Private Sub MM

5、Control_StopClick(Cancel As Integer) MMControl.Command = "stop"Slider1.Value = 0End SubCommonDialog的代碼如下： CommonDialog1.FileName = "" CommonDialog1.Filter = "(*.midi)|*.mid|(*.wav)|*.wav|(*.avi)|*.avi" CommonDialog1.FilterIndex = 1 CommonDialog1.DialogTitle = "打開媒體

6、文件" CommonDialog1.Action = 1 MMControl.Command = "close" Label1.Caption = CommonDialog1.FileName If CommonDialog1.FileName = "" Then temp = MsgBox("沒有文件被選擇", 37, "檢查") ElseIf CommonDialog1.FilterIndex = 1 Then MMControl.DeviceType = "sequencer"

7、MMControl.TimeFormat = 1 MMControl.FileName = CommonDialog1.FileName MMControl.Command = "open" Slider1.Min = 0 Slider1.Max = MMControl.Length ElseIf CommonDialog1.FilterIndex = 2 Then MMControl.DeviceType = "waveaudio" MMControl.FileName = CommonDialog1.FileName MMControl.Comman

8、d = "open" Slider1.Min = 0 Slider1.Max = MMControl.Length ElseIf CommonDialog1.FilterIndex = 3 Then MMControl.DeviceType = "avivideo" MMControl.TimeFormat = 3 MMControl.FileName = CommonDialog1.FileName MMControl.Command = "open" Slider1.Min = 0 Slider1.Max = MMControl.

9、LengthEnd If4 操作說明a 雙擊play圖標，出現(xiàn)如下畫面：b 點擊文件打開，畫面所示：c 選擇文件類型，選擇一個聲音文件，畫面如圖：d 點擊 按鈕，開始播放，如圖所示：e 點擊 可暫停播放，點擊 可停止播放，當播放完畢時點擊 可重放。F 點擊幫助關于，畫面如下：三、實驗儀器：486、586計算機、聲卡、音箱、麥克等。四、實驗內容及步驟：程序清單Private Sub check1_Click() If check1.Value = 1 Then MMControl.Command = "PLAY" End IfEnd SubPrivate Sub Form_L

10、oad() Me.Image1.Picture = LoadPicture(App.Path + "qq.jpg")End SubPrivate Sub Form_Unload(Cancel As Integer) MMControl.Command = "stop" MMControl.Command = "close"End SubPrivate Sub MMControl_PlayClick(Cancel As Integer) MMControl.Command = "play"End SubPrivate

11、 Sub MMControl_StatusUpdate() Select Case CommonDialog1.FilterIndex Case 1 Slider1.Value = MMControl.Position Case 2 Slider1.Value = MMControl.Position Case 3 Slider1.Value = MMControl.Position End Select If MMControl.Position = MMControl.Length Then MMControl.Command = "prev" End If If Sl

12、ider1.Value = MMControl.Length Then MMControl.Command = "stop" Slider1.Value = 0 End IfEnd SubPrivate Sub MMControl_StopClick(Cancel As Integer) MMControl.Command = "stop" Slider1.Value = 0End SubPrivate Sub mnuabout_Click() Dim temp As Integer temp = MsgBox("音頻播放器V1.0 孫婕 99

13、041242", vbOKOnly, "help")End SubPrivate Sub mnuexit_Click() MMControl.Command = "stop" MMControl.Command = "close" EndEnd SubPrivate Sub mnuopen_Click() Dim temp As Integer Dim stringtext As String Dim midx, midy As Double CommonDialog1.FileName = "" Com

14、monDialog1.Filter = "(*.midi)|*.mid|(*.wav)|*.wav|(*.avi)|*.avi" CommonDialog1.FilterIndex = 1 CommonDialog1.DialogTitle = "打開媒體文件" CommonDialog1.Action = 1 MMControl.Command = "close" Label1.Caption = CommonDialog1.FileName If CommonDialog1.FileName = "" Then

15、 temp = MsgBox("沒有文件被選擇", 37, "檢查") ElseIf CommonDialog1.FilterIndex = 1 Then MMControl.DeviceType = "sequencer" MMControl.TimeFormat = 1 MMControl.FileName = CommonDialog1.FileName MMControl.Command = "open" Slider1.Min = 0 Slider1.Max = MMControl.Length Else

16、If CommonDialog1.FilterIndex = 2 Then MMControl.DeviceType = "waveaudio" MMControl.FileName = CommonDialog1.FileName MMControl.Command = "open" Slider1.Min = 0 Slider1.Max = MMControl.Length ElseIf CommonDialog1.FilterIndex = 3 Then MMControl.DeviceType = "avivideo" MMControl.TimeFormat = 3 MMControl.FileName = CommonDialog1.FileName MMControl.Command = "open" Slider1.Min = 0 Slider1.Max = MMControl.Length End IfEnd SubPrivate Sub Slid