• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Media Player

Bộ sưu tập mã nguồn các ứng dụng game, giải trí
User avatar
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Posts: 531
Joined: Wed 02/04/2008 2:08 pm
Location: RGames Team
Has thanked: 3 times
Been thanked: 17 times
Contact:

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

Postby Dang Minh Du » Sat 24/05/2008 3:28 pm

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

Attachments
DJMP3.rar
(115.33 KiB) Downloaded 8908 times


~°Dòng Sông Mùa Thu°~
Studying...!

User avatar
andylam1992
Thành viên danh dự
Thành viên danh dự
Posts: 380
Joined: Mon 06/04/2009 12:57 pm
Location: TP.HCM Q5
Has thanked: 2 times
Been thanked: 4 times
Contact:

Media Player

Postby andylam1992 » Sat 18/07/2009 2:25 pm

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.
media.JPG
Hình Minh họa

Media.rar
Scr chương trình
(290.97 KiB) Downloaded 1767 times

不相信未作牺牲竟先可拥有
只相信是靠双手找到我欲求
Cần - Kiệm- Liêm(liêm kiết) - Nghĩa - Chí - Tín

User avatar
andylam1992
Thành viên danh dự
Thành viên danh dự
Posts: 380
Joined: Mon 06/04/2009 12:57 pm
Location: TP.HCM Q5
Has thanked: 2 times
Been thanked: 4 times
Contact:

Re: Media Player

Postby andylam1992 » Sun 19/07/2009 9:14 am

Để 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:

Code: Select all

  1.  
  2.  FSOUND_SetPaused fsound_systemchannel, True 'pause kênh lại
  3.     echo1 = FSOUND_FX_Enable(fsound_systemchannel, FSOUND_FX_ECHO) 'hàm dùng để enable echo cho system channel
  4.     FSOUND_SetPaused fsound_systemchannel, False 'mở lại kênh để có hiệu ứng
  5.    necho = FSOUND_FX_SetEcho(echo1, 100, HScroll1.value, 333, 333, True) 'thiết lập echo
  6.  

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!http://caulacbovb.com/forum/viewtopic.php?f=19&t=8314#p51999

fmod_fmodapi360win32.zip
Tài liệu fmod
(1.41 MiB) Downloaded 975 times

不相信未作牺牲竟先可拥有
只相信是靠双手找到我欲求
Cần - Kiệm- Liêm(liêm kiết) - Nghĩa - Chí - Tín

User avatar
Tkkk_Vnn
Thành viên tích cực
Thành viên tích cực
Posts: 143
Joined: Fri 23/04/2010 4:18 pm
Location: Yên Bái-Việt Nam
Been thanked: 1 time

Re: Media Player

Postby Tkkk_Vnn » Tue 11/05/2010 7:33 pm

°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é !!!!


Return to “[VB] Mã nguồn chương trình giải trí”

Who is online

Users browsing this forum: No registered users and 1 guest