程式語(yǔ)言(Ⅱ) Visual Basic

1、程式語(yǔ)言() -Visual Basic 6.0第第 11 章章 電腦多媒體的製作與播放電腦多媒體的製作與播放一、電腦動(dòng)畫一、電腦動(dòng)畫動(dòng)畫是將許多連續(xù)的畫面快速播放而產(chǎn)生的視覺效果電腦動(dòng)畫的類型：l利用繪圖功能及計(jì)時(shí)器控制物件，來(lái)產(chǎn)生動(dòng)畫效果 (請(qǐng)見第 10 章)l利用動(dòng)畫控制物件或圖像繪製的方式，來(lái)製作動(dòng)畫效果 (本章)二、播放動(dòng)畫檔案二、播放動(dòng)畫檔案(1)Animation 控制物件只能播放無(wú)聲，且未經(jīng)壓縮或使用 RLE 壓縮的 Avi 檔案複製檔案的動(dòng)畫二、播放動(dòng)畫檔案二、播放動(dòng)畫檔案(2)使用 Animation 控制物件前，須選按專案專案/設(shè)定使用元設(shè)定使用元件件選項(xiàng)，並勾選 Mic

2、rosoft Windows Common Controls-2 6.0 核取方塊，將此控制物件加入工具箱中勾選此核取方塊此即為新增的Animation按鈕二、播放動(dòng)畫檔案二、播放動(dòng)畫檔案(3)Animation控制物件的常用方法：方法說(shuō)明Open開啟AVI動(dòng)畫檔案Play播放AVI動(dòng)畫檔案Stop夠停播放AVI動(dòng)畫檔案Close關(guān)閉AVI動(dòng)畫檔案二、播放動(dòng)畫檔案二、播放動(dòng)畫檔案(4)例：Private Sub Command1_Click( )按播放鈕時(shí) Animation1.Play 開始播放動(dòng)畫End SubPrivate Sub Command2_Click( )按停止鈕時(shí) Anima

3、tion1.Stop 停止播放動(dòng)畫End Sub三、圖像的繪製三、圖像的繪製(1)PaintPicture 是一種繪圖方法，它可依使用著所指定的位置及大小，選取來(lái)源圖片上的某一區(qū)域，然後將其繪製在繪圖區(qū)域中語(yǔ)法：控制物件.PaintPicture Pic, X1, Y1 , Width1 , Height1 , X2 Y2 , Width2 , Height2說(shuō)明：lPic 是指具有 Picture 屬性的控制物件lX1、Y2 及 X2、Y2 分別代表繪製圖像及來(lái)源圖像的起始位置lWidth1、Height1 及 Width2、Height2 則分別代表繪製圖像及來(lái)源圖像的寬度與高度三、圖像的

4、繪製三、圖像的繪製(2)圖像的繪製設(shè)定來(lái)源圖片的選取設(shè)定繪製的寬與高PaintPicture Image1, 2500, 725, 2000, 1800, 450, 100, 1250, 1100繪製的起始位置選取的起始位置選取的寬與高1800(2500,725)(450,100)110012502000Image1的座標(biāo)位置：表單的座標(biāo)位置：Image1四、圖像的縮放四、圖像的縮放(1)方法1-利用 PaintPicture 方法來(lái)設(shè)定 Width1 及 Height1 參數(shù)值l例：Image1控制物件所顯示的來(lái)源圖片PaintPicture所繪製的圖像30003200(2500,725)四

5、、圖像的縮放四、圖像的縮放(2)方法2-利用 Image 控制物件的屬性設(shè)定Private Sub Command1_Click( ) Image1.Stretch = True 設(shè)定Image1內(nèi)的圖片可隨著其大小縮放 Image1.Width = 3000 設(shè)定Image1的寬度 Image1.Height = 3200 設(shè)定Image1的高度End SubImage1Image1.Width=3000Image1.Height=3200五、圖像的移動(dòng)五、圖像的移動(dòng)(1)方法1-利用 PaintPicture 方法，將圖像複製到繪圖區(qū)域的不同位置，以產(chǎn)生圖像移動(dòng)的效果Dim i As In

6、teger 設(shè)定Image控制物件陣列的索引Dim j As Integer 設(shè)定控制移動(dòng)的變數(shù)Private Sub Timer1_Timer( ) 每次向右移動(dòng)200Twips來(lái)繪製圖像 PaintPicture Image1(i).Picture, j * 200, 300 i = (i + 1) Mod 4 以0,1,2,3為一個(gè)循環(huán) j = j + 1 繪製圖像至右邊界時(shí)結(jié)束動(dòng)畫 If j * 200 ScaleWidth Then Exit Sub End Sub移動(dòng)時(shí)會(huì)殘留一部份的圖像及背景顏色五、圖像的移動(dòng)五、圖像的移動(dòng)(2)方法2-設(shè)定 Image 控制物件的 Top 與 L

7、eft 屬性值Dim i As Integer 設(shè)定圖片檔名變數(shù)Dim j As Integer 設(shè)定控制位移的變數(shù)Private Sub Timer1_Timer( ) 依序載入0.bmp, 1.bmp, 2.bmp, 3.bmp的圖片檔 Image1.Picture = LoadPicture(App.Path & & i & .bmp) Image1.Left = j * 200圖片每次向右移動(dòng)200Twips i = (i + 1) Mod 4 以0, 1, 2, 3為一個(gè)循環(huán) 圖片移動(dòng)到右邊界時(shí)結(jié)束動(dòng)畫 j = j + 1 If j * 200 ScaleWi

8、dth Then Exit Sub End Sub移動(dòng)時(shí)不會(huì)產(chǎn)生殘留圖像五、圖像的移動(dòng)五、圖像的移動(dòng)(3)利用 Image 控制物件的 Move 方法Dim i As Integer 設(shè)定圖片檔名變數(shù)Dim j As Integer 設(shè)定控制位移的變數(shù)Private Sub Timer1_Timer( ) 依序載入0.bmp,1.bmp,2.bmp,3.bmp的圖片檔 Image1.Picture = LoadPicture(App.path & & i & .bmp) 圖像每次向右移動(dòng)200Twips Image1.Move j * 200, 300 i = (i +

9、 1) Mod 4以0, 1, 2, 3為一個(gè)循環(huán) 移動(dòng)到右邊界時(shí)結(jié)束動(dòng)畫 If j * 200 ScaleWidth Then Exit Sub j = j + 1End Sub四、圖像的移動(dòng)四、圖像的移動(dòng) (4)移動(dòng)圖像方法移動(dòng)圖像方法移動(dòng)原理與效果移動(dòng)原理與效果PaintPicture繪圖方法連續(xù)繪製圖像在不同位置上以產(chǎn)生移動(dòng)的效果。若不經(jīng)過(guò)清除或特別處理，繪製過(guò)的圖像會(huì)一直殘留在畫面上Image 控制物件的 Top 及 Left 屬性利用Top及Left屬性值來(lái)改變Image控制物件在座標(biāo)上的位置以移動(dòng)圖片。圖片移動(dòng)時(shí)，畫面不遺留移動(dòng)的痕跡Image 控制物件的 Move 方法利用Mo

10、ve方法來(lái)改變Image控制物件在座標(biāo)上的位置以移動(dòng)圖片。圖片移動(dòng)時(shí)，畫面不遺留移動(dòng)的痕跡六、播放影音檔案六、播放影音檔案(1)MMControl 控制物件可用來(lái)播放聲音和影片。但因 MMControl 為外掛控制物件，所以使用前須依下列步驟，加入工具箱中：l選按專案專案/設(shè)定使用元件設(shè)定使用元件選項(xiàng)l由控制項(xiàng)控制項(xiàng)標(biāo)籤中勾選 Microsoft Multimedia Control 6.0 核取方塊MMControl 控制物件可播放的影音檔案類型有 CD 音樂(lè)、MID 音源、WAV 聲音、AVI 影片、VCD影片、VCR 錄影帶、MPEG 影片.等六、播放影音檔案六、播放影音檔案(2)MMC

11、ontrol 控制物件的 DeviceType 屬性可用來(lái)指定影音播放的裝置類型l語(yǔ)法：MMControl 控制物件.DeviceType = “裝置類型“裝置類型設(shè)定值播放的檔案類型cdaudioCD音樂(lè) sequencer Mid音源 waveaudio Wav聲音avivideoAvi影片 videodiscVcd影片 vcr VCR影片 mpegvideo MPEG影片l 例：MMcontrol1.DeviceType=cdaudio六、播放影音檔案六、播放影音檔案(3)MMControl 控制物件的FlieName屬性可用來(lái)設(shè)定所要播放的影音檔案存放路徑l語(yǔ)法：MMControl 控

12、制物件.FlieName = “存放路徑l例：MMControl1. FlieName = “D:Musicwater.wav六、播放影音檔案六、播放影音檔案(4)MMControl 控制物件的Command屬性可用來(lái)設(shè)定影音檔案的播放狀態(tài)l語(yǔ)法：MMControl 控制物件.Command = “命令設(shè)定值”l說(shuō)明：命令設(shè)定值可為 Open(開始)、Play(播放)、Stop(停止)、Close(關(guān)閉) 或 Seek(尋找)l例：MMControl1.Command = Open六、播放影音檔案六、播放影音檔案(5)利用 MMControl 控制物件播放含有聲音及影像的檔案時(shí)，需另佈建一個(gè)用

13、來(lái)顯示影片畫面的控制物件。該控制物件須具有 hWnd 屬性，並搭配 MMControl 的 hWnDisplay 屬性，才能顯示影片畫面l語(yǔ)法：MMControl 控制物件.hWndDisplay = 控制物件.hWndl例：MMControl1.hWndDisplay = Picture1.hWnd七、製作播放資訊七、製作播放資訊(1)設(shè)定時(shí)間格式：l語(yǔ)法：MMControl 控制物件.TimeFormat = 設(shè)定值l說(shuō)明：設(shè)定值可為 010 中任一整數(shù)值取得基本播放資料：lTrack 指定播放第 x 曲lTracks 取得所有歌曲的數(shù)目lPosition 取得目前已播放到的位置lTrackPosition 取得歌曲播放的起始位置lLength 取得所有歌曲的總長(zhǎng)度lTrackLength 取得某一首歌曲的長(zhǎng)度七、製作播放資訊七、製作播放資訊(2)計(jì)算播放資訊：播放單一歌曲所需的時(shí)間分Int(MMControl1.TrackLength/1000/60)秒Int(MMControl1.TrackLength/1000)Mod 60歌曲已播放了多少時(shí)間分Int(MMControl1.Position-MMControl1.TrackPosition)/1000/60)秒Int(MMControl1.Po