Từng bước lập trình Media Player qua từng loại ngôn ngữ

[onlysoft]

Đến đây thì các bạn có thể chuẩn bị tốt cho các bài về sau rồi đấy, các bài trước là các bước chuẩn bị cho các bài chính sau này thôi
nly đưa bài "Sử dụng Common Dialog" lên vì có những bạn mới học nên chưa biết (từ căn bản đến nâng cao) mà
Còn đây là bài hướng dẩn nè :

[hieutq]

Tiếp đi bạn ơi, chủ đề hay, rất hữu ích nhất là đối với nhưng người mới vào nghề như tớ.
Cám ơn nhiều và chờ chủ đề tiếp của bạn

[sieuquayxixon]

Lâu quá không thấy anh post bài lên tiếp, chắc là a chưa thi xong rồi.Khi nào thi xong anh nhớ post bù đó nha.

[machao_mengqi]

Hay quá anh ơi! thằng bạn em nó làm chương trình nghe nhạc, em nghe thấy hay hay giờ lên gặp cái anh Post thật là tuyệt!

cám ơn anh nhiều lắm ( còn nữa hong anh post típ đi )

[onlysoft]

Xin lỗi mọi người, mấy ngày nay nly bận quá, đến nỗi không có thời gian viết blog nữa , nhưng củng cố gắng viết tiếp đây !

Bài 3 : Sử dụng OCX msdxm
Các bạn đã lợi dụng được Window Media Player để nghe nhạc, lần này thì khác .^^. các bạn sẻ sử dụng một control có tên là Media Player (msdxm.ocx)
I - Giới thiệu :
Media Player (mdp) là một control của Microsoft được dùng để nghe các định dạng nhạc thông dụng, control này luôn có sẳn nếu bạn dùng Window. mdp (Media Player) nằm trong thư mục System32 có tên là msdxm.ocx có hình dạng như sau :

mdp cho phép chúng ta điều chỉnh vị trí đang play, volume và balance vv...
Các thuộc tính quan trọng của mdp :
- ShowControls : Ẩn hiện thanh điều khiển của Media Player
- EnableContextMenu : Cho hay không cho popup menu mặc định của Media Player
- ClickToPlay : Cho hay không chức năng click vào Media Player thì sẻ Play\Pause
- Volume : Điều chỉnh âm lượng
- Balance : Điều chỉnh loa

[onlysoft]

II - Sử dụng :
I - VB6
A - Thiết kế :
Cách đưa Common Dialog vào chương trình : Chọn menu Peoject\Components... hoặc nhấn tổ hợp phím Ctrl+T rồi chọn Window Media Player (Nên nhớ Window Media Player có 2 loại, một là OCX và loại còn lại là DLL)
Xem hình giưới :

Tùy vào mục đích cụ thể của bạn mà bạn thiết lập thuộc tính cho nó .^^. ứng dụng Only hướng dẫn lần này thì như sau :

Chương trình gồm 3 nút (cmdPlay, CmdPause và cmdStop), 1 checkbox (chkMute), 3 HScrollBar (hsPosition, hsVolume và hsBalance), 1 timer (tmrPosition) 2 lable (lblDuration và lblPosition) và 1 Media Player(mdpVideo) thiết kế như hình trên.
Cái khó ở đây là làm sao mà biết giá trị min\max của Volume, Balance là bao nhiêu .^^.
Only đã canh và chỉnh rất hợp lý như sau :
1 - Đối với volume : min = -3000 và max = 0
2 - Đối với volume : min = -3000 và max = 3000 suy ra chính giữa là 0
B : Viết mã :
Làm sao cho Media Player (mdpVideo) chơi file được ? bạn dùng phương thức Open của nó, dạng như sau Open("đường dẩn đến file nhạc") trong chương trình lần này chúng ra sẻ mở một bài nhạc bất kì trong khi load form mục đích là nó mở nhạc được thôi .^^.

Code: Select all

    Private Sub Form_Load()        'Mở bài nhạc với đường dẩn bất kì        mdpVideo.Open ("D:\Music\Only Love.mp3")    End Sub

Vậy là đã mở được bài nhạc rồi .^^. còn Play, Pause, Stop nữa.

Code: Select all

    Private Sub CmdPlay_Click()        mdpVideo.Play    End Sub     Private Sub CmdPause_Click()        mdpVideo.Pause    End Sub     Private Sub CmdStop_Click()        mdpVideo.Stop    End Sub

Vậy còn điều chỉnh âm thanh nhỉ .^^.
Điều chỉnh âm lượng :

Code: Select all

    Private Sub hsVolume_Scroll(        mdpVideo.Volume = hsVolume.Value    End Sub

Điều chỉnh loa :

Code: Select all

    Private Sub hsBalance_Scroll()        mdpVideo.Balance = hsBalance.Value    End Sub

Còn mute nữa chứ .^^. :

Code: Select all

    Private Sub chkMute_Click()        mdpVideo.Mute = chkMute.Value    End Sub

Đây là thanh cuộn chỉnh vị trí play:

Code: Select all

    Private Sub hsPosition_Scroll()        mdpVideo.CurrentPosition = hsPosition.Value    End Sub

Dùng timer để điều chỉnh trạng thái Media Player : Các bạn nhớ thêm vào 2 label nhé (LblDuration + LblPosition)
Duration : Tổng thời gian của bài hát
Position : Vị trí đang play

Code: Select all

Private Sub TmrPosition_Timer()On Error Resume Next    With hsPosition        .Max = mdpVideo.Duration        .Value = mdpVideo.CurrentPosition        'doi ra thoi gian Duration        Dim Phut, Giay As Integer            Phut = mdpVideo.Duration \ 60            Giay = mdpVideo.Duration - Phut / 60        'doi ra thoi gian Position        Dim P, G As Integer            P = mdpVideo.CurrentPosition \ 60            G = mdpVideo.CurrentPosition - P / 60        'In ra label        LblDuration.Caption = "Duration : " & Phut & ":" & Left(Giay, 2)        LblPosition.Caption = "Position : " & P & ":" & Left(G, 2)    End WithEnd Sub

C : Biên dịch và chạy thữ :
Giờ biên dịch và chạy thữ xem sao nhé. Kết quả như sau :

Các bạn mở thử các file video xem sao nhé .^^. nó có hình đấy !

Còn đây là project Vb6 đây, nly sẻ viết tiếp bằng VB.NET và C#

[onlysoft]

hix, bạn nào giúp mình tiếp tục chủ đề này với, dạo này bận quá

[thanhvu06vl]

Tôi viết một chương trình đọc tất cả định dạng các file hình ảnh và âm thanh ( mpg , mp3, avi , )
bằng Visual Basic nay chương trình của tôi cần bổ sung thêm định dạng file m2p ( WindowMedia Player 9 , không xem được file này nhưng phiên bản WindowMedia Player 10 thì xem được ) .
Xin admin cho tôi hỏi tôi có cần thêm các Component , hay OCX gì vào chương trình của tôi để đọc được file m2p.
Tôi cài phiên bản WindowMedia Player 10 thì chương trình của tôi có đọc được file m2p không ?

[onlysoft]

Hiện thì đã có Window Media Player 11, bạn chỉ cần tải về cài đặt à máy bạn sẻ có wmp.dll <= lấy nó sài là có thể chơi được định giạng mà bạn nói, có một số định dạng WMP Ko chơi được, nó sẻ yêu cầu code, vì vậy muốn chơi được các định dạng khác như FLV chẳng hạn, thì phải down code reauest về nhúng vào WMP để chơi thôi.

[bactungnd]

Cho mình hỏi chút : Để chọn được nhiều bài hát ( hay nhiều File ) cùng lúc trong cửa sổ Common dialog OPEN thì làm cách nào, kiểu như trong WMP dùng con trỏ kéo chọn nhiều bài cùng lúc đó. Thank

[onlysoft]

Ngôn ngữ nào bạn ?

[bactungnd]

Ngôn ngữ VB 6 bạn à. Giúp mình nhanh nha. Cảm ơn trước

[onlysoft]

Những đoạn code căn bản này bạn có thể xem trong VBLib, ra trang chủ caulacbovb mà dowload về :

Code: Select all

Public Sub addMultiFileSub()'C = CommonDialog'List1 = ListBox      C.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect     C.Filter = "Multimedia files (*.mp3;*.wav;*.mid)|*.mp3;*.wav;*.mid|All Files (*.*)|*.*"     C.MaxFileSize = 10000'Kích thước bộ nhớ lưu số lượng bài hát      C.ShowOpen      If C.Filename = "" Then Exit Sub      Dim a As Variant     Dim P As Integer      a = Split(C.Filename, vbNullChar)     If UBound(a) = 0 Then          List1.AddItem C.Filename     Else          For P = 1 To UBound(a)               If Right(a(0), 1) <> "\" Then a(0) = a(0) & "\"               List1.AddItem a(0) + a(P)          Next     End If      C.Filename = ""End Sub

Chúc bạn thành công !

[bactungnd]

Giúp mình cho chót. Để mở một File nào đó trong danh sách thêm Code nào nữa. VD mình có 1 nút Command Open để mở 1 danh sách File và hiển thị ra trên ListBox. Để tự động chạy File nhạc đầu tiên trong danh sách và có thể mở 1 File nhạc bất kỳ khi nháy đúp vào tên File nhạc trên ListBox. Thanks

[onlysoft]

Đọc hết bài hướng dẫn của mình là bạn có thể làm được, không nên hỏi quá chi tiết bạn à

[bactungnd]

Xin lỗi nếu làm phiền nhiều quá nhưng bài viết của bạn chỉ nói đến mở 1 File chứ chưa nói đến Playlist , và chờ đợi bài hướng dẫn tiếp theo lấu quá

[anhtuyenbk]

Xin lỗi nếu làm phiền nhiều quá nhưng bài viết của bạn chỉ nói đến mở 1 File chứ chưa nói đến Playlist , và chờ đợi bài hướng dẫn tiếp theo lấu quá

Mở một file và một list nói thật chẳng khác gì nhau cả.
Mở một file bạn đã biết và lấy ra một danh sách file Only đã chỉ rồi.
Bạn đã có list file--> add list file (đường dẫn file ) này vào listbox mĩnh nghĩ bạn làm được. Còn lấy đường dẫn file từ listbox chẳng qua là lấy một string từ listbox ra thôi chẳng lẽ bạn ko làm được.
Khi có đường dần file từ listbox rồi thì bạn chỉ việc sử dụng cách play 1 file đã biết thôi.
Khi viết 1 bài hướng dẫn đòi hỏi nhiều thời gian và công sức cho nên sẽ ko có ai đi quá sâu vào chi tiết mà chỉ đi vào phần nền tảng tổng quát mà thôi, còn lại bạn phải tự trang bị lấy thôi.
Lập trình muốn khá là phải tự học, tự tìm tòi , điêu quan trọng nhất là đừng có quá máy móc, bây giờ tui ko thích dùng listbox mà dùng listview cũng được vậy chưa nhiều thông tin hơn (dĩ nhiên bạn phải tự tìm hiểu cách sử dụng listview chẳng ai chỉ được).

[ad23]

tiếp đi bạn!!! Chờ lau quá rồi!! Bài của bạn rất hay và có ích đấy, đặc biệt là với một gà như mình!!! Bravo

[xuanhoa_ah]

bài viết hay quá. tiếp đi anh Only gì đó ơi

[hieudaika]

Bài viết rất tuyệt.Tiếp tục đi cho ae học hỏi bác Only nhá