Media Player

Bộ sưu tập mã nguồn các ứng dụng game, giải trí
Đăng trả lời
Hình đại diện của thành viên
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Bài viết: 531
Ngày tham gia: Thứ 4 02/04/2008 2:08 pm
Đến từ: RGames Team
Has thanked: 3 times
Been thanked: 17 times
Tiếp xúc:

[VB6]Một Media Palyer mới, có Visualization theo bài hát

Gửi bài by Dang Minh Du »

Tên chương trình: DJ MP3
Ngôn ngữ lập trình: VB6
Tác giả: Đặng Minh Dự sưu tầm
Chức năng: Chơi Mp3
Tập tin đính kèm
DJMP3.rar
(115.33 KiB) Đã tải về 8961 lần
~°Dòng Sông Mùa Thu°~
Studying...!
Hình đại diện của thành viên
andylam1992
Thành viên danh dự
Thành viên danh dự
Bài viết: 380
Ngày tham gia: Thứ 2 06/04/2009 12:57 pm
Đến từ: TP.HCM Q5
Has thanked: 2 times
Been thanked: 4 times
Tiếp xúc:

Media Player

Gửi bài by andylam1992 »

Tên chương trình: Media Player
Ngôn ngữ lập trình: VB6
Tác giả: Sưu tầm:Rất Nhiều Nơi
Chức năng: Nghe Nhạc
Trong nhiều ngày liền, hôm nay tôi đã bước đầu hoàn thành 1 chương trình nghe nhạc(file audio:mp3,wma,wmv, lưu ý: để chạy tốt các bạn nên có WMP 9 trở lên, các bạn có thể thêm các kiểu định dạng # vào chương trình để nghe nhạc). chương trình gồm có các tính năng nổi bật như:

+ Hỗ trợ tên file unicode
+ Set được Echo
+ Set được EQ (Graphic Equalizer)

Tuy nhiên chưa có các tính năng reapeat. Tôi share scr của tôi lên cho những bạn muốn làm 1 chương trình nghe nhạc tìm hiểu thêm.(có thể code của tôi không được rõ ràng lắm, mong các bạn thông cảm).
Chương trình sử dụng file fmod.dll của "fmod.org". Các bạn copy file fmod.dll vào system 32 rồi chạy code.
Hình Minh họa
Hình Minh họa
Media.rar
Scr chương trình
(290.97 KiB) Đã tải về 1808 lần

不相信未作牺牲竟先可拥有
只相信是靠双手找到我欲求
Cần - Kiệm- Liêm(liêm kiết) - Nghĩa - Chí - Tín
Hình đại diện của thành viên
andylam1992
Thành viên danh dự
Thành viên danh dự
Bài viết: 380
Ngày tham gia: Thứ 2 06/04/2009 12:57 pm
Đến từ: TP.HCM Q5
Has thanked: 2 times
Been thanked: 4 times
Tiếp xúc:

Re: Media Player

Gửi bài by andylam1992 »

Để sử dụng 1 effect trong fmod.dll ta thực hiện theo các bước sau.
B1: pause kênh kại để enable effect
B2: dùng lệnh enable
B3: start kênh lại
B4: thiết lập hiệu ứng.

Vd: thiết lập echo trên kênh systemchannel:

Mã: Chọn tất cả

  FSOUND_SetPaused fsound_systemchannel, True 'pause kênh lại    echo1 = FSOUND_FX_Enable(fsound_systemchannel, FSOUND_FX_ECHO) 'hàm dùng để enable echo cho system channel    FSOUND_SetPaused fsound_systemchannel, False 'mở lại kênh để có hiệu ứng   necho = FSOUND_FX_SetEcho(echo1, 100, HScroll1.value, 333, 333, True) 'thiết lập echo 
Các bạn có thể xem thêm phần commondialog để mở nhạc qua bài: Cách sử dụng đường dẫn unicode trong vb6 cho mọi hàm!viewtopic.php?f=19&t=8314#p51999
fmod_fmodapi360win32.zip
Tài liệu fmod
(1.41 MiB) Đã tải về 1023 lần

不相信未作牺牲竟先可拥有
只相信是靠双手找到我欲求
Cần - Kiệm- Liêm(liêm kiết) - Nghĩa - Chí - Tín
Hình đại diện của thành viên
Tkkk_Vnn
Thành viên tích cực
Thành viên tích cực
Bài viết: 143
Ngày tham gia: Thứ 6 23/04/2010 4:18 pm
Đến từ: Yên Bái-Việt Nam
Been thanked: 1 time

Re: Media Player

Gửi bài by Tkkk_Vnn »

°Dòng Sông Mùa Thu°~ ơi, thư viện này hình như hơi có vấn đề đó , nó hay bị hỏng quá khi complie, bạn xem lại đi nhé !!!!
Đăng trả lời

Quay về