#Region "GPS"
Sub MapFragment1_Ready
gmap = MapFragment1.GetMap
Dim JavaMapsObject As JavaObject
JavaMapsObject = gmap.GetUiSettings
JavaMapsObject.RunMethod("setMapToolbarEnabled", Array As Object(True))
Dim cp As CameraPosition
cp.Initialize(40.416660 , -3.703770, 10) ' le pongo el kilometro cero de madrid, me da error si lodesactivo.
gmap.AnimateCamera(cp)
End Sub
Sub GPS_LocationChanged (Parametro As Location)
Dim sp As Int
sp = Ceil(Parametro.Speed * 3.6)
boton1.Text = sp &" "&"km/h"
latitud = Parametro.Latitude
Longitud = Parametro.Longitude
p2.Initialize2(latitud,Longitud)
p1.Initialize2(Lat2, Lon2)
Distance = p1.DistanceTo(p2)
If latitud <> 0 And Longitud <> 0 Then
If Distance > 10 Then
Lat2 = latitud
Lon2 = Longitud
Dim cp As CameraPosition
' cp.Initialize2(Parametro.Latitude, Parametro.Longitude, gmap.CameraPosition.Zoom, Parametro.Bearing, 0)
cp.Initialize2(Parametro.Latitude, Parametro.Longitude, 15, Parametro.Bearing, 0)
gmap.AnimateCamera(cp)
End If
satelite.Bitmap = LoadBitmap(File.DirAssets, "s_on.png") ' si latitud o longitud es + de 0. pone el radar verde
Else
satelite.Bitmap = LoadBitmap(File.DirAssets, "s_off.png") ' si latitud o longitud es 0. pone el radar rojo
Dim cp As CameraPosition
' cp.Initialize2(Parametro.Latitude, Parametro.Longitude, gmap.CameraPosition.Zoom, Parametro.Bearing, 0)
cp.Initialize2(Parametro.Latitude, Parametro.Longitude, 15, Parametro.Bearing, 0)
gmap.AnimateCamera(cp)
End If
End Sub
Public Sub GpsStatus (Satellites As List)
Dim sb As StringBuilder
sb.Initialize
sb.Append("Satellites:").Append(CRLF)
For i = 0 To Satellites.Size - 1
Dim Satellite As GPSSatellite = Satellites.Get(i)
sb.Append(CRLF).Append(Satellite.Prn).Append($" $1.2{Satellite.Snr}"$).Append(" ").Append(Satellite.UsedInFix)
sb.Append(" ").Append($" $1.2{Satellite.Azimuth}"$).Append($" $1.2{Satellite.Elevation}"$)
Next
End Sub
Sub Activity_Resume
If Starter.GPS.GPSEnabled = False Then
ToastMessageShow("Por Favor, Activa el GPS.", True)
StartActivity(Starter.GPS.LocationSettingsIntent) 'Will open the relevant settings screen.
Else
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then CallSubDelayed(Starter, "StartGPS")
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
CallSubDelayed(Starter, "StopGPS")
End Sub
#End Region