• 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

Play 1 file MID bằng code

Các thủ thuật về âm thanh, đồ họa, truyền thông đa phương tiện...
vinhphuoc91
Thành viên tích cực
Thành viên tích cực
Posts: 146
Joined: Wed 26/03/2008 5:52 pm
Location: Phú Yên
Been thanked: 15 times
Contact:

Play 1 file MID bằng code

Postby vinhphuoc91 » Sat 29/03/2008 6:24 pm

Thủ thuật: Play 1 file MID bằng code
Tác giả: Sưu tầm
Mô tả: Giúp bạn play 1 file .mid
Bạn tải về file đính kèm ngâm cứu nha

Attachments
Play MID.rar
(51.87 KiB) Downloaded 1773 times


My website : http://tinthoitrang.net

GahocVB
Posts: 1
Joined: Sat 10/10/2009 7:15 pm

Re: Play 1 file MID bằng code

Postby GahocVB » Sun 11/10/2009 12:14 pm

mình mới học Vb đựoc vài ngày...hỏi câu chắc bị coi là ngớ ngẩn nhưng không biết nên cứ hỏi...
làm thế nào để ấn nút command ok thì nó tụ động chạy một bản nhac...ví dụ như tiếng hét chẳng hạn..mà tiếng hét đó nó cứ lăp đi lặp lại...

User avatar
delta_hung1992
Thành viên năng nổ
Thành viên năng nổ
Posts: 81
Joined: Thu 06/11/2008 10:51 pm

Re: Play 1 file MID bằng code

Postby delta_hung1992 » Tue 13/10/2009 1:45 pm

Anh có thể sử dụng một control là MMControl (muốn add control này vào thì nhấn Ctrl+T, chọn Microsoft Multimedia Control 6.0, nhấn OK). Tuy nhiên nó chỉ hỗ trợ các tập tin như .mid, .wav, .avi, .dat, ... không hỗ trợ .mp3, .mp4, .ra, .ram (nuốn hỗ trợ nhiều hơn xin xem bài hướng dẫn về Windows Media Player trong diễn đàn). Tạo một timer có interval = 1. Code như sau:

Code: Select all

  1.  
  2. Private Sub Command1_Click()
  3.     MMC1.Notify = False
  4.     MMC1.Wait = False
  5.     MMC1.Shareable = False
  6.     MMC1.DeviceType = "<loại file>"
  7.     MMC1.FileName = "<tên tập tin>"
  8.     MMC1.Command = "Open"
  9.     MMC1.Command = "Play"
  10. End Sub
  11.  
  12. Private Sub Timer1_Timer()
  13.     If MMC1.Position >= MMC1.Length Then
  14.       MMC1.Position = 0
  15.     End If
  16. 'hoặc dùng code này:
  17. '   If MMC1.Position >= MMC1.Length Then
  18. '    MMC1.Command = "Stop"
  19. '    MMC1.Command = "Play"
  20. '   End If
  21. End Sub
  22.  

Trong đó:
-<loại file>: mang các giá trị sau: AVIVideo (đuôi .avi), CDAudio, DAT (đuôi .dat), Digital Video, MMMovie, Overlay, Scanner, Sequencer (đuôi .mid), VCR, Videodisc, WaveAudio (đuôi .wav)
-<tên tập tin>: đường dẫn đến tập tin
Anh hãy thử xem! ;)
Keep moving forward


Return to “[VB] Âm thanh và Đồ họa”

Who is online

Users browsing this forum: No registered users and 1 guest