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.
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
Comments
Post a Comment