• 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
Bài viết: 146
Ngày tham gia: T.Tư 26/03/2008 5:52 pm
Đến từ: Phú Yên
Been thanked: 15 time
Liên hệ:

Play 1 file MID bằng code

Gửi bàigửi bởi vinhphuoc91 » T.Bảy 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

Tập tin đính kèm
Play MID.rar
(51.87 KiB) Đã tải 1715 lần


My website : http://tinthoitrang.net

GahocVB
Bài viết: 1
Ngày tham gia: T.Bảy 10/10/2009 7:15 pm

Re: Play 1 file MID bằng code

Gửi bàigửi bởi GahocVB » CN 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...

Hình đại diện của người dùng
delta_hung1992
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 81
Ngày tham gia: T.Năm 06/11/2008 10:51 pm

Re: Play 1 file MID bằng code

Gửi bàigửi bởi delta_hung1992 » T.Ba 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:

Mã: Chọn hết

  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


Quay về “[VB] Âm thanh và Đồ họa”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách