Google API: Calculate travel duration and distance between two locations using VB.Net in ASP.Net

Viddi

SOLVED CLOSED ACTIVE ANSWERED
User: Viddi
Posted: on Jan 09, 2018 08:24 AM
Forum: ASP.Net Web Forms
Answer: 1
Views: 4276
Sample Code: Download

I am using this code below to calculate the distance and time between 2 locations as answered in a previous question on here.

The thing is that i want to use textboxes on the form which is the postcode for the origin and destination but unable to get it to work correctly i believe it is due to needing to encode the textbox string to utf8 however don’t know how.

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
    Dim url As String = "https://maps.googleapis.com/maps/api/distancematrix/xml?origins=SE9%204QH&destinations=BR7%205QP&key=AIzaSyBojHBt73ZegOGb2Kj8boi0HXMKRyfftVg"
    Dim request As WebRequest = WebRequest.Create(url)
    Using response As WebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
        Using reader As New StreamReader(response.GetResponseStream(), Encoding.UTF8)
            Dim dsResult As New DataSet()
            dsResult.ReadXml(reader)
            lblOriginAddress.Text = dsResult.Tables("DistanceMatrixResponse").Rows(0)("origin_address").ToString()
            lblDestinationAddress.Text = dsResult.Tables("DistanceMatrixResponse").Rows(0)("destination_address").ToString()
            lblDurationText.Text = dsResult.Tables("duration").Rows(0)("text").ToString()
            lblDurationValue.Text = dsResult.Tables("duration").Rows(0)("value").ToString()
            lblDistanceText.Text = dsResult.Tables("distance").Rows(0)("text").ToString()
            lblDistanceValue.Text = dsResult.Tables("distance").Rows(0)("value").ToString()
        End Using
    End Using
End Sub

the text boxes would be origintextbox and destinationtextbox on the form

help would be truely apreciated on this

thanks viddi

dharmend...

0 3

Reply
ANSWER
User: dharmendr
Replied: on Jan 09, 2018 11:23 PM
Report

Hi Viddi,

Check this example. Now please take its reference and correct your code.

HTML

<asp:TextBox ID="txtOrigin" runat="server" Width="250px" Text="Highcombe Cl, London SE9 4QH, UK" />
<asp:TextBox ID="txtDestination" runat="server" Width="250px" Text="Chislehurst BR7 5QP, UK" />
<br />
<asp:Button Text="Calculate" runat="server" OnClick="Calculate" />
<br />
Origin Address:&nbsp;<b><asp:Label ID="lblOriginAddress" runat="server" /></b>
<br />
Destination Address:&nbsp;<b><asp:Label ID="lblDestinationAddress" runat="server" /></b>
<br />
Duration Text:&nbsp;<b><asp:Label ID="lblDurationText" runat="server" /></b>
<br />
Duration Value:&nbsp;<b><asp:Label ID="lblDurationValue" runat="server" /></b>
<br />
Distance Text:&nbsp;<b><asp:Label ID="lblDistanceText" runat="server" /></b>
<br />
Distance Value:&nbsp;<b><asp:Label ID="lblDistanceValue" runat="server" /></b>

VB.Net

Protected Sub Calculate(sender As Object, e As System.EventArgs)
    Dim url As String = String.Format("https://maps.googleapis.com/maps/api/distancematrix/xml?origins={0}&destinations={1}&key=AIzaSyBojHBt73ZegOGb2Kj8boi0HXMKRyfftVg", txtOrigin.Text, txtDestination.Text)
    Dim request As WebRequest = WebRequest.Create(url)
    Using response As WebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
        Using reader As New StreamReader(response.GetResponseStream(), Encoding.UTF8)
            Dim dsResult As New DataSet()
            dsResult.ReadXml(reader)
            lblOriginAddress.Text = dsResult.Tables("DistanceMatrixResponse").Rows(0)("origin_address").ToString()
            lblDestinationAddress.Text = dsResult.Tables("DistanceMatrixResponse").Rows(0)("destination_address").ToString()
            lblDurationText.Text = dsResult.Tables("duration").Rows(0)("text").ToString()
            lblDurationValue.Text = dsResult.Tables("duration").Rows(0)("value").ToString()
            lblDistanceText.Text = dsResult.Tables("distance").Rows(0)("text").ToString()
            lblDistanceValue.Text = dsResult.Tables("distance").Rows(0)("value").ToString()
        End Using
    End Using
End Sub

Screenshot

Google API: Calculate travel duration and distance between two locations using VB.Net in ASP.Net

Company

Explore

Follow us

Contact Us