Langkah 1 : Menambahkan Module untuk memainkan musik
- Aktifkan jendela Microsoft Visual Basic
- Tambahkan sebuah module dengan cara klik menu Insert > Module
- Copy dan paste code berikut di bagian paling atas pada module yang sudah dibuat sebelumnya
Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Langkah 2 : Tombol untuk memainkan musik
- Minimize jendela visual basic anda
- Tambahkan sebuah CommmandButton untuk memainkan musik dan letakkan di dalam sheet yang anda inginkan
- Klik 2x tombol yang baru dibuat, yang secara otomatis akan membawa ke jendela visual basic lagi
- Masukkan kode berikut ini untuk memanggil suara atau musik
- Simpan pekerjaan anda sebagai Excel Macro-Enabled Workbook.
Jika tab Developer belum muncul, klik menu office button > excel options > di bagian kategori Popular centang show developer tab in the ribbon
Private Sub CommandButton1_Click()
Call sndPlaySound32("C:\Windows\Media\tada.wav", 0)
End Sub
tada.wav merupakan sebuah file WAV yang terletak di drive C:\...
anda bisa memodifikasi file ini sesuai dengan selera, namun file yang
bisa dimainkan untuk kode diatas hanya file audio yang berekstensi WAV
Call sndPlaySound32("C:\Windows\Media\tada.wav", 0)
End Sub
Tidak ada komentar:
Posting Komentar