Cara Memeriksa Status Baterai Laptop Menggunakan Visual Basic 6.0 (VB6)

Pada postingan kali ini saya akan berbagi trik bagaimana cara membuat kode vb6 untuk mengetahui status Baterai pada Laptop Anda dengan menggunakan WMI (Windows Management Instrumentation).

Dalam kode ini hasilnya akan menampilkaan beberapa data diantaranya :

1. Persentase (%) Baterai

2. Status Charging dan Discharging

3. Apakah sedang memakai Adaptor AC

4. Perkiraan sisa waktu

kode ini aman dan hanya membaca informasi saja

Staus Baterai Laptop VB6

Berikut adalah langkah-langkah Cara Memeriksa Status Baterai Laptop Menggunakan Visual Basic 6.0 (VB6) :

1. Buka Form VB6 Anda

2. Aktifkan referensi WMI dengan cara tekan Project > References  > centang ✔ Microsoft WMI Scripting V1.2 Library

3. Pada Form tanamkan beberapa label sebagai berikut :

Label1 name: lblPercent          Caption: Persen: -%

Label2 nama: lblStatus            Caption: Status

Label3 name: lblAC                Caption: AC Power

Label4 name:lblTime              Caption: Sisa Waktu

Timer name: Timer1                Interval:3000

4. Setelah mendesain Form seperti Gambar diatas, kemudian copy kode dibawah ini :

Private Sub Form_Load()

    Timer1_Timer   'ambil data ketika form dibuka

End Sub

Private Sub Timer1_Timer()

    On Error Resume Next

    

    Dim objWMI As Object

    Dim colBat As Object

    Dim bat As Object

    

    Set objWMI = GetObject("winmgmts:\\.\root\cimv2")

    Set colBat = objWMI.ExecQuery("Select * from Win32_Battery")

    

    For Each bat In colBat

        ' Persentase baterai

        lblPercent.Caption = "Persen: " & bat.EstimatedChargeRemaining & "%"

        ' Status baterai

        Select Case bat.BatteryStatus

            Case 1: lblStatus.Caption = "Status: Discharging"

            Case 2: lblStatus.Caption = "Status: Charging"

            Case 3: lblStatus.Caption = "Status: Fully Charged"

            Case Else: lblStatus.Caption = "Status: Unknown"

        End Select

        

        ' Status AC (adaptor)

        If bat.powerOnline = True Then

            lblAC.Caption = "AC Power: Connected"

            lblTime.Caption = "Sisa Waktu: " & bat.EstimatedRunTime & " menit"

        Else

            lblAC.Caption = "AC Power: Not Connected"

        End If

    Next

End Sub

5. Simpan dan jalankan Project Anda

Itulah langkah-langkah Cara Memeriksa Status Baterai Laptop Menggunakan Visual Basic 6.0 (VB6), semoga artikel ini bermenfaat buat kita semua, Amin

Selamat mencoba semoga berhasil.