In questo articolo vedremo come visualizzare a video la percentuale di carica della batteria di un computer portatile con Visual Basic .NET. Ecco il codice:

        Dim BatteryStatus As PowerStatus = SystemInformation.PowerStatus
        Dim BatteryPower As Single = BatteryStatus.BatteryLifePercent

        Label1.Text = BatteryPower * 100 & "%" ' Percentuale di carica della batteria

        If BatteryStatus.PowerLineStatus = PowerLineStatus.Online Then
            Label2.Text = "In carica"  ' Batteria in carica
        ElseIf BatteryStatus.PowerLineStatus = PowerLineStatus.Offline Then
            Label2.Text = "Non in carica"  ' Batteria non in carica
        End If

Per il codice di sopra sono necessarie 2 label: una per la percentuale della carica, l'altra per lo stato dela batteria. Ciao.