Hola coders,
Estoy intentando mostrar mi posición en un mapa de google, tengo la app donde el mapa se carga dentro de un panel, pero no consigo que muestre mi posición actual.
Tengo implementado el código de GPS y parece que funciona, pero tampoco estoy seguro de que esté cogiendo las coordenadas.
El mapa se muestra no da error, os paso el código por si alguien sabe que puede estar pasando , o que puedo estar olvidando , gracias de antemano.
Estoy intentando mostrar mi posición en un mapa de google, tengo la app donde el mapa se carga dentro de un panel, pero no consigo que muestre mi posición actual.
Tengo implementado el código de GPS y parece que funciona, pero tampoco estoy seguro de que esté cogiendo las coordenadas.
El mapa se muestra no da error, os paso el código por si alguien sabe que puede estar pasando , o que puedo estar olvidando , gracias de antemano.
B4X:
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>MAPA GOOGLE Y ZOOM<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Sub OnMyLocationChangeListener1_MyLocationChange(Location1 As Location)
GoogleMapsExtras1.SetOnMyLocationChangeListener(goglgmap, OnMyLocationChangeListener1)
End Sub
Sub Map_Ready
Log("mapa habilitado")
goglgmap = mFragment.GetMap
If goglgmap.IsInitialized = False Then
ToastMessageShow("Error iniciando el mapa.", True)
Else
goglgmap.AddMarker(36, 15, "Hola!!!")
Log("Mapa funcionando")
cp.Initialize(360, 150, goglgmap.CameraPosition.Zoom)
goglgmap.AnimateCamera(cp)
End If
End Sub
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>GPS<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Sub GPS_LocationChanged (Location1 As Location)
lblLat.Text = "Lat = " & Location1.ConvertToMinutes(Location1.Latitude)
lblLon.Text = "Lon = " & Location1.ConvertToMinutes(Location1.Longitude)
lblSpeed.Text = "Speed = " & Location1.Speed
End Sub
Sub GPS_UserEnabled (Enabled As Boolean)
Log("GPS Habilitado")
End Sub
Sub GPS_GpsStatus (Satellites As List)
lblSatellites.Text = "Satelites:" & CRLF
For i = 0 To Satellites.Size - 1
Dim Satellite As GPSSatellite
Satellite = Satellites.Get(i)
lblSatellites.Text = lblSatellites.Text & CRLF & Satellite.Prn & _
" " & Satellite.Snr & " " & Satellite.UsedInFix & " " & Satellite.Azimuth _
& " " & Satellite.Elevation
Next
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
GPS1.Initialize("GPS") ' Initialize GPS
lblLon.Initialize("")
lblLat.Initialize("")
lblSpeed.Initialize("")
lblSatellites.Initialize("")
End If
Activity.LoadLayout("main") ' Carga la interfaz principal
Activity.AddMenuItem("Mostrar/Ocultar Paneles", "ToggleTabs") ' Crea el menu para tabs
Dim height As Int = CalculateHeight(True, True)
vpViewPager.Initialize("vp", 3, 100%x, height)
Activity.AddView(vpViewPager.AsView, 0, 0, 100%x, height) 'load the pages layouts
vpViewPager.Panels(0).LoadLayout("pnlPage1")
vpViewPager.Panels(1).LoadLayout("pnlPage2")
vpViewPager.Panels(2).LoadLayout("pnlPage3")
stdbar.Initialize("bar")
stdbar.NavigationMode = stdbar.NAVIGATION_MODE_TABS
stdbar.AddTab("Principal").Tag = pnlPage1
stdbar.AddTab("Petfriends").Tag = pnlPage2
stdbar.AddTab("Social").Tag = pnlPage3
stdbar.ShowUpIndicator = True
stdbar.SelectedIndex = intcurrentPage
Activity.Title = "Petpopular"
stdbar.Subtitle = "Find your petfriends easy"
OnMyLocationChangeListener1.Initialize("OnMyLocationChangeListener1")
If mFragment.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Google Play services not available.", True)
Else
mFragment.Initialize("Map", pnlPage2)
End If
End Sub
Sub Activity_Resume
If GPS1.GPSEnabled = False Then
ToastMessageShow("Por favor habilite el GPS para una mejor localización.", True)
StartActivity(GPS1.LocationSettingsIntent) 'Will open the relevant settings screen.
Else
GPS1.Start(0, 0) 'Listen to GPS with no filters.
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
GPS1.Stop
intcurrentPage = stdbar.SelectedIndex
End Sub
. 
