Google Maps : Obtener distancia entre dos puntos

[SISTEMAS VFPSTEAM]

Hola amigos

Les dejo una actualización y mejora de nuestro ejemplo de como agregar múltiples marcadores usando la API de Google Maps, ahora puedes realizar las siguientes funciones:

• Obtener latitud y longitud de una determinada dirección
  
• Obtener la dirección desde latitud y longitud
  
• Obtener la imagen y dirección desde latitud y longitud
  
• Obtener distancia y ruta entre dos puntos
  

Código fuente disponible en el ejemplo y lo puedes usar sin restricciones ni limitaciones

Descargar aquí

VFPSTEAM BI SOLUTIONS

http://www.vfpsteambi.solutions

[Allan Raúl Acuña]

Buen aporte muchas gracias LuisRea

Saludos

Allan Raul Acuña
www.NicEasySoft.info

[Marcelo Barberis]

una consulta, como se puede incluir la direccion de mi ciudad porque en un ejemplo anterior sale la direccion de mexico de entrada 

--

Marcelo Barberis Gutierrez
Sistemas Informaticos
Villa Montes - Bolivia
Telef.: +591-76831064

[SISTEMAS VFPSTEAM]

En el text7 del formulario puedes ingresar el valor inicial o igual cuando se inicia el mapa inicial puedes obtener la latitud y longitud de tu dirección. 

Revisar el método INIT del formulario

Saludos

VFPSTEAM BI SOLUTIONS

[Esteban H]

Muchas Gracias…

 

Saludos.

 

Esteban.

[Marcelo Barberis]

Cuando se habre el form aparece los iconos de vfpsteam y una imagen ubicado en la direccion referenciada q viene del init es decir desde la direccion de su empresa como se puede hacer para q no m muestre los iconos ni imgs de su empresa cuando configuro mi direccion personal

[SISTEMAS VFPSTEAM]

Pon en comentarios el llamado al mapa inicial amigo y puedes en vez de ello mandar llamar al método click del command1 donde puedes ingresar tu propia dirección.

Saludos

[Douglas Sánchez]

Hola buen aporte, hace rato buscaba algo asi.

Este error a que se deberá.? Tengo internet Explorer 8.0, ocurre cada vez que pruebo.

Slds
​

[VFPSTEAM BI SOLUTIONS]

Hola voy a revisarlo ya q lo he probado en varias pcs y no me aparece.

Saludos

[sergio alejandro garcia mendez]

gracias excelente aporte.

--

Sergio A. García
correo tayi...@gmail.com

[Douglas Sánchez]

Hola VFP TEAM BI

Parece que era la Version de ie que tenia instale el 11 y se solucióno.

una consulta: Lo que digite en el Text7 deberia buscar, pero he estado haciendo busquedas en googlle map y lo encuentra, pero cuando lo hago escribiendo ahi, Fallo, por Zero Result.

Saludes

El 23 de agosto de 2016, 10:25, VFPSTEAM BI SOLUTIONS <sist...@enlacesframework.info> escribió:

[Jean Pierre Adonis De La Cruz Garcia]

Es simple amigo, a mi me funciona con problemas en mi sistemas cuando interactuo con Webexplorer

Al Objeto, busca la Propiedad Silent y ponla en .T. y vuelve a ejecutar, y me dices si te funciona para ese caso.

[Javier Bernal]

Tengo el mismo mensaje que el colega dsanchez, me puedes decir el ambiente donde realizaste tu aplicacion, Gracias por la aportacion

[Jose Antonio Blasco]

En mi caso, para búsquedas en España, tengo que poner "Spain", para que lo encuentre.

Tambien me sale el error de Douglas Sanchez.  Probaré el "Silent".

Saludos.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

"No hay camino hacia la libertad, la libertad es el camino" - Indira Gandhi
“Nunca te olvides de sonreír, porque el día que no sonrías  será un día perdido”  -  Charles Chaplin
“Todo el mundo quiere tener un amigo, pero pocos se toman la molestia de ser uno” - Anónimo

[VFPSTEAM BI SOLUTIONS]

Hola he estado revisando en varios sistemas operativos desde 32 y 64 bits y no me ha marcado el error que le aparece al amigo douglas, en todos he estado usando internet explorer 11, verificar si ocurre en versiones anteriores para de igual forma hallar una solución

Saludos

[Jose Antonio Blasco]

Poniendo la propiedad "Silent" en .T., se soluciona.

En mi caso, tengo WXP e IE 8

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

"No hay camino hacia la libertad, la libertad es el camino" - Indira Gandhi
“Nunca te olvides de sonreír, porque el día que no sonrías  será un día perdido”  -  Charles Chaplin
“Todo el mundo quiere tener un amigo, pero pocos se toman la molestia de ser uno” - Anónimo

[VFPSTEAM BI SOLUTIONS]

Ok gracias por el dato voy a subir ese cambio 

Saludos

El 24 de agosto de 2016, 1:36, Jose Antonio Blasco <jabl...@gmail.com> escribió:

Poniendo la propiedad "Silent" en .T., se soluciona.

En mi caso, tengo WXP e IE 8

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

"No hay camino hacia la libertad, la libertad es el camino" - Indira Gandhi
“Nunca te olvides de sonreír, porque el día que no sonrías  será un día perdido”  -  Charles Chaplin
“Todo el mundo quiere tener un amigo, pero pocos se toman la molestia de ser uno” - Anónimo

[VFPSTEAM BI SOLUTIONS]

Hola amigos

Para comentarles que se agrega al proyecto el programa vfps_calcular_distancias que sirve para calcular las distancias entre dos puntos, pasando como parámetro latitudes y longitudes

Pueden descargar la actualización desde aquí

Saludos

[acmc]

Hola,

Estoy utilizando este programa pero tengo un detalle, al darle los datos de origen y destino selecciona una ruta por camino libre y si hago la misma consulta directamente en google maps, me muestra la ruta por el camino de menos tiempo que en este caso es por autopista, ademas en maps se puede mover la ruta para tomar otra, pero en el mapa de fox esto no se puede, habrá alguna forma de especificarle ruta libre o ruta por autopista?

Por otra parte quisiera poder agregar una opción para poder imprimir las instrucciones que muestra de como llegar, anexo imagenes de lo que menciono.

Salu2!!

[acmc]

Encontre la solución en el caso de la ruta por autopista, cuando arma el script para mandar a la api, hay un valor avoidTolls que esta en true, esto es una restricción que le indica que no seleccione el de mejor tiempo, al poner en false, considera la ruta de autopista al ofrecer un mejor tiempo de recorrido. solo tengo que ver la forma de poder seleccionar ambas rutas según lo quiera el usuario.

Sobre como obtener el listado de indicaciones, aún no lo he visto, si alguien me puede orientar se lo agradecere!!

Salu2

[Jose Antonio Blasco]

Hola, a mí cuando utilizo esta opción, de ruta entre 2 puntos, me muestra la lista de indicaciones, en el mapa el punto de partida (A), y el de destino (B), pero no traza sobre el mapa la ruta (la raya azul con el recorrido en el mapa).

Alguien sabe porque pasa esto ?

Gracias y saludos.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

[Geovanny Quirós Castillo]

Buenos días,

yo  lo hago de esta manera en Vb.Net, puede ser que le ayude o le pueda dar  una luz para implementarlo en Fox, quizas  el   problema  esté en el  USER-AGENT

 

Saludos!

 

Private Sub BtnCalcularRuta_Click(sender As Object, e As EventArgs) Handles BtnCalcularRuta.Click

    Dim frmEspere As New FrmEspere

    frmEspere.Show()

    My.Application.DoEvents()

 

    'Creamos un objeto de la clase ruta

    Dim objRuta As New ClsKilometraje

    'Variable que almacenará los datos de la ruta

    Dim DatosRuta() As String

 

    'Llamamos a la función para que nos devuelva los datos

    DatosRuta = objRuta.CalcularRuta(txtOrigen.Text, txtDestino.Text, 0, 0)

 

    'Calculamos el tiempo total de la ruta (en segundos)

    Dim tiempoTotal As Integer = 0

    For Each item In objRuta.DuracionTotal

        tiempoTotal += CInt(item)

    Next

 

    Dim t2 As TimeSpan = TimeSpan.FromSeconds(tiempoTotal)

    Dim TiempoT = t2.Days.ToString() & " días, " & t2.Hours.ToString() & " horas, " & t2.Minutes.ToString() & " minutos, " & t2.Seconds.ToString() & " segundos "

    txtTiempoTotal.Text = TiempoT

 

    'Calculamos la distancia total

    Dim DistanciaTotal As Integer = 0

    For Each item In objRuta.DistanciaTotal

        DistanciaTotal += CInt(item)

    Next

    txtDistanciaTotal.Text = DistanciaTotal / 1000 & " km"

    frmEspere.Close()

 

    Dim MURL As String = "https://www.google.co.cr/maps/dir/'" + txtOrigen.Text.ToString.Trim + "'/'" + txtDestino.Text.ToString.Trim + "'/"

    WebBrowser1.Navigate(MURL, Nothing, Nothing, "User-Agent: Mozilla/5.0")

End Sub