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: 3282
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

Download FREE API for Word, Excel and PDF in ASP.Net

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

I agree, here is the link: https://www.e-iceblue.com/Introduce/spire-office-for-net-free.html

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

Company

Explore

Follow us

Contact Us