Sunday, April 14, 2013

Memainkan musik (midi file) yang berada dalam resource

Mungkin kita sering memainkan game dan mendengar iringan musik saat aplikasi game tersebut diload. Nah, untuk kali ini kita akan belajar menambahkan musik dari file midi yang tersimpan di resource,dan menjalankannya saat aplikasi di load. Lalu bagaimana caranya?

Tambahkan VB 6 Resource Editor, dengan langkah:
1. Klik menu Add-Ins
2. Double Click untuk meload VB 6 Resource Editor,kemudian klik OK.
Untuk lebih jelasnya lihat Gambar di bawah ini.



Masukkan File midi ke dalam Resources, dengan langkah:
1. Klik menu icon Vb resource editor.
2. Pilih Icon Add Custom Resource, kemudian cari file midi yang akan ditambahkan.
3. Akan muncul, folder resource dengan Nama Type=Custom dan Id=101. Anda dapat merubahnya seperti gambar di bawah ini.
4.Klik icon save.


Pada form tambahkan code di bawah ini:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim sMusik As String

Private Sub StartMusik()
    Dim sBuffer As String
    sMusik = App.Path & "\miditmp.mid"
    If Dir(sMusik) <> "" Then Kill sMusik
    sBuffer = StrConv(LoadResData("INTERFACE", "MIDI"), vbUnicode)
    Open sMusik For Output As #1
    Print #1, sBuffer
    Close #1
    Call mciSendString("open " & Chr(34) & sMusik & Chr(34) & " type sequencer alias INTERFACE", 0& , 0, 0)
    Call mciSendString("play INTERFACE", 0&, 0, 0)    
End Sub

Private Sub StopMusik()
    Call mciSendString("close INTERFACE", 0&, 0, 0)
    If Dir(sMusik) <> "" Then Kill sMusik
End Sub

Private Sub Form_Load()
    Call StartMusik
End sub

Private Sub Form_Unload(Cancel As Integer)
    StopMusik
End Sub

Download project klik disini, Semoga bermanfaat.

4 comments:

  1. Good bosss.... ane coba ya? ijin sedot. thanx

    ReplyDelete
  2. waduh makasih banget Gan..... Nie yang ane cari

    ReplyDelete
  3. maaf mas, punya source code monitoring pc pake vb 6.0 gk?
    saya ada tugas dari skolah suruh buat program

    ReplyDelete
  4. Nice info, i enjoyed your site, visit my blog too: Belajar visual basic

    ReplyDelete