BING MAPS: OBTER A DISTANCIA EM KM ENTRE 2 CEP

GTSDIGITAL2 14/12/2023 06:56:21
#502904
Prezados

Preciso de um código em VB.NET para obter a distancia e tempo que se leva para percorrer com a inserção de 2 CEPs (origem e destino) igual o Google Maps ou Bing Maps informa no mapa.

Estou optando pelo Bing Maps devido ele ser grátis, já a consulta pela API do Google é limitada devido ser paga, correto ?
KERPLUNK 14/12/2023 10:43:59
#502905
Segundo o ChatGPT:

Imports System
Imports System.Net
Imports Newtonsoft.Json.Linq

Module Module1
    Sub Main()
        Dim apiKey As String = "SEU_API_KEY" ' Substitua pelo seu próprio API Key do Google Maps
        Dim origem As String = "CEP_ORIGEM" ' Substitua pelo CEP de origem
        Dim destino As String = "CEP_DESTINO" ' Substitua pelo CEP de destino

        Dim url As String = $"https://maps.googleapis.com/maps/api/distancematrix/json?origins={origem}&destinations={destino}&key={apiKey}"

        Using wc As New WebClient()
            Dim result As String = wc.DownloadString(url)

            Dim json As JObject = JObject.Parse(result)

            Dim distancia As String = json("rows")(0)("elements")(0)("distance")("text").ToString()
            Dim duracao As String = json("rows")(0)("elements")(0)("duration")("text").ToString()

            Console.WriteLine($"Distância: {distancia}")
            Console.WriteLine($"Tempo de percurso: {duracao}")
        End Using
    End Sub
End Module



Me parece ok... experimente aí com sua chave de API.
KERPLUNK 14/12/2023 10:44:34
#502906
E até onde sei o google maps é grátis...
GTSDIGITAL2 14/12/2023 13:51:22
#502907
Funcionou perfeito, muito obrigado
Faça seu login para responder
Voltar