none
Integração do Google Maps RRS feed

  • 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.

    quinta-feira, 1 de novembro de 2007 12:24

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 Block

    Imports System.text

    Public 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.Empty

    Dim estado As String = String.Empty

    Dim rua As String = String.Empty

    Dim 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 Try

     

     

    End Sub

    Private Sub btnMapsLatituteLongitude_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapsLatituteLongitude.Click

    Dim latitude As String = String.Empty

    Dim longitude As String = String.Empty

    If 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.Text

    consultaEndereco.Append(latitude + "%2C")

    End If

    ' monta a consulta com o valor da longitude

    If txtLongitude.Text <> String.Empty Then

    longitude = txtLongitude.Text

    consultaEndereco.Append(longitude)

    End If

    WebBrowser1.Navigate(consultaEndereco.ToString())

    Catch ex As Exception

    MessageBox.Show(ex.Message.ToString(), "Googe Maps - Erro")

    End Try

    End Sub

    End Class

     

     

    Espero ter ajudado.

    José Antunes

    quinta-feira, 1 de novembro de 2007 17:26

Todas as Respostas

  • Olá, O que vc. tá querendo encontra-se no site do Macoratti. Eu aqui até fiz um exemplo e funcionou beleza.

    José Antunes

    quinta-feira, 1 de novembro de 2007 13:48
  • Cara eu procurei e não achei nada a respeito.....acho que ja pode ter sido removido....

    vc pode me dar uma base para começar??

    Abraço.

    quinta-feira, 1 de novembro de 2007 16:53
  • 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 Block

    Imports System.text

    Public 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.Empty

    Dim estado As String = String.Empty

    Dim rua As String = String.Empty

    Dim 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 Try

     

     

    End Sub

    Private Sub btnMapsLatituteLongitude_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapsLatituteLongitude.Click

    Dim latitude As String = String.Empty

    Dim longitude As String = String.Empty

    If 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.Text

    consultaEndereco.Append(latitude + "%2C")

    End If

    ' monta a consulta com o valor da longitude

    If txtLongitude.Text <> String.Empty Then

    longitude = txtLongitude.Text

    consultaEndereco.Append(longitude)

    End If

    WebBrowser1.Navigate(consultaEndereco.ToString())

    Catch ex As Exception

    MessageBox.Show(ex.Message.ToString(), "Googe Maps - Erro")

    End Try

    End Sub

    End Class

     

     

    Espero ter ajudado.

    José Antunes

    quinta-feira, 1 de novembro de 2007 17:26
  • valeu cara.....acho ue isso deve resolver...

     

    so mais uma coisa..o que é esse WebBrownser1.Navigate?

    falow..abraço...

    quinta-feira, 1 de novembro de 2007 20:28
  •  

    Boa tarde. Então, o WebBrownser1 (como o nome já diz)é o controle web que vai mostrar  as informações solicitadas ao Google Maps. Se vc. tiver alguma dificuldade eu te passo o projeto completo.

    quinta-feira, 1 de novembro de 2007 20:54
  • Eu nunca vi esse controle...como faço para poder utilizar ele??

    eu programo em C# tem algum problema??

    Agradço.

    quinta-feira, 1 de novembro de 2007 21:07
  • Tem esse controle sim, logo depois do controle TreeView, é o WebBtowser. Tanto em C# quanto em VB.net ele existe.

    quinta-feira, 1 de novembro de 2007 22:01
  • Ha, esqueci de dizer, caso ele não esteja no ToolBox, vá em ChooseToolBoxItens e adicione ele. Talvez vc. não esteja achando por isso.

    quinta-feira, 1 de novembro de 2007 22:03
  • valeu cara...mas parece que esse controle é so para windows forms, eu trabalgo com asp.net..
    de qualquer forma agradeço...
    falow...abraço..
    sexta-feira, 2 de novembro de 2007 11:46
  • 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

    sábado, 3 de novembro de 2007 12:27
  • Blz cara..agradeço....

    falow...abraço...

    segunda-feira, 5 de novembro de 2007 11:24