Sub Process Global
Dim ps As PhoneSensors
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
ps.Initialize(ps.TYPE_PROXIMITY)
ps.StartListening("ps")
End If
End Sub
Sub ps_SensorChanged (Values() As Float)
Log(Values(0))
If Values(0)=0 Then
Log("Screen switch off")
phoneWS.ReleaseKeepAlive
Else
Log("Screen switch on")
phoneWS.KeepAlive(True)
End If
End Sub