Spanish [SOLUCIONADO] Indicador de estado de bateria

Sub Process_Globals
   Dim NivelBateria As Int

End Sub

Sub Service_Create
  Dim PhoneId As PhoneId   ' Es la libreria Phone
  Dim EstadoTelefono As PhoneEvents
  EstadoTelefono.InitializeWithPhoneState("PE",PhoneId)
   
End Sub




Sub PE_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
  ' Entra cuando se produce un evento de la bateria
  Log("Nivel batería " & Level ) 

  NivelBateria = Level  ' Ya puedes poner el porcentaje de bateria donde tu quieras con esta variable global
  ' Normalmente la escala es 100, pero si te quieres asegurar puedes hacer esto que seria mas correcto:
  NivelBateria = Level * 100 / Scale

  ' Si te interesa saber si está conectado o no (para que de un aviso y no te quedes sin bateria)  en Plugged te devuelve si lo está con un True, o False si no está
End Sub

#StartAtBoot: false

Sub Activity_Create(FirstTime As Boolean)
StartService(EstadoBateria)