Sub pe_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
Log("BatteryChanged("&Level&","&Scale&","&Plugged)
'Main.BatteryCharging=Plugged
'Main.BatteryLevel=Level
'Main.BatteryScale=Scale
Log(Intent.ExtrasToString)
Dim BatteryProperties(), tString As String
Dim props As Map
props.Initialize
Dim tValue As Double
Dim dummy As String = Intent.ExtrasToString
Intent.
dummy.Replace("Bundle[{","")
dummy.Replace("}","")
If dummy.Length > 0 Then
dummy = dummy.Replace("Bundle[{","")
dummy = dummy.Replace("}]","").Trim
dummy = dummy.Trim
End If
Log(dummy)
BatteryProperties=Regex.Split(",",dummy)
For i = 0 To BatteryProperties.Length-1
Dim values() As String = Regex.Split("=",BatteryProperties(i))
props.Put(values(0).Trim,values(1).Trim)
'Log(BatteryProperties(i))
Next
Log(props)
'Bundle[{technology=Li-ion, icon-small=17303200, health=2, status=5, plugged=2, present=true, level=100, scale=100, temperature=252, voltage=4337, invalid_charger=0}]
'Main.BatteryVoltageString=BatteryProperties(12)
'Main.BatteryTemperatureString=BatteryProperties(6)
'Main.BatteryCharging=Plugged 'delete when finished
End Sub