程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 制作自己的MP3播放器

制作自己的MP3播放器

編輯:VB綜合教程
我們選擇一個名為MP3PLAY的控件,它是由德國DialogDedien公司編寫設計的,我們可以選用自己熟悉的語言來對它進行控制,這裡我們使用VB。
  
  首先,看看和這個控件有關的一些東西,比如:控件的屬性、事件、方法。
  
  屬性:(按字母的順序排列)
  
  BitRate,Mp3流的比特率。ChannelMode,用於規定聲道的工作模式,若值為0,則為立體聲;為1,則是左聲道;2為右聲道;3為單聲道。FrameCount,已打開的MP3流的總幀數。FrameNotifyCount,有這樣的功能:播放指定的幀數以後,控件自動向我們的客戶程序發出一個消息,而我們的程序就可以通過這個消息來進行一些處理,比如在顯示器上進行一些提示等等。HasChecksuns,返回校驗信息。IsCopyrighted,返回版權信息。IsOriginal,返回復制信息。Layer,MP3流所采用的編碼層次。TotalTime,以毫秒為單位計算的回放的總時間。MsPerFrame,以毫秒為單位計算的每幀占用的時間。SampleFrequency,采樣的速率。
  
  可寫的屬性:FrameNotifyCount、ChannelMode。
  
  可讀的屬性:所有的。
  
  事件:
  
  ActFrame,每播放由FrameNotifyCount指定的幀數以後就產生一次該事件,並在參數中給出了當前播放的幀號。AboutBox(),顯示關於對話框。Authorize(Name,Password),在該控件注冊以後,會得到一個注冊號,否則,這個控件就是未經合法授權的,則只能播放MP3文件的前30秒,在注冊以後,該方法會將授權號輸入給控件,如果授權號與用戶名合法,則控件返回0,否則返回5。Close(),關閉MP3文件。GetVolumeLeft()、GetVolumeRight(),返回左右聲道的音量的大小,值的范圍是0至65536。GetVolumeLeftP()、GetVolumeRightP(),以百分比的形式返回左右聲道的音量的大小。Open(InputFile,OutputFile),打開InputFile指定的MP3文件,以WAV的形式寫入OutputFile指定的WAV文件,如果OutputFile為空的話,則MP3解碼將直接從聲卡播放出來。Play(),開始播放已打開的MP3文件。Pause(),暫停播放,再次調用時恢復。SetVolume()、SetVolumeP(),設置系統播放時的音量。SetErrorMode(Errmode),設置錯誤報告模式,Errmode為0時表示在各個方法調用結束直接返回錯誤代碼,為1時表示采用標准的OLE異常處理方式。stop(),停止播放。Seek(Frame),跳到指定的幀數。
  
  好了,下來看看原代碼吧:
  
  PrivateSubCommand1_Click()
  
  Text1.Visible=False
  
  a=Mp3Play1.Open(″c:love.mp3″,″″)
  
  Mp3Play1.Play
  
  EndSub
  
  PrivateSubCommand2_Click()
  
  Mp3Play1.Close
  
  End
  
  EndSub
  
  在這裡,有兩個命令按鈕,一個名為“播放”,另一個名為“結束”,代碼如上。另外,這個程序僅僅是一個例子,還有許多需要改進的地方,諸如界面、功能等等許多東西,這裡就不多說了。相信這個例程和上面對控件的介紹已經可以實現許多功能強大的播放器了,是不是?->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved