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