Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Net
- Public Class Form1
- Private Web As Net.WebClient
- Private Structure struct_Info
- Public Origine As String
- Public destination As String
- Public distance As Single
- Public duration As Integer
- End Structure
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Web = New WebClient
- Web.Encoding = System.Text.Encoding.UTF8
- Dim Info As struct_Info
- Info = Distance("ol3 5rq", "ol8 1xu")
- MsgBox("Origine: " & Info.Origine & vbCrLf & _
- "Destination: " & Info.destination & vbCrLf & _
- "Distance: " & Info.distance & " m" & vbCrLf & _
- "Duration: " & Info.duration & " s")
- End Sub
- Private Function Distance(PostCode1 As String, PostCode2 As String) As struct_Info
- 'mode=driving
- 'mode=bicycling
- 'mode=transit
- 'mode=walking
- Dim mode As String = "driving"
- Dim url As String = "http://maps.googleapis.com/maps/api/distancematrix/json?origins=" & PostCode1 & "&destinations=" & PostCode2 & "&mode=" & mode & "&language=en-EN&sensor=false"
- Dim data As String = Web.DownloadString(url)
- data = data.Replace("(", "") : data = data.Replace(")", "") : data = data.Replace("[", "") : data = data.Replace("]", "") : data = data.Replace("{", "") : data = data.Replace("}", "") : data = data.Replace(":", "")
- Dim splitted() As String = Split(data, """")
- Dim result As struct_Info
- With result
- .Origine = splitted(7)
- .destination = splitted(3)
- .distance = CSng(Val(splitted(20)))
- .duration = CInt(Val(splitted(28)))
- End With
- Return result
- End Function
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement