Entfernung mit Google bestimmen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Alexprivat.

    Entfernung mit Google bestimmen

    Hallo Wissende,

    ich benötige mal Hilfe bei der Entfernungsbestimmung mittels Google. Ich habe also diese Web Adresse:

    maps.googleapis.com/maps/api/d…ematrix/xml?origins=12681 Blumberger Damm 151+DE&destinations=13053 Gehrensee Str. 99+DE&mode=driving&language=de-DE&sensor=false

    die als Ergebnis eine XML auswirft. Mein Tellerrand endet aber bei der Möglichkeit diese Adresse mittels Visual Basic ins Netz zu schicken und natürlich auch dabei die entsprechende Antwort zu empfangen. Könntet Ihr mir bitte hilfreich zur Seite stehen? Finde nicht adäquates im Internetz.

    Danke aus der Stadt

    Etwas altes aus meinen VB-Zeiten, also bitte mich nicht zerreissen.

    VB.NET-Quellcode

    1. Private Function GetGoogleXMLResponse(ByVal source As String, ByVal destination As String, ByVal mode As String) As String
    2. Dim wClient As New WebClient
    3. wClient.Encoding = System.Text.Encoding.UTF8
    4. Return wClient.DownloadString( _
    5. String.Format(" http://maps.googleapis.com/maps/api/distancematrix/xml?origins={0}&destinations={1}&mode={2}&language=de-DE&sensor=false", source, destination, mode))
    6. End Function
    8. Private Sub CalculateDistance()
    9. Dim Fortbewegungsmittel As String = APIMode.Item(cmbMittel.SelectedIndex).ToString 'https://developers.google.com/maps/documentation/distance-matrix/intro?hl=de#travel_modes
    10. APIResponce = GetGoogleXMLResponse(tbStart.Text, tbZiel.Text, Fortbewegungsmittel)
    11. Dim doc As New XmlDocument()
    12. doc.LoadXml(APIResponce)
    13. Try
    14. If doc.DocumentElement.SelectSingleNode("/DistanceMatrixResponse/row/element/status").InnerText.ToString().ToUpper() <> "OK" Then
    15. ToolStripStatusLabel1.Text = "Eine Angabe ist falsch, bitte erneut eingeben."
    16. Else
    17. Dim xnList As XmlNodeList = doc.SelectNodes("/DistanceMatrixResponse")
    18. For Each xn As XmlNode In xnList
    19. If xn("status").InnerText.ToString = "OK" Then
    20. tbOrigin.Text = xn("origin_address").InnerText.ToString
    21. tbDestination.Text = xn("destination_address").InnerText.ToString
    22. tbDuration.Text = doc.DocumentElement.SelectSingleNode("/DistanceMatrixResponse/row/element/duration/text").InnerText
    23. tbDistanz.Text = doc.DocumentElement.SelectSingleNode("/DistanceMatrixResponse/row/element/distance/text").InnerText
    24. ToolStripStatusLabel1.Text = "OK"
    25. End If
    26. Next
    27. End If
    28. Catch ex As Exception
    30. End Try
    31. End Sub

Facebook
Telefonspende