Visual Basic

Mostrar Estado da Bateria do Computador em VB.NET

Private Sub Load() 
Dim psBattery As PowerStatus = SystemInformation.PowerStatus

        Dim perFull As Single = psBattery.BatteryLifePercent
        If psBattery.PowerLineStatus = PowerLineStatus.Online Then

            If perFull >= 0.75 Then
                PictureBox6.Show()
                PictureBox5.Hide()
                PictureBox4.Hide()
                PictureBox3.Hide()
                PictureBox2.Hide()
                PictureBox1.Hide()
            End If

            If perFull > 0.21 And perFull <= 0.74 Then
                PictureBox6.Hide()
                PictureBox5.Show()
                PictureBox4.Hide()
                PictureBox3.Hide()
                PictureBox2.Hide()
                PictureBox1.Hide()
            End If

            If perFull <= 0.2 Then
                PictureBox6.Hide()
                PictureBox5.Hide()
                PictureBox4.Show()
                PictureBox3.Hide()
                PictureBox2.Hide()
                PictureBox1.Hide()
            End If

        ElseIf psBattery.PowerLineStatus = PowerLineStatus.Offline Then


            If perFull >= 0.72 Then
                PictureBox6.Hide()
                PictureBox5.Hide()
                PictureBox4.Hide()
                PictureBox3.Show()
                PictureBox2.Hide()
                PictureBox1.Hide()
            End If

            If perFull > 0.21 And perFull <= 0.71 Then
                PictureBox6.Hide()
                PictureBox5.Hide()
                PictureBox4.Hide()
                PictureBox3.Hide()
                PictureBox2.Show()
                PictureBox1.Hide()
            End If

            If perFull <= 0.2 Then
                PictureBox6.Hide()
                PictureBox5.Hide()
                PictureBox4.Hide()
                PictureBox3.Hide()
                PictureBox2.Hide()
                PictureBox1.Show()
            End If

        End If
        Timer1.Start()
    End Sub

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles Timer1.Tick
        Dim MSegundo


        MSegundo = Second(Timer1.Tag)

        Dim psBattery As PowerStatus = SystemInformation.PowerStatus

        Dim perFull As Single = psBattery.BatteryLifePercent
        If psBattery.PowerLineStatus = PowerLineStatus.Online Then

            If perFull >= 0.72 Then
                PictureBox6.Show()
                PictureBox5.Hide()
                PictureBox4.Hide()
                PictureBox3.Hide()
                PictureBox2.Hide()
                PictureBox1.Hide()
            End If

            If perFull > 0.21 And perFull <= 0.71 Then
                PictureBox6.Hide()
                PictureBox5.Show()
                PictureBox4.Hide()
                PictureBox3.Hide()
                PictureBox2.Hide()
                PictureBox1.Hide()
            End If

            If perFull <= 0.2 Then
                PictureBox6.Hide()
                PictureBox5.Hide()
                PictureBox4.Show()
                PictureBox3.Hide()
                PictureBox2.Hide()
                PictureBox1.Hide()
            End If

        ElseIf psBattery.PowerLineStatus = PowerLineStatus.Offline Then



            If perFull >= 0.75 Then
                PictureBox6.Hide()
                PictureBox5.Hide()
                PictureBox4.Hide()
                PictureBox3.Show()
                PictureBox2.Hide()
                PictureBox1.Hide()
            End If

            If perFull > 0.21 And perFull <= 0.74 Then
                PictureBox6.Hide()
                PictureBox5.Hide()
                PictureBox4.Hide()
                PictureBox3.Hide()
                PictureBox2.Show()
                PictureBox1.Hide()
            End If

            If perFull <= 0.2 Then
                PictureBox6.Hide()
                PictureBox5.Hide()
                PictureBox4.Hide()
                PictureBox3.Hide()
                PictureBox2.Hide()
                PictureBox1.Show()
            End If

        End If
    End Sub

Nas Propriedades do Timer1  em TAG : 00:01