基于vb的個性播放器課程設計

1、<p><b>　　目 錄</b></p><p>　　算法分析…………………………4</p><p>　　工作日志…………………………5</p><p>　　關鍵實現(xiàn)技術……………………7</p><p>　　設計小結…………………………14</p><p><b>　　第

2、一章 算法分析</b></p><p>　　個性多媒體播放器，首先是要有基本的播放功能，因此我用的是VB自帶的windowsmediaplayer控件。 </p><p>　　播放器最基本的幾項屬性就是：播放，快進，快退，下一首，上一首，暫停，這些功能可以分別用命令按鈕控件實現(xiàn)，對命令按鈕控件進行函數(shù)調用，達到實現(xiàn)功能目的。</p><p>　　為了體

3、現(xiàn)播放器所謂的個性化，我想在自己的播放器空閑的地方播放FLASH來作為點綴。想要引進FLASH，可以建立一個時鐘控件，讓一組圖片按規(guī)律顯示，這樣可以模擬動態(tài)的東西。</p><p>　　播放器涉及到選定播放曲目的問題，由用電腦其他播放軟件習慣可想，選定播放文件時由一個點擊事件觸發(fā)彈出選擇文件的特定窗口，于是設計一個新的窗體專門作為選擇歌曲使用。</p><p>　　為了讓播放器更加精致，更

4、加實用一點，應該可以選擇多個文件進行順序播放，于是，創(chuàng)建好一個列表框，把自己選定的文件都放在里面，到時候自己要播放的時候，很方便的在里面選取。</p><p><b>　　第二章 工作日志</b></p><p><b>　　第一天：</b></p><p>　　我通過去圖書館查閱資料，掌握了做多媒體播放器的基本步驟。經

5、過思考，我思考了怎么實現(xiàn)自己播放器的基本功能，以及怎么體現(xiàn)個性化，并且在VB環(huán)境周進行初步的布局。</p><p><b>　　第二天：</b></p><p>　　我編輯播放器基本功能的幾個命令按鈕的代碼，如播放，暫停，快進，快退，上一曲，下一曲等。在編輯快進退的時候，我遇到了一些問題，快進分為兩種方式，一種是畫面按幀回放，一種是時間按秒回播。在編輯代碼時無論是哪一

6、種，都比較復雜最后導致錯誤，不過，在進過多次翻閱參考資料和青椒老師之后，解決了這個問題，即：直接調用VB中的打包函數(shù)：windowsmediaplayer1.controls.fastforward。。。。</p><p><b>　　第三天：</b></p><p>　　編輯好了所有基本功能的代碼，實現(xiàn)了一些基本的功能，開始對播放器進行美化布局。其中，對于播放列表的

7、這一功能，由于播放列表現(xiàn)實的是文件的路徑加上文件名，覺得非常的復雜，想要對其進行改良，讓他只能顯示文件名，而隱藏其他沒有必要的路徑。于是我編寫了代碼，發(fā)現(xiàn)在重新編寫的代碼中，由于之前播放功能的播放路徑是直接調用播放列表的文件名的，直接導致了不能播放。后來嘗試了很多方法都沒有成功，后來想到了再建立一個獨立的播放列表，只顯示文件名，而播放路徑則還是之前那個播放列表的全名。但是由于沒有時間按暫時放棄編寫。</p><p&g

8、t;<b>　　第四天：</b></p><p>　　把第三天的想法進行代碼實現(xiàn)后，發(fā)現(xiàn)，下一首，上一首的功能，不能及時反饋到新建立的播放列表二中，當點擊下一首觸發(fā)click事件時，播放下一首歌曲，但是播放列表二中的索引沒有變動…于是繼續(xù)想改良方案，最后我新建立一個時間控件，把播放列表一的索引和播放列表二的索引想關聯(lián)，為了達到看不出反應間斷，把時間控件的interval調整到1，變化速度相當

9、之快。運行成功后，程序基本完結，最后進行簡單的顏色布局搭配。</p><p>　　第三章 關鍵實現(xiàn)技術</p><p><b>　　一、播放</b></p><p>　　Private Sub Command3_Click() '播放</p><p>　　Dim a As Strin

10、g</p><p>　　a = List1.List(List1.ListIndex)</p><p>　　WindowsMediaPlayer1.URL = a</p><p>　　WindowsMediaPlayer1.Controls.play</p><p>　　WindowsMediaPlayer1.Controls.play<

11、;/p><p><b>　　End Sub</b></p><p><b>　　二、暫停</b></p><p>　　Private Sub Command4_Click() '暫停</p><p>　　WindowsMediaPlayer1.Controls.pa

12、use</p><p><b>　　End Sub</b></p><p><b>　　三、上一曲</b></p><p>　　Private Sub Command2_Click() '上一曲</p><p>　　If WindowsMediaPlayer1.UR

13、L = "" Then</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If List2.ListIndex > 0 Then</p><p>　　WindowsMediaPlayer1.Contr

14、ols.pause</p><p>　　WindowsMediaPlayer1.Controls.stop</p><p>　　List1.Selected(List1.ListIndex - 1) = True</p><p>　　List2.Selected(List2.ListIndex - 1) = True</p><p>　　Wi

15、ndowsMediaPlayer1.URL = List1.List(List1.ListIndex)</p><p>　　WindowsMediaPlayer1.Controls.play</p><p><b>　　Else</b></p><p>　　List1.ListIndex = List1.ListCount - 1</p&

16、gt;<p>　　List2.ListIndex = List2.ListCount - 1</p><p>　　WindowsMediaPlayer1.Controls.pause</p><p>　　WindowsMediaPlayer1.Controls.stop</p><p>　　List1.Selected(List1.ListIndex)

17、 = True</p><p>　　List2.Selected(List2.ListIndex) = True</p><p>　　WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)</p><p>　　WindowsMediaPlayer1.Controls.play</p><p>

18、;<b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　四、下一曲</b></p><p>　　Private Sub Command5_Click() ' 下一曲</p><p>　　If Windo

19、wsMediaPlayer1.URL = "" Then</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If List2.ListIndex < List2.ListCount - 1 Then</p>&

20、lt;p>　　WindowsMediaPlayer1.Controls.pause</p><p>　　WindowsMediaPlayer1.Controls.stop</p><p>　　List1.Selected(List1.ListIndex + 1) = True</p><p>　　List2.Selected(List2.ListIndex +

21、 1) = True</p><p>　　WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)</p><p>　　WindowsMediaPlayer1.Controls.play</p><p><b>　　Else</b></p><p>　　List2.Lis

22、tIndex = 0</p><p>　　List1.ListIndex = 0</p><p>　　WindowsMediaPlayer1.Controls.pause</p><p>　　WindowsMediaPlayer1.Controls.stop</p><p>　　List2.Selected(List2.ListIndex)

23、= True</p><p>　　List1.Selected(List1.ListIndex) = True</p><p>　　WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)</p><p>　　WindowsMediaPlayer1.Controls.play</p><p>

24、<b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　五、實現(xiàn)播放列表二中單擊之后播放器以列表一的文件名路徑播放</p><p>　　Private Sub List1_Click()</p><p>　　Dim name As String<

25、;/p><p>　　If Right(Form3.File1.Path, 1) = "\" Then</p><p>　　name = Form3.File1.Path & Form3.File1.FileName</p><p><b>　　Else</b></p><p>　　name = F

26、orm3.File1.Path & "\" & Form3.File1.FileName</p><p><b>　　End If</b></p><p>　　WindowsMediaPlayer1.URL = name</p><p><b>　　End Sub</b></p&g

27、t;<p>　　Private Sub List2_Click()</p><p>　　List1.ListIndex = List2.ListIndex</p><p><b>　　End Sub</b></p><p>　　六、添加文件到播放列表</p><p>　　Private Sub File1_

28、Click()</p><p>　　Dim name As String</p><p>　　If Right(File1.Path, 1) = "\" Then</p><p>　　name = File1.Path & File1.FileName</p><p><b>　　Else</b&g

29、t;</p><p>　　name = File1.Path & "\" & File1.FileName</p><p><b>　　End If</b></p><p>　　Form1.List1.AddItem name</p><p>　　Form1.List2.AddItem

30、 File1.FileName</p><p><b>　　End Sub</b></p><p><b>　　七、動態(tài)圖片實現(xiàn)</b></p><p>　　Private Sub Timer4_Timer()</p><p>　　Static wp As Integer</p>&l

31、t;p>　　Select Case wp</p><p><b>　　Case 0</b></p><p>　　Image1.Picture = LoadPicture("C:\users\靜茶淡湘\desktop\王蒙湘\1.jpg")</p><p>　　wp = wp + 1</p><p&g

32、t;<b>　　Case 1</b></p><p>　　Image1.Picture = LoadPicture("C:\users\靜茶淡湘\desktop\王蒙湘\2.jpg")</p><p><b>　　wp = 2</b></p><p><b>　　Case 2</b>

33、;</p><p>　　Image1.Picture = LoadPicture("C:\users\靜茶淡湘\desktop\王蒙湘\3.jpg")</p><p><b>　　wp = 3</b></p><p><b>　　Case 3</b></p><p>　　Imag

34、e1.Picture = LoadPicture("C:\users\靜茶淡湘\desktop\王蒙湘\4.jpg")</p><p><b>　　wp = 0</b></p><p>　　End Select</p><p><b>　　End Sub</b></p><p>

35、<b>　　附：播放器截圖：</b></p><p><b>　　第四章 設計小結</b></p><p>　　這次vb課程設計我做的是個性多媒體播放器。要求具有播放、暫停、上一曲、下一曲、停止等基本功能。要求很簡單，但做起來真的是不容易。我到圖書館查閱了很多資料，找到了一些制作播放器的實例，看完后，基本了解了制作播放器的基本步驟和方法。最后決

36、定，利用三個窗體來實現(xiàn)整個播放器的制作。</p><p>　　在編程的過程中，遇到了很多問題，比如在編輯快進退的時候，其中快進分為兩種方式，一種是畫面按幀回放，一種是時間按秒回播。在編輯代碼時無論是哪一種，都比較復雜最后導致錯誤，不過，在進過多次翻閱參考資料和青椒老師之后，解決了這個問題，即：直接調用VB中的打包函數(shù)：windowsmediaplayer1.controls.fastforward.再比如，實現(xiàn)下

37、一首，上一首的功能時，不能及時反饋到新建立的播放列表二中，當點擊下一首觸發(fā)click事件時，播放下一首歌曲，但是播放列表二中的索引沒有變化……于是繼續(xù)想改良方案，最后我新建立一個時間控件，把播放列表一的索引和播放列表二的索引相關聯(lián)。為了達到看不出反應間斷，把時間控件的interval調整到1，變化速度相當之快。最后運行成功。</p><p>　　通過這次課程設計，我學到了很多，不僅vb的知識掌握的更加深入，更重要