Mengontrol Volume Komputer dengan Excel VBA - Speker merupakan bagian atau salah satu komponen yang ada pada perangkat laptop atau netbook yang berfungsi untuk menghadirkan suara, baik suara musik MP3, suara Film yang diplay lewat player sampai suara peringatan dari system windows. Ketika anda menset volume speker terlalu pelan tentu saja telinga anda tidak bisa menangkap suaranya dengan jelas akan tetapi jika anda menset volume terlalu tinggi maka suara yang dihasilkan malah akan mengganggu telinga anda bahkan sampai mengganggu orang lin disekitar anda. Agar suara yang dihasilkan sesuai dengan selera dan kebutuhan maka anda perlu menset volume suara tersebut, caranya cukup mudah, anda tinggal mengklik ikon sound yang biasanya berada disebelah kanan bawah monitor.

Untuk kesempatan kali ini saya akan memberikan kepada anda salah satu trik membuat kontrol bolume pada komputer dengan menggunakan Microsoft Excel VBA, bagaimana caranya ? ikuti langkah langkahnya berikut ini :

Saya berasumsi anda sudah membuka microsoft excel dan anda cukup memahami VBA
Masuk kejendela VBE, insert Userform, dalam userform masukan tiga kontrol Commandbutton, Satu tombol untuk volume UP, satu tombol untuk volume Down, dan yang ketiga untuk Mute
Perhatikan design formnya dibawah ini


Masukan kode macro ini ketombol UP berfungsi untuk menaikan kontrol Volume
Private Sub CommandButton1_Click()
Module1.Banterno
End Sub

Masukan kode macro ini ketombol Down berfungsi untuk menurunkan kontrol Volume
Private Sub CommandButton2_Click()
Module1.Itek2no
End Sub

Masukan kode macro ini ketombol Mute berfungsi untuk silent kontrol Volume
Private Sub CommandButton3_Click()
Module1.Muteno
End Sub

Buat module namenya Modul1 masukan kode macro 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

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

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

Sub Muteno()

keybd_event Diam, 0, 1, 0
End Sub
Buat module namenya Modul2 masukan kode macro ini
Sub VolUp(control As IRibbonControl)
Module1.Banterno
End Sub
Sub VolDown(control As IRibbonControl)
Module1.Itek2no
End Sub

Sub VolMute(control As IRibbonControl)
Module1.Muteno
End Sub
Simpan lalu silahkan dicoba, semoga berhasil


Demikianlah cara Mengontrol Volume Komputer dengan Excel VBA, semoga tips atau trik yang saya bagikan kepada anda bermanfaat buat saya sendiri dan tentu dapat dipahami dengan baik oleh anda, selamat libura panjang dan selamat Hari Raya Idul Adha
No comments