Sub Process_Globals
Dim gps1 As GPS
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
gps1.Initialize("GPS")
End If
End Sub
Sub Activity_Resume
If gps1.GPSEnabled = False Then
ToastMessageShow("Please enable the GPS device.", True)
StartActivity(gps1.LocationSettingsIntent) 'Will open the relevant settings screen.
End If
gps1.Start(0, 0) 'Listen to GPS with no filters.
End Sub
Sub Activity_Pause (UserClosed As Boolean)
gps1.Stop
End Sub
Sub GPS_LocationChanged (Location1 As Location)
Activity.Title = "Lon,Lat:"& Location1.Latitude & "," & Location1.Longitude
' ToastMessageShow("Lon,Lat:"& Location1.Latitude & "," & Location1.Longitude, False)
End Sub