گرفتن درصد باتری

[ایمان سعیدی 48]

سلام لایبری phone رو فعال کنید

Sub Globals
   Dim iman As PhoneEvents
End Sub

Sub Activity_Create(FirstTime As Boolean)
iman.Initialize("iman")
End Sub

Sub iman_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
   Log("BatteryChanged: Level = " & Level & ", Scale = " & Scale & ", Plugged = " & Plugged)
End Sub