Lettore batteria in visual basic

« Older Newer »

valebes

Posted on 15/5/2012, 12:37

Advanced Member

Group: Amministratore

Posts: 1,034

Reputation: 0

Location: Dal deserto del Mojave

Status

HTML

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

0 replies since 15/5/2012, 12:37 28 views