我的媒體播放器ppt課件

《我的媒體播放器ppt課件》由會員分享，可在線閱讀，更多相關《我的媒體播放器ppt課件（36頁珍藏版）》請在裝配圖網上搜索。

第二單元 VB程序設計 第8課 我的媒體播放器,八年級下學期信息技術,1,項目十三 多媒體播放器,項目目標： 本項目設計了一個簡單的多媒體播放器，可以播放各種格式的音頻，實現(xiàn)文件的查詢和播放等功能；在播放音頻的同時還有相應的進度顯示，在窗口的標題中會顯示播放文件的相關信息等。通過本項目的學習要掌握多媒體控件的時候，特殊菜單的制作通用對話框控件的使用等。,項目十三 多媒體播放器,項目主要知識點： 1、通用對話框控件（CommonDialog）的使用 添加通用對話框到工具箱 使用CommonDialog 控件 對話框的屬性設置 2、打開文件的方法 3、多媒體控件的使用 MCI控件 Picture Clip Animation控件 ActiveMovie控件 4、特殊菜單的制作 5、Slider控件的使用 常用屬性設置 控件常用方法ClearSel和GetNumTicks 6、媒體文件的相關屬性 7、程序打包生成exe文件,項目十三 多媒體播放器,項目實施步驟： 閱讀相關基礎知識 界面設計 在窗體上添加菜單項 窗體上添加一個通用對話框程序設計 為窗體添加程序段 為“打開”菜單編寫程序段 編寫其他程序段 項目總結 程序測試，完善功能 程序打包,13.1 第1步：基礎知識,Visual Basic為用戶提供了一組標準的系統(tǒng)對話框，這組對話框是各種應用程序都要用到的，因此稱為通用對話框。它們是：“打開”對話框、“另存為”對話框、“顏色”對話框、“字體”對話框、“打印”對話框以及“幫助”對話框。 通用對話框必須用Common Dialog控件來建立，必須現(xiàn)將該控件添加到工具箱中。Common Dialog 控件屬于ActiveX控件的一個組件，它隨同VB提供給用戶，位于文件“C:\Windows\System\Comdlg32.ocx”中，名稱為“MicroSoft CommonDialog Control 6.0”。把CommonDialogue 添加到工具箱后，就可以像使用其他標準控件一樣為應用程序添加Common Dialog對象了如圖13-1所示。,,圖13-1 CommonDialog 控件,13.1 第1步：基礎知識,1、添加通用對話框到工具箱中采取的方法是： 選擇“工具”下拉菜單中的“部件”選項，彈出“部件對話框。 在對話框的“控件”標簽中的列表框中選擇“Microsoft Common Dialog Control6.0”項目。,單擊“確定”按鈕。如圖13-2所示,圖13-2 添加CommonDialog 控件,13.1 第1步：基礎知識,2、使用CommonDialog 控件 把CommonDialog 控件添加到窗體后，實際上已經把上述的各種標準對話框加入到應用程序中，但是程序運行時是看不見的。當某一時刻需要用到某個對話框時，再通過VB的顯示方法使之顯示在屏幕上。 Common Dialog控件有如下的顯示方法： ShowOpen方法：顯示“打開”對話框 ShowSave方法：顯示“另存為”對話框 ShowColor方法：顯示“顏色”對話框 ShowFont方法：顯示“字體”對話框 ShowPrinter方法：顯示“打印”對話框 ShowHelp方法：顯示Windows幫助對話框 在程序中調用這些顯示方法的格式： 控件名.顯示方法,13.1 第1步：基礎知識,例：CommonDialog1.ShowOpen 顯示“打開”對話框 CommonDialog1.ShowSave 顯示“另存為”對話框 OpenFile(CommonDialog1.Filename) 打開在“打開”對話框中選定的文件。 3、設置對話框的屬性 CommonDialog控件中每個對話框都有自己特有的屬性，與其他控件一樣，這些屬性既可以在屬性窗口中設置，也可以在程序代碼中設置。 通用對話框的Name屬性的缺省名稱為CommonDialogX（X為1，2，3……）。通用對話框共有6種類型，對話框的類型可以通過Action屬性設置，在表13-1中列出了各類對話框的Action屬性值對應的方法。,13.1 第1步：基礎知識,表13-1 通用對話框的方法 在設計階段，通用對話框以圖標的形式顯示，程序運行后消失。 對于Common Dialog 控件，VB還有一個“屬性頁”對話框，也可以在“屬性頁”對話框中設置標準對話框的屬性值。,13.1 第1步：基礎知識,打開“屬性頁”對話框的方法： 把CommonDialog 控件添加到窗體上 打開“屬性”窗口 在“屬性”窗口中選擇“（自定義）”，再單擊右邊的“…”按鈕，彈出“屬性頁”對話框如圖13-3所示,圖13-3 通用對話框的屬性,13.1.2 多媒體控件,Visual Basic提供了幾種用于多媒體開發(fā)的控件，主要包括以下幾種： MCI控件 Multimedia MCI多媒體控件通常也叫MMControl多媒體控件。它用于管理多媒體控制接口（MCI）設備，這些設備包括聲卡、MIDI發(fā)生器、CD-ROM驅動器、音頻播放器和視頻播放器。MCI控件具有 一組執(zhí)行MCI命令的按鈕。包括播放、暫停、前進、后退、停止、錄制和彈出等。如下圖所示：,圖13-4 MCI控件的外形,13.1.2 多媒體控件,MCI控件的常用屬性： ButtonEnabled屬性：決定是否啟用或者禁用空間中的某個按鈕，禁用的按鈕呈現(xiàn)灰色。當其值為True時，則啟用指定的按鈕；當其值為False時，不啟用指定的按鈕。 ButtonVisible屬性：該屬性決定是否顯示空間中的某個按鈕。當其值為True時顯示指定的按鈕；當其值為False時，則隱藏指定的按鈕。 DeviceType屬性：該屬性用來指定要打開的MCI設備的類型。MCI控件可以播放的媒體類型取決于所使用的計算機中所具有的設備，在使用該控件前，需要先為其指定所使用的MCI設備類型。,13.1.2 多媒體控件,FileName屬性：該屬性用于指定要播放的多媒體文件，其值為包含文件目錄和文件名稱的字符串。 Orientation屬性：決定了MMControl控件中的按鈕是水平還是垂直排列。當其值為0時，按鈕水平排列；其值為1時，按鈕垂直排列。 Wait屬性：決定MCI控件是否要等到下一條MCI菜單命令完成，才能將控件返回應用程序。再設計時，該控件不可用。 Picture Clip（圖片剪貼控件） Picture Clip控件用于存儲快速顯示的位圖文件，在建立動畫或需要存儲大量的位圖文件時經常使用。,13.1.2 多媒體控件,Animation控件 Animation控件也稱為無聲控件，用該控件可以播放無聲動畫文件（無聲的AVI文件），AVI動畫由若干幀位圖組成。Animation控件使用簡單，功能也較為單調，且不能播放有聲音的AVI文件，只能播放未壓縮的或已用RLE（行程編碼）壓縮的AVI文件，因此它只用于簡單的動畫演示。 Animation控件除了一些通用控件屬性、事件和方法外，還具有自身的一些特性： AutoPlay 屬性：將在AVI文件加載到控件時，返回或者設置一個邏輯值，該值確定Animation控件是否開始播放AVI文件。 BackSyle屬性：返回或者設置一個值，該值決定Animation控件是在透明的背景上還是在動畫剪輯中所指定的背景顏色上繪制動畫。在運行時為只讀，該屬性值為0時，表示透明；設置該屬性為1時，表示不透明。 Center屬性：決定動畫是否居中。當該屬性設置True（默認）時，會根據(jù)圖像的大小，在控件中心顯示動畫。,13.1.2 多媒體控件,ActiveMovie控件 ActiveMovie控件可以播放MPEG、AVI、MIDI和WAV等多媒體文件，該控件是MCI控件的增強版本。而且該控件還自帶時間數(shù)字顯示和進度控制，并可以隨時改變播放的起點。 5、多媒體API函數(shù) 在Windows中有一個動態(tài)鏈接庫文件winmm.dll，該文件包含了100多個 具有多媒體處理功能的API函數(shù)，這些函數(shù)大多為低級的程序接口，例如，以wave開頭的函數(shù)用來處理語音，以midi開頭的函數(shù)用來處理合成音樂等。 6、MCI控件的方法介紹： Command屬性，參加下表,13.1.2 多媒體控件,表13-2 MCI控件的屬性,13.1.3 Slider控件,滑塊控件(Slider)是由一個滑塊和一個帶有刻度的標尺組成的，用戶既可以用鼠標拖動滑塊，也可以通過按“方向鍵”或“PageUp”和“PageDown”鍵來移動滑塊，此外單擊滑塊的任意一側也可以移動滑塊。標尺上的刻度反映了滑塊的可移動范圍和當前位置。當滑塊移動時，系統(tǒng)會自動顯示滑塊的當前值，滑塊既可以水平設置，也可以垂直設置。 在“部件”對話框中，選擇“Microsoft Windows Common Control6.0”選項，可以將滑塊控件添加到工具箱中。其圖標如圖13-4所示。,圖13-4 滑塊控件外觀圖,13.1.3 Slider控件,滑塊控件的常用屬性 1、BorderStyle屬性 該屬性設置或返回該控件的邊界樣式。0為無單線邊框；1為有單線邊框。 2、Max屬性和Min屬性 該屬性設置或返回該控件的最大值和最小值。 3、Orientation屬性 該屬性決定了該控件是水平添加還是垂直添加，0為水平，1為垂直。 4、TickFrequency屬性 該屬性返回或設置該控件刻度標記的頻率，此頻率與其范圍有關。例如，如果范圍為 100，而 TickFrequency 屬性設置為 2，則在范圍中每隔兩個增量設置一個刻度。,13.1.3 Slider控件,5、TickStyle屬性 該屬性返回或設置該控件上顯示的刻度標記的樣式。 6、SmallChange和LargeChange屬性 該屬性決定用戶操作滑塊控件時滑塊移動的刻度數(shù)量。 SmallChange屬性表示用戶按下左、右光標鍵時滑塊移動了多少個刻度，默認為1。LargeChange屬性表示用戶按下〈PageUp〉鍵〈PageDown〉鍵，或用鼠標單擊滑塊兩側時，滑塊移動了多少個刻度，默認為5。 7、SelectRange屬性、SelStart屬性和SelLength屬性 SelectRange屬性決定滑塊能否有一個可選擇的范圍，默認為False。 SelStart屬性決定選擇范圍的起始數(shù)值。 SelLength屬性設定滑塊選擇范圍的長度。 只有SelectRange屬性為True時，才可以通過SelStart屬性和SelLength屬性在滑塊中選擇范圍。,13.1.3 Slider控件,8、TextPosition屬性 該屬性返回或設置一個值，用來確定顯示文本相對于對象的位置。 0表示在滑塊的正上方或左邊顯示滑塊當前值。 1表示在滑塊的正下方或右邊。 9、Value屬性 該屬性設置或返回滑塊的當前值。 10、ToolTipText屬性 該屬性設置和返回鼠標在控件上暫停時顯示的提示文本。 滑塊控件常用事件有Click事件、Change和Scroll事件。 Click事件是鼠標單擊事件。 Scroll事件是在拖動滑塊使其滾動時發(fā)生的，且Scroll事件發(fā)生在 Click 事件之前。 Chang事件是在滑塊位置改變時觸發(fā)的。,13.1.3 Slider控件,滑塊控件的常用方法 滑塊控件常用方法有ClearSel和GetNumTicks。 (1)ClearSel方法清除滑塊控件的當前選擇，此方法將 SelStart 屬性設置為 Value 屬性值，并將SelLength 屬性設置為0。 (2)GetNumTicks方法設置Slider控件的Min和Max屬性之間的刻度數(shù)目,13.2 第2步：界面設計,13.2.1 任務一：在窗體上添加菜單項 在窗體上添加菜單項：如表13-3所示 表13-3 項目的菜單項,13.2 第2步：界面設計,設計好的菜單編輯器如下圖所示： 圖13-5 設計好的菜單編輯器,13.2.1 任務二：窗體上添加一個通用對話框,窗體上添加一個通用對話框（CommonDialog），添加方法： “工程”→“部件” →“控件” →“MicroSoft Common Dialog Control 6.0” 任務三：在窗體上添加一個Slider控件，添加方法： “工程”→“部件” →“控件” →“MicroSoft Windows Common Control 6.0” 任務四：在窗體上添加MCI控件，添加方法： “工程”→“部件” →“控件” →“MicroSoft Multimedia Control 6.0 任務五：在窗體上添加一個Timer控件，一個PictureBox控件并添加一幅圖片（任意選擇）,13.2.1 任務二：窗體上添加一個通用對話框,設計完畢界面如圖13-6所示：,圖13-6 項目界面,13.3 第3步：程序設計,13.3.1 任務一：為窗體添加程序段： 為窗體添加如下程序段： Private Sub Form_Load() Timer1.Enabled = False Me.Timer1.Interval = 100 '規(guī)定顯示輸出的窗口為默認窗口 Me.MMControl1.hWndDisplay = 0 '為對話框設置默認的文件擴展名 Me.CommonDialog1.DefaultExt = “所有文件|*.*“ '設置對話框的類型列表框中所顯示的文件類型過濾器 Me.CommonDialog1.Filter = “所有文件(*.*)|*.*|Windows視頻(*.avi)|*.avi|CD音頻(*.wav)|*.wav“ End Sub,13.3.2 任務二：為“打開”菜單編寫程序段,為“打開”菜單編寫如下程序段 Private Sub dakai_Click() '打開“打開文件“對話框 Me.CommonDialog1.ShowOpen 'MCI控件讀取打開文件 Me.MMControl1.FileName = Me.CommonDialog1.FileName '如沒有打開文件就退出 If Me.MMControl1.FileName = ““ Then Exit Sub Else,13.3.2 任務二：為“打開”菜單編寫程序段,'打開MCI文件 Me.MMControl1.Command = “open“ Me.Timer1.Enabled = True '設置Slider控件的最大和最小值 Me.Slider1.Max = Me.MMControl1.Length Me.Slider1.Min = 0 Me.Slider1.LargeChange = Me.MMControl1.Length / 5 Me.Slider1.SmallChange = Me.MMControl1.Length / 10 End If Me.Caption = “已打開:“ & CommonDialog1.FileName bofang.Enabled = True zanting.Enabled = True tingzhi.Enabled = True End Sub,13.3.3 任務三：編寫其他程序段,其他程序段如下 “播放”菜單 Private Sub bofang_Click() MMControl1.Command = “play“ Me.Caption = “正在播放:“ & CommonDialog1.FileName End Sub “關于”菜單 Private Sub guanyu_Click() MsgBox “CD Audio Player 1.0“, vbOKOnly, “關于“ End Sub Timer控件 Private Sub Timer1_Timer() Slider1.Value = MMControl1.Position End Sub,13.3.3 任務三：編寫其他程序段,“停止”菜單 Private Sub tingzhi_Click() MMControl1.Command = “close“ Timer1.Enabled = False Slider1.Value = 1 Me.Caption = “CD播放器“ End Sub “退出”菜單 Private Sub tuichu_Click() End End Sub “暫停”菜單 Private Sub zanting_Click() MMControl1.Command = “pause“ Me.Caption = “暫停播放“ & CommonDialog1.FileName End Sub,13.3.3 任務三：編寫其他程序段,程序運行結果如下圖13-7所示：,圖13-7 項目的運行圖,13.4 第4步：項目總結,MCI控件播放文件的方法 菜單項的制作 Slider控件的使用 媒體文件的相關屬性,13.5 第5步：程序測試，完善功能。,待完善功能包括把擺線的形狀設計的更多一些，不同的擺線設計不同的顏色和線型以及正余弦函數(shù)顯示的不同等。,13.6 第6步：程序打包,程序打包，生成可執(zhí)行文件EXE 單擊【文件】菜單下的生成“多媒體播放器.exe”，選擇適當?shù)奈恢帽４嫔傻膃xe文件，單擊“確定”。 當需要再次打開的時候，找到“多媒體播放器.exe”，雙擊運行播放各種聲音文件。 項目總結： 通用對話框的建立方法：通過“工具”菜單添加控件Microsoft CommonDialog Control6.0 各種多媒體控件的用途：MCI控件，Picture Clip控件，Picture Clip控件，Animation控件，ActiveMovie控件，MCI控件等各個控件的適用情況以及用法 Slider控件常用屬性，change事件以及常用方法ClearSel與GetNumTicks的作用,操作練習,操作練習 把該CD播放器進行功能改進，使其成為視頻播放器。 復習思考： 填空題 通用對話框必須用 控件來建立，必須現(xiàn)將該控件添加到工具箱中。 MCI控件具有 一組執(zhí)行MCI命令的按鈕。包括 、 、 、 、 、 、 、 等 。 Common Dialog 控件屬于 控件的一個組件，Common Dialog控件有如下的顯示方法：ShowOpen方法：顯示 對話框；ShowFont方法：顯示 對話框；ShowPrinter方法：顯示 對話框。 控件也稱為無聲控件，用該控件可以播放無聲動畫文件。 控件可以播放MPEG、AVI、MIDI和WAV等多媒體文件，該控件是MCI控件的增強版本。 控件是由一個滑塊和一個帶有刻度的標尺組成的，用戶既可以用鼠標拖動滑塊，也可以通過按“方向鍵”或 和 鍵來移動滑塊，此外單擊滑塊的任意一側也可以移動滑塊。 二、思考題 1：如何讓Slider控件與播放的文件進度保持一致？ 2：如何使用CommonDialog控件的文件過濾器功能？,李振華 相邸鎮(zhèn)初級中學 2013-6-6,