Sub Service_Create
FusedLocationProvider1.Initialize("FusedLocationProvider1")
FusedLocationProvider1.Connect
End Sub
Sub Service_Start (StartingIntent As Intent)
Notification1.Initialize
Notification1.Sound = False
Notification1.SetInfo("My Company", "Tracking", Main)
Service.StartForeground(1, Notification1)
'I've tried next line in FusedLocationProvider1_LocationChanged too
StartServiceAt(Me,DateTime.Now + (0.1 * DateTime.TicksPerMinute),True) '(60 * DateTime.TicksPerMinute)
'Service.StopAutomaticForeground
End Sub
Sub FusedLocationProvider1_LocationChanged(Location1 As Location)
Log("FusedLocationProvider1_LocationChanged " & DateTime.Time(DateTime.Now))
LastLocation=Location1
Starter.ListaLoc.Add(DateTime.Time(LastLocation.Time)&" ("&LastLocation.Latitude&", "&LastLocation.Longitude&")")
Starter.kvs.Put("Listado", Starter.ListaLoc)
CallSub(Main, "UpdateUI")
'StartServiceAt(Me,DateTime.Now + (0.15 * DateTime.TicksPerMinute),True) '(60 * DateTime.TicksPerMinute) es una hora
'StopService("LocationMonitor")
'Service.StopAutomaticForeground
End Sub
Sub Service_Destroy
FusedLocationProvider1.Disconnect
StopService(Me)
End Sub