Membuat tools kontrol volume media player

Sejatinya pemutar musik seperti Windows Media Player dan yang terbaru bawaan windows 8 / windows 10 Music Groove secara defauld sudah menyediakan tombol untuk menaikan nada suara serta menurunkan nada suara, akan tetapi adakalanya pengguna menginginkan hal yang baru yang exclusive agar tidak sama dengan pengguna lainya maka dibuatlah beberapa aplikasi kontrol suara supaya terlihat lebih gaya. Bagi anda pengguna microsoft excel jangan kawatair karena ada syntax khusus untuk membuat tool yang bisa mengontrol volume media player di kompuer Windows. Cara Membuat tools kontrol volume media player di kompuer Windows sangat sederhana dan tidak memerlukan banyak kode macro, mau tau caranya ?? simak uraianya dibawah ini

Mengontrol volume media player di kompuer Windows

Untuk Membuat tools kontrol volume media player berbasis microsoft excel , silahkan buka microsoft excel pada komputer anda, pada worksheet tidak ada pengaturan apa apa langsung saja tekan Alt + F11 untuk masuk kejendela visual basic editor (VBE), lalu
 Lihat pada menu bar pilih Insert dan Insert Module, rubah name module menjadi "KontrolVolume"
 Pada module "KontrolVolume" ketikan baris kode macro dibawah ini

Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const Diam = &HAD
Const Turun = &HAE
Const Naik = &HAF

 Tambahkan dibwahnya kode macro dibawah ini yang berfungsi untuk menjalankan perintah "Menaikan volume media player"

Sub Banterno()
keybd_event Naik, 0, 1, 0
keybd_event Naik, 0, 3, 0
End Sub

 Tambahkan dibwahnya kode macro dibawah ini yang berfungsi untuk menjalankan perintah "Menurunkan / Mengecilkan volume media player"

Sub Itek2no()
keybd_event Turun, 0, 1, 0
keybd_event Turun, 0, 3, 0
End Sub

 Tambahkan dibwahnya kode macro dibawah ini yang berfungsi untuk menjalankan perintah "Mute / mematikan volume media player"

Sub Muteno()

keybd_event Diam, 0, 1, 0
End Sub

 Sekarang saatnya memannggil ketiga perintah yang telah kita buat pada modul "KontrolVolume". Masih dijendela VBE tambahkan atau Insert Userform dengan tiga (3) kontrol CommandButton, biarkan saja nemanya defauld
 Pada masing masing tombol CommandButton secara berurutan silahkan ketikan baris kode macro dibawah ini

Private Sub CommandButton1_Click()
KontrolVolume.Banterno
End Sub

Private Sub CommandButton2_Click()
KontrolVolume.Itek2no
End Sub

Private Sub CommandButton3_Click()
KontrolVolume.Muteno
End Sub

 Selesai, tekan F5 untuk mencobanya

Download Contoh File