The following VB.NET will make use of the SystemInformation class in order to obtain the battery charge status in percentages and the current power source: AC power / battery charging or battery power / battery not charging.
'Objects for retrieving the information
Dim psBattery As PowerStatus = SystemInformation.PowerStatus
Dim perFull As Single = psBattery.BatteryLifePercent
'Show the remaining battery power in percentages
MsgBox("Total battery power remaining: " & perFull * 100 & "%")
'Is the battery charging?
If psBattery.PowerLineStatus = PowerLineStatus.Online Then
MsgBox("Battery charge status: Charging")
ElseIf psBattery.PowerLineStatus = PowerLineStatus.Offline Then
MsgBox("Battery charge status: Not charging")
End If
Nathan Pakovskie is an esteemed senior developer and educator in the tech community, best known for his contributions to Geekpedia.com. With a passion for coding and a knack for simplifying complex tech concepts, Nathan has authored several popular tutorials on C# programming, ranging from basic operations to advanced coding techniques. His articles, often characterized by clarity and precision, serve as invaluable resources for both novice and experienced programmers. Beyond his technical expertise, Nathan is an advocate for continuous learning and enjoys exploring emerging technologies in AI and software development. When he’s not coding or writing, Nathan engages in mentoring upcoming developers, emphasizing the importance of both technical skills and creative problem-solving in the ever-evolving world of technology.
Specialties: C# Programming, Technical Writing, Software Development, AI Technologies, Educational Outreach
