BingRouteIsochroneDataProvider.CalculateIsochroneByDistance(RouteWaypoint, Int32) Method

Calculates an isochrone based on the specified travel distance.

Namespace: DevExpress.XtraMap

Assembly: DevExpress.XtraMap.v23.2.dll

NuGet Package: DevExpress.Win.Map

Declaration

C#

public void CalculateIsochroneByDistance(
    RouteWaypoint waypoint,
    int maxDistance
)

VB.NET

Public Sub CalculateIsochroneByDistance(
    waypoint As RouteWaypoint,
    maxDistance As Integer
)

Parameters

Name	Type	Description
waypoint	RouteWaypoint	Specifies an origin point’s coordinates.
maxDistance	Int32	Specifies the maximum travel distance for which the isochrone polygon is calculated. The default measurement unit is kilometer. Use the BingRouteIsochroneOptions.DistanceUnit property to define the measurement unit.

Remarks

You can specify the following parameters to calculate a distance-based isochrone:

• Travel mode
• Distance measurement unit

Example

The following code plots a polygon that shows the area that is accessible from the specified point. The size of the area depends on a given travel distance (the distance is equal to 10 miles in the example below):

• Create an InformationLayer object and add it to the MapControl.Layers collection.

• Initialize the layer’s InformationLayer.DataProvider property with a BingRouteIsochroneDataProvider object.

• Specify the provider’s BingKey property.

• Define the Mode and DistanceUnit parameters.

• Call the CalculateIsochroneByDistance method to calculate an isochrone.

C#

using DevExpress.XtraMap;
using System;
using System.Windows.Forms;

namespace IsochroneSample {
    public partial class Form1 : Form {

        private void Form1_Load(object sender, EventArgs e) {
            // Create a background image layer.
            ImageLayer imageLayer = new ImageLayer();
            mapControl1.Layers.Add(imageLayer);
            BingMapDataProvider provider = new BingMapDataProvider();
            provider.BingKey = "Insert your Bing key.";
            provider.Kind = BingMapKind.RoadLight;
            imageLayer.DataProvider = provider;

            InformationLayer infoLayer = new InformationLayer();
            mapControl1.Layers.Add(infoLayer);

            BingRouteIsochroneDataProvider isochroneDataProvider = new BingRouteIsochroneDataProvider();
            isochroneDataProvider.BingKey = "Insert your Bing key.";
            GeoPoint origin = new GeoPoint(36.1532403246368, -86.7701703811725);
            mapControl1.CenterPoint = origin;
            isochroneDataProvider.IsochroneOptions.DistanceUnit = DistanceMeasureUnit.Mile;
            isochroneDataProvider.IsochroneOptions.Mode = BingTravelMode.Driving;
            isochroneDataProvider.CalculateIsochroneByDistance(new RouteWaypoint("", origin), 10);
            infoLayer.DataProvider = isochroneDataProvider;

            infoLayer.DataRequestCompleted += OnDataRequestCompleted;
        }

        private void OnDataRequestCompleted(object sender, RequestCompletedEventArgs e) {
            // Call the ZoomToFitLayerItems method to zoom the map so that it displays the created isochrone.
            mapControl1.ZoomToFitLayerItems();
        }
    }
}

VB.NET

Imports DevExpress.XtraMap
Imports System
Imports System.Windows.Forms

Namespace IsochroneSample
    Public Partial Class Form1
        Inherits Form

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
            ' Create a background image layer.
            Dim imageLayer As ImageLayer = New ImageLayer()
            mapControl1.Layers.Add(imageLayer)
            Dim provider As BingMapDataProvider = New BingMapDataProvider()
            provider.BingKey = "Insert your Bing key."
            provider.Kind = BingMapKind.RoadLight
            imageLayer.DataProvider = provider

            Dim infoLayer As InformationLayer = New InformationLayer()
            mapControl1.Layers.Add(infoLayer)
            Dim isochroneDataProvider As BingRouteIsochroneDataProvider = New BingRouteIsochroneDataProvider()
            isochroneDataProvider.BingKey = "Insert your Bing key."
            Dim origin As GeoPoint = New GeoPoint(36.1532403246368, -86.7701703811725)
            mapControl1.CenterPoint = origin
            isochroneDataProvider.IsochroneOptions.DistanceUnit = DistanceMeasureUnit.Mile
            isochroneDataProvider.IsochroneOptions.Mode = BingTravelMode.Driving
            isochroneDataProvider.CalculateIsochroneByDistance(New RouteWaypoint("", origin), 10)
            infoLayer.DataProvider = isochroneDataProvider

            infoLayer.DataRequestCompleted += AddressOf OnDataRequestCompleted
        End Sub

        Private Sub OnDataRequestCompleted(ByVal sender As Object, ByVal e As RequestCompletedEventArgs)
            ' Call the ZoomToFitLayerItems method to zoom the map so that it displays the created isochrone.
            mapControl1.ZoomToFitLayerItems()
        End Sub
    End Class
End Namespace