Прежде всего, вы должны добавить библиотеку GPS в ваш проект. После этого действительно легко:
Сначала вы должны объявить объект GPS:
Sub Process_Globals
Dim GPS1 As GPS
End Sub
После этого вы должны инициализировать объект:
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
GPS1.Initialize("GPS")
End If
End Sub
Затем вы должны использовать событие GPS, которое вызывается при изменении местоположения:
Sub GPS_LocationChanged (Location1 As Location)
Dim Lat, Long as string
Lat = Location1.ConvertToMinutes(Location1.Latitude)
Lon = Location1.ConvertToMinutes(Location1.Longitude)
End Sub
Теперь вам нужно установить соединение с сервисом отправки и отправить данные.