程式語言(Ⅱ) Visual Basic

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

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

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

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

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

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

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

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

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

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

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

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

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