Spanish Varios Registros en googlemaps

E N T E R

Member
Licensed User
Estoy intentando hacer un sistema que por un lado guarde la posicion de varios usuarios y en otro lugar muestre quienes estan cerca. es posible hacer eso? y si podrian ayudarme con algun ejemplo por favor
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola

Podrias hacer algo asi:

B4X:
Sub Process_Globals
Dim GPS_Longitud As Double
Dim GPS_Latitud As Double
..........
.......
..........


Sub Globals
Dim lm As LocationManager ' libreria LocationManager 
..........
.......
..........

Sub Activity_Create(FirstTime As Boolean)
   
   lm.Initialize("Localizacion")

  
   
    

..........
.......
..........

Sub BotonMarchaLocalizacion_Click
' Marcha localización (emplea el que mas te guste, mejor el requestMobileLocation)
       lm.requestMobileLocation ' este emplea todos los metodos incluido wifi
       lm.requestGPSLocation ' solo GPS
End Sub


Sub BotonPararLocalizacion_Click

     ' Si quieres parar la localización emplea esto en algun boton o lo que quieras
     lm.stopMobileListening

     lm.stopGPSListening ' si empleaste este
end sub

Sub BotonComprobarDistancia_Click
    Log("Distancia en metros" & ComprobarDistanciaEntreDosPuntos(LatitudUsuario1,LongitudUsuario1)
End Sub

Sub Localizacion_LocationChanged (Longitude As Double, Latitude As Double, Altitude As Double, Accuracy As Float, Bearing As Float, Provider As String, Speed As Float, Time As Long) 

' Evento al cambiar la localización
   GPS_Latitud = Latitude
   GPS_Longitud = Longitude
   Log("GPS_Latitud " & GPS_Latitud & " GPS_Longitud " & GPS_Longitud)
   
   
End Sub




Sub ComprobarDistanciaEntreDosPuntos(Latitude1 As Double,Longitude1 As Double ) As Double
' CALCULAR DISTANCIA ENTRE PUNTOS libreria gps
Dim Latitude2, Longitude2, Distancia As Double
Dim Location1, Location2 As Location

Location1.Initialize
Location2.Initialize
Location1.Latitude = Latitude1
Location1.Longitude = Longitude1
Location2.Latitude = GPS_Latitud 
Location2.Longitude =  GPS_Longitud 
Distancia = Location1.DistanceTo(Location2) ' viene en metros

Return Distancia

End Sub

Para los usuarios puedes emplear el mismo evento para saber donde estan si no lo sabes ya de antemano

Saludos
 
Top