Obter latitude e longitude de um endereço no Google Maps com um Windows Form

Question

Olá Pessoal,

Estou precisando criar um aplicativo que percorra os registro de um gridview e para cada registro ele obtenha as coordenadas de latitude e longitude do endereço informado no registro.

Tentei utilizar o código apresentado neste link http://www.stormconsultancy.co.uk/blog/development/code-snippets/using-google-maps-api-to-get-latitude-longitude-co-ordinates-from-postcode-or-address/

porém o mesmo está em c# e ao converter pra vb.net não conseguir compreender o funcionamento do mesmo.

Alguém poderia me dar uma ajuda nisso ai, pesquisei vários tópicos, mas todos são direcionados para WEBFORM.

Atenciosamente,

Abilio Aguiar

---

Abilio Aguiar

Answer 1

Cole um imagem do Seu Grid?

E especifique nele como você quer?

Passe também sua conversão que agora ta no VB.NET?

---

Fulvio Cezar Canducci Dias

Answer 2

Olá Fúlvio,

Segue as informações que solicitou e a imagem do grid. Basicamente eu preciso achar a latitude e longitude de cada registro do grid para calcular a distância de cada um deles em relação a um determinado ponto pré-definido o qual já possuo as coordenadas.

Public Class LatLng
	Public Property Latitude() As Double
		Get
			Return m_Latitude
		End Get
		Set
			m_Latitude = Value
		End Set
	End Property
	Private m_Latitude As Double
	Public Property Longitude() As Double
		Get
			Return m_Longitude
		End Get
		Set
			m_Longitude = Value
		End Set
	End Property
	Private m_Longitude As Double

	Public Sub New()
	End Sub

	Public Sub New(lat As Double, lng As Double)
		Me.Latitude = lat
		Me.Longitude = lng
	End Sub
End Class

Imports System.IO
Imports System.Net
Imports System.Web
Imports Storm.Common.Utils.Extensions

Public Class GoogleMaps
	Private API_KEY As String = String.Empty

	Public Sub New(api_key As String)
		Me.API_KEY = api_key
	End Sub

	Public Sub SetApiKey(key As String)
		If key.IsNullOrEmpty() Then
			Throw New ArgumentException("API Key is invalid")
		End If

		Me.API_KEY = key
	End Sub

	''' <summary>
	''' Perform a geocode lookup of an address
	''' </summary>
	''' <param name="addr">The address in CSV form line1, line2, postcode</param>
	''' <param name="output">CSV or XML</param>
	''' <returns>LatLng object</returns>
	Public Function GetLatLng(addr As String) As LatLng
		Dim url = "http://maps.google.co.uk/maps/geo?output=csv&key=" & Me.API_KEY & "&q=" & HttpContext.Current.Server.UrlEncode(addr)

		Dim request = WebRequest.Create(url)
		Dim response = DirectCast(request.GetResponse(), HttpWebResponse)

		If response.StatusCode = HttpStatusCode.OK Then

			Dim ms = New MemoryStream()
			Dim responseStream = response.GetResponseStream()

			Dim buffer = New [Byte](2047) {}
			Dim count As Integer = responseStream.Read(buffer, 0, buffer.Length)

			While count > 0
				ms.Write(buffer, 0, count)
				count = responseStream.Read(buffer, 0, buffer.Length)
			End While

			responseStream.Close()
			ms.Close()

			Dim responseBytes = ms.ToArray()
			Dim encoding = New System.Text.ASCIIEncoding()

			Dim coords = encoding.GetString(responseBytes)
			Dim parts = coords.Split(",")

			Return New LatLng(Convert.ToDouble(parts(2)), Convert.ToDouble(parts(3)))
		End If

		Return Nothing
	End Function
End Class

---

Abilio Aguiar

Answer 3

OK, Entendi !!!

Mas quais campos você utiliza e qual a duvida ?

---

Fulvio Cezar Canducci Dias