خواندن اطلاعات باتری

خواندن اطلاعات باتری

Sub Process_Globals
Dim PE As PhoneEvents
End Sub

SubActivity_Create(FirstTime As Boolean)

Activity.LoadLayout("l1") Dim pe As PhoneEvents pe.Initialize("pe")
End Sub

SubPE_BatteryChanged(Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)

If Level =100then
Msgbox(Level,"Battery Level")
End if
End Sub