Sub Service_Create
others.Notif("Started OK.", False, False, Main, "")
Service.StartForeground(8, Notif1)
Try
sensor.Initialize(sensor.TYPE_ACCELEROMETER)
AccelExists = True
Catch
AccelExists = False
ToastMessageShow("No accel: stopped", True)
CallSub(Main, "Activity_Close")
StopService(Me)
End Try
End Sub
Private Sub Sensor_SensorChanged (Values() As Float)
SensorX1 = Round(Values(0)) * 10
SensorY1 = Round(Values(1)) * 10
SensorZ1 = Round(Values(2)) * 10
End Sub