My MediaPlayer

Thit k chng trnh duyt file m thanh
bng Visual Basic
(S dng MediaPlayer 6.x ca Windows)
Xem bai viet bang font Unicode

thdang@tlnet.com.vn

MediaPlayer ca Windows t version 6.x tr i c th player c rt nhiu dng thc tp tin Multimedia khc nhau nh: .avi, .asf, .asx, .rmi, .wav ; .ra, .ram, .rm, .rmm ; .mpg, .mpeg, .m1v, .mp2, .mpa, .mpe ; .mid, .rmi ; .qt, .aif, .aifc, .aiff, .mov ; .au, .snd ... Cht lng cng c ci thin rt r rt so vi cc phin bn trc.

Nu bn ang s dng Windows 98 th MediaPlayer  sn sng, nu dng Windows 95, 97 bn buc phi ci t b sung  ln i MediaPlayer ca mnh. Bn c th tm b nng cp trn cc CDROM phn mm hay nm chung trong b Internet Explorer 4.01 SP2.

Cc file multimedia hin ny trn ngp trn Internet, CDROM, rt nhiu. c bit l MP3 & Midi, 2 loi file ny rt thnh hnh v ang c a chung.

Ci g nhiu cng gy nn  tng (ni dng hn l sinh tt). Mc d ch cn double click ln file Mp3 hay Midi trong mt trnh qun l file l c th Play c mt cch d dng nh MediaPlayer ca Windows nhng ci g ca ring mnh mi khoi.

Chnh v vy trong bi vit ny ti xin mn php hng dn cc bn t thit k mt MediaPlayer rt tin dng v  dnh lm ca ring. Tuy nhin ni ca ring khng phi l t lm ht m chng ta phi dng mt bn sao ca MediaPlayer trong chng trnh.

Khi qut v chng trnh

Chng ta s thit k chong trnh c giao din nh sau:

u tin ngi dngi chn  a, th mc c cha cc file Multimedia (th d l file Midi). K n nhn nt Play hoc double click trn tn file cn pht  nghe nhc.

Ngoi ra cn c cc nt Help, Author, Exit

Pha di l mt MediaPlayer c nhng vo chng trnh, c th iu chnh cc chc nng nh mt chng trnh ring bit (bn c th right click  m menu tt quen thuc nh khi dng MediaPlayer),  cui ca ca s c dng thng bo tn file & ng dn ang Play.

Cc xc lp trong hp thoi Options ca MediaPlayer

Pha di ca hp chn th mc c mt Text box dng  lc file. Cc loi file ny ngn cch bi du chm phy ";". Th du nh bn mun lc cc file MP3 & MIDI th g vo: *.mp3;*.mid

Cng lu  thm l: nu nh trong hp lit k tn file khng c file no, th nt Play b v hiu ho (Enabled=False). Ch khi no c file nt Play mi c tc dng.

Thit k giao din

Bn hy khi ng Visual Basic v bt tay vo vic to dng cho ng dng ca mnh. Cch b tr cc Control trn form ty theo  mi ngi, ring ti, ti trnh by nh sau:

Cc thuc tnh & Caption ca cc Control trong chng trnh:

FORM

Form1.caption = "MediaPlayer - Browser"

Form1.BorderStyle = 1-Fixed Single

Form1.Minbutton=True

TEXTBOX/LABELBOX

Text1.text="*.mid;*.mp3"

Label1.caption=""

COMMAND BUTTON

cmdPlay.caption="&Play"

cmdPlay.enabled=False

cmdHelp.caption="&Help"

cmdAuthor.caption="&Author"

cmdExit.caption="&Exit"

Trn thanh Toolbox ca Visual Basic khng c i tng MediaPlayer. Bn phi dng mt Custom Control  thm i tng  vo.

Nhn CTRL - T. Trong hp thoi Components chn Windows MediaPlayer (thng  cui danh sch), Click nt OK

i tng MediaPlayer s c thm vo Toolbox, vic cn li, ch cn v n ln form, t  v tr thch hp (n c tn mc nhin l MediaPlayer1)

Vit Code

u tin bn cn cho b 3 control: Drive1, Dir1, File1 hot ng. Hy g on Code sau y  cho chng "hiu nhau"

Private Sub Dir1_Change()

File1.Path = Dir1.Path

If File1.ListCount = 0 Then
'Kim tra xem c file no trong listbox File1 cha

cmdPlay.Enabled = False
'Nu cha c th v hiu nt Play

Else

cmdPlay.Enabled = True
'Nu c ri th cho hiu lc nt Play

End If

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Double click ln nt Play v vit

Private Sub Command1_Click()

MediaPlayer1.filename = Dir1.Path & "\" _
& File1.List(File1.ListIndex)

Label1.Caption = MediaPlayer1.filename

End Sub

Nu thuc tnh AutoStart ca MediaPlayer c gn bng True. MediaPlayer s t ng Play nu bn truyn cho thuc tnh FileName ca n mt chui l ng dn n file cn Play. Khi thuc tnh FileName l rng, n s ngng.

 on Code trn ti  ghp ni cc thuc tnh ca Drive1, Dir1 & File1  ch ra file cn Play. on code s gp li khi cc file cn Play nm ngoi th mc gc, bn hy t hon chnh ly bng hm IIF() hay cu lnh IF

Dng th 2 dng  hin th ng dn file ang Play trong Labelbox  cui form.

Nu mun khi ngi dng Double Click ln tn file trong danh sch file th MediaPlayer s Play file , bn ch cn lm nh sau:

Private Sub File1_DblClick()

cmdPlay_Click

End Sub

 kh nng lc (Pattern) ca File1 hot ng theo ni dung trong Textbox (Text1). Bn cn gn cc chui trong Textbox do ngi dng g vo mi khi c s thay i (thuc tnh Change ca Textbox).

Private Sub Text1_Change()

File1.Pattern = Trim(Text1)

End Sub

ng thi lc chng trnh khi ng bn cng phi gn ni dung trong Textbox cho thuc tnh Pattern ca File1

Private Sub Form_Load()

Text1_Change

End Sub

MediaPlayer cn c mt thuc tnh tn l PlayCount - S ln pht li mt file nhc, bn hy gn cho n mt s thch hp trong khi thit k chng trnh.

Kh nng ca MediaPlayer cn ty thuc vo MediaPlayer ang s dng trong Windows ca bn.

Vy l xong, mt chng trnh dut file m thanh, tht l qu n gin phi khng bn :-)

Thay li kt

By gi bn c th dch ra file exe, em tng cho bn b "lm k nim". Nh chp thm cc file cn thit cho chng trnh nh. MSDXM.OCX l file cha Custom Control MediaPlayer  s dng trong chng trnh. Hy nn li cho chng tht mi nhon trc khi chp ra a mm hay gi km theo E-mail.

Trn y ch l mt chng trnh rt n gin, nhng tnh nng c n th ng khm phc phi khng bn. Cn li vi chi tit khc bn c th t mnh lm ly theo  thch. Bn c th thm vi tnh nng na cho chng trnh tr nn a dng, th d nh: Play cc file Video, t ng Play mt lot cc file...

Chc bn thnh cng v gp tht nhiu may mn trong nm mi ny.

Thin ng, thdang@tlnet.cm.vn
thang hai 03, 2002 07:34:58 CH

PcLeHoan 1996 - 2002
Mirror : http://www.pclehoan.com
Mirror : http://www.lehoanpc.net
Mirror : http://www.ktlehoan.com