Usuário com melhor resposta
Integração do Google Maps

Pergunta
-
Olá Pessoal,
é o seguinte, aqui na minha empresa estamos elaborando um módulo de rastreamento de cargas para nosso projeto,
esse módulo sera feito o seguinte, eu passarei a latitude e longitude e com isso gerarei um mapa da localização do veiculo no Google Maps a questão é como faço para integrar o Google Maps ao sistema da empresa?
Agradeço.
Respostas
-
Olá. O programinha realamente é do José Carlos Macoratti. Só que eu acho que peguei ele no linha de código, mas também não consegui mais achar ele. De qualquer forma, ele é bem simples, só que dá pra voce incrementar bastante.
Com esse código, acredito que dá pra você desenvolver da maneira que você quer.
Code BlockImports
System.textPublic Class
Form1 Dim consultaEndereco As New StringBuilder() Private Sub btnMapsEndereco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapsEndereco.Click Dim cidade As String = String.EmptyDim
estado As String = String.EmptyDim
rua As String = String.EmptyDim
cep As String = String.Empty consultaEndereco.Append("http://maps.google.com/maps?q=") Try ' constroi a consulta pelo nome da cidade If txtCidade.Text <> String.Empty Then cidade = txtCidade.Text.Replace(" ", "+")consultaEndereco.Append(cidade + "," & "+")
End If ' constroi a consulta pelo nome do estado If txtEstado.Text <> String.Empty Then estado = txtEstado.Text.Replace(" ", "+")consultaEndereco.Append(estado + "," & "+")
End If ' constroi a consulta pelo nome da rua If txtRua.Text <> String.Empty Then rua = txtRua.Text.Replace(" ", "+")consultaEndereco.Append(rua + "," & "+")
End If ' constroi a consulta pelo cep informado If txtCep.Text <> String.Empty Then cep = txtCep.Text.ToString()consultaEndereco.Append(cep)
End If ' passa a URL com a string de consulta para o WebBrowser WebBrowser1.Navigate(consultaEndereco.ToString()) Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Localização indisponível para exibição no Mapa.") End TryEnd Sub
Private Sub
btnMapsLatituteLongitude_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapsLatituteLongitude.Click Dim latitude As String = String.EmptyDim
longitude As String = String.EmptyIf
txtLatitude.Text = String.Empty Or txtLongitude.Text = String.Empty Then MessageBox.Show("Forneça um valor para latitude e longitude.", "Google Maps") End If consultaEndereco.Append("http://maps.google.com/maps?q=") Try ' monta a consulta com o valor da latitude If txtLatitude.Text <> String.Empty Then latitude = txtLatitude.TextconsultaEndereco.Append(latitude + "%2C")
End If ' monta a consulta com o valor da longitude If txtLongitude.Text <> String.Empty Then longitude = txtLongitude.TextconsultaEndereco.Append(longitude)
End If WebBrowser1.Navigate(consultaEndereco.ToString()) Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Googe Maps - Erro") End TryEnd Sub
End Class
Espero ter ajudado.
José Antunes
Todas as Respostas
-
-
-
Olá. O programinha realamente é do José Carlos Macoratti. Só que eu acho que peguei ele no linha de código, mas também não consegui mais achar ele. De qualquer forma, ele é bem simples, só que dá pra voce incrementar bastante.
Com esse código, acredito que dá pra você desenvolver da maneira que você quer.
Code BlockImports
System.textPublic Class
Form1 Dim consultaEndereco As New StringBuilder() Private Sub btnMapsEndereco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapsEndereco.Click Dim cidade As String = String.EmptyDim
estado As String = String.EmptyDim
rua As String = String.EmptyDim
cep As String = String.Empty consultaEndereco.Append("http://maps.google.com/maps?q=") Try ' constroi a consulta pelo nome da cidade If txtCidade.Text <> String.Empty Then cidade = txtCidade.Text.Replace(" ", "+")consultaEndereco.Append(cidade + "," & "+")
End If ' constroi a consulta pelo nome do estado If txtEstado.Text <> String.Empty Then estado = txtEstado.Text.Replace(" ", "+")consultaEndereco.Append(estado + "," & "+")
End If ' constroi a consulta pelo nome da rua If txtRua.Text <> String.Empty Then rua = txtRua.Text.Replace(" ", "+")consultaEndereco.Append(rua + "," & "+")
End If ' constroi a consulta pelo cep informado If txtCep.Text <> String.Empty Then cep = txtCep.Text.ToString()consultaEndereco.Append(cep)
End If ' passa a URL com a string de consulta para o WebBrowser WebBrowser1.Navigate(consultaEndereco.ToString()) Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Localização indisponível para exibição no Mapa.") End TryEnd Sub
Private Sub
btnMapsLatituteLongitude_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapsLatituteLongitude.Click Dim latitude As String = String.EmptyDim
longitude As String = String.EmptyIf
txtLatitude.Text = String.Empty Or txtLongitude.Text = String.Empty Then MessageBox.Show("Forneça um valor para latitude e longitude.", "Google Maps") End If consultaEndereco.Append("http://maps.google.com/maps?q=") Try ' monta a consulta com o valor da latitude If txtLatitude.Text <> String.Empty Then latitude = txtLatitude.TextconsultaEndereco.Append(latitude + "%2C")
End If ' monta a consulta com o valor da longitude If txtLongitude.Text <> String.Empty Then longitude = txtLongitude.TextconsultaEndereco.Append(longitude)
End If WebBrowser1.Navigate(consultaEndereco.ToString()) Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Googe Maps - Erro") End TryEnd Sub
End Class
Espero ter ajudado.
José Antunes
-
-
-
-
-
-
-
Olá, eu não entendo nada de Asp.Net. No link abaixo deve ter o que vc. quer, pelo menos adaptar as suas necessidades.
http://blog.donnfelker.com/2007/03/13/CGoogleGeocodeLatitudeAndLongitudeClass.aspx
José Antunes
-