Setelah tiga tahun lebih akhirnya baterai laptop saya minta diganti. Sebenarnya belum harus diganti tetapi karena kapasitas tinggal beberapa menit dan cenderung harus dicharge terus akhirnya saya mengambil keputusan untuk menggantinya. Sebenarnya baterai laptop saat ini mampu bertahan ketika kondisi pengecasan 100% walaupun kabel power terhubung. Tetapi tetap saja panas yang tercipta mengurangi umur baterai. Oleh karena itu perlu dicabut ketika indikator charging sudah 100%. Dulu saya pernah memposting cara membunyikan alarm ketika baterai mau habis. Sekarang bagaimana membuat alarm berbunyi ketika pengecasan sudah mendekati 100%?

Setelah browsing, akhirnya saya menemukan informasi dari situs ini yang menggiring saya ke software Battery Limiter. Silahkan download software ini di situs freeware ini. Setelah diekstrak, instal software itu. Jika Anda punya antivirus sebaiknya aktifkan. Trend Micro di laptop saya kebetulan tidak mendeteksi adanya virus yang menempel di software itu.

Berikut ini adalah tampilan software tersebut. Anda bisa mengganti warna background agar terlihat jelas. Saya lebih suka warna kuning. Untuk mengeset alarm, geser simbul “sasaran” yang terletak di garis di atas indikator kapasitas baterai.

Sudah saya cek dan berjalan dengan baik, silahkan lihat bagaimana perangkat lunak ini bekerja di youtube yang saya posting ini.

Atau jika Anda khawatir dengan virus, atau laptop anda tidak bisa menginstal program tersebut karena win 10 misalnya, gunakan kode berikut yang Anda ketik dengan notepad dan disimpan dengan nama Battery.vbs. NOTE: jangan lupa mengetik “.vbs” di belakang Battery saat menyimpan agar tidak berekstensi defaultnya (“.txt”).

set oLocator = CreateObject("WbemScripting.SWbemLocator")
 set oServices = oLocator.ConnectServer(".","root\wmi")
 set oResults = oServices.ExecQuery("select * from batteryfullchargedcapacity")
 for each oResult in oResults
 iFull = oResult.FullChargedCapacity
 next

while (1)
 set oResults = oServices.ExecQuery("select * from batterystatus")
 for each oResult in oResults
 iRemaining = oResult.RemainingCapacity
 bCharging = oResult.Charging
 next
 iPercent = ((iRemaining / iFull) * 100) mod 100
 if bCharging and (iPercent > 95) Then msgbox "Battery is at " & iPercent & "%",vbInformation, "Battery monitor"
 wscript.sleep 30000 ' 5 minutes
 wend

Simpan di desktop supaya mudah dijalankan (tinggal dobel klik). Atau diletakan di folder start-up agar setiap laptop direstart, kode tersebut dijalankan. Sudah saya coba dan ketika lebih besar dari 95 persen muncul pesan peringatan di layar dan di taskbar seperti berikut ini: