Service Areas Online

This sample demonstrates how to solve the routing problem of finding service areas for one or more facilities. Barriers in the form of points, lines, and polygons, can be placed across the line network to provide alternative optimal service areas. A variety of input parameters to modify the service area problem can be adjusted.

This is a fairly complex sample that has extensive use of XAML and code-behind to demonstrate the closet facility problem. Some of the main classes used in the sample are SimpleFillSymbol, SimpleLineSymbol, SimpleMarkerSymbol, Editor, GraphicsLayer, RouteTask, and RouteClosesFacilityParameters. To use this sample, click on a button to add facilities and barriers. Modify input properties to define the service areas parameters. Click the Solve button to generate results and display them in the map.

XAML

<UserControl x:Class="ArcGISWPFSDK.ServiceAreas"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    xmlns:esri="http://schemas.esri.com/arcgis/client/2009">

    <Grid x:Name="LayoutRoot" Background="White">

        <Grid.Resources>
            <ControlTemplate x:Key="FacilityCompositeSymbol">
                <Grid>
                    <Rectangle RenderTransformOrigin="0.5,0.5" Fill="LightGreen" Width="20" Height="20" Stroke="Black" StrokeThickness="1" />
                    <TextBlock HorizontalAlignment="Center" VerticalAlignment="Center"
                  Text="{Binding Attributes[FacilityNumber]}"
                  FontSize="9" Margin="0" FontWeight="Bold" Foreground="Black" />
                </Grid>
            </ControlTemplate>
            <esri:SimpleMarkerSymbol x:Key="MyFacilitySymbol" Style="Square" 
                                     ControlTemplate="{StaticResource FacilityCompositeSymbol}" />
            <esri:SimpleFillSymbol x:Key="RedFillSymbol" Fill="#44FF0000" BorderBrush="#99000000" BorderThickness="1" />
            <esri:SimpleLineSymbol x:Key="RedLineSymbol" Color="Red" Width="2" Style="Solid" />
            <esri:SimpleMarkerSymbol x:Key="RedMarkerSymbol" Color="Red" Size="12" Style="Circle" />
            <esri:SimpleFillSymbol x:Key="FillSymbol1" Fill="#77FF9999" BorderBrush="#FFFF9999" BorderThickness="2"  />
            <esri:SimpleFillSymbol x:Key="FillSymbol2" Fill="#77FFFF99" BorderBrush="#FFFFFF99" BorderThickness="2"  />
            <esri:SimpleFillSymbol x:Key="FillSymbol3" Fill="#779999FF" BorderBrush="#FF9999FF" BorderThickness="2"  />
            <esri:Editor x:Key="MyBarrierEditor" LayerIDs="MyBarrierGraphicsLayer"  />
            <esri:Editor x:Key="MyFacilityEditor" LayerIDs="MyFacilityGraphicsLayer" SelectionMode="Point" 
                          ContinuousMode="True" EditCompleted="Editor_EditCompleted" />
            <LinearGradientBrush x:Key="PanelGradient" EndPoint="0.5,1" StartPoint="0.5,0">
                <LinearGradientBrush.RelativeTransform>
                    <TransformGroup>
                        <ScaleTransform CenterY="0.5" CenterX="0.5"/>
                        <SkewTransform CenterY="0.5" CenterX="0.5"/>
                        <RotateTransform Angle="176" CenterY="0.5" CenterX="0.5"/>
                        <TranslateTransform/>
                    </TransformGroup>
                </LinearGradientBrush.RelativeTransform>
                <GradientStop Color="#FF145787" Offset="0.16"/>
                <GradientStop Color="#FF3D7FAC" Offset="0.502"/>
                <GradientStop Color="#FF88C5EF" Offset="0.984"/>
            </LinearGradientBrush>
        </Grid.Resources>
        <esri:Map x:Name="MyMap" Background="White" Extent="-117.23,34.03,-117.16,34.08" Loaded="MyMap_Loaded" >
            <esri:Map.Layers>
                <esri:ArcGISTiledMapServiceLayer
                      Url="http://services.arcgisonline.com/ArcGIS/rest/services/ESRI_StreetMap_World_2D/MapServer"/>
                <esri:GraphicsLayer ID="MyServiceAreasGraphicsLayer" />
                <esri:GraphicsLayer ID="MyBarrierGraphicsLayer" />
                <esri:GraphicsLayer ID="MyFacilityGraphicsLayer" />
            </esri:Map.Layers>
        </esri:Map>

        <Border Background="{StaticResource PanelGradient}" BorderThickness="1" CornerRadius="5"
                HorizontalAlignment="Right"  VerticalAlignment="Top"
                Margin="20,20,20,30" Padding="10" BorderBrush="Black">
            <Border.Effect>
                <DropShadowEffect/>
            </Border.Effect>
            <Grid>
                <Grid.RowDefinitions>
                    <RowDefinition MinHeight="80" />
                    <RowDefinition Height="*" />
                </Grid.RowDefinitions>
                <Grid.ColumnDefinitions>
                    <ColumnDefinition Width="150" />
                    <ColumnDefinition Width="*" />
                </Grid.ColumnDefinitions>
                <StackPanel Orientation="Vertical" HorizontalAlignment="Left" Background="Transparent" Margin="5" 
                            Grid.Row="0" Grid.Column="0" VerticalAlignment="Center" >
                    <Button x:Name="AddFacButton" Margin="2" DataContext="{StaticResource MyFacilityEditor}"
                            Content="Add Facility" FontSize="12" Command="{Binding Add}"
                            CommandParameter="{StaticResource MyFacilitySymbol}"/>


                    <Border BorderBrush="White" BorderThickness="1" CornerRadius="5" Margin="5">
                        <StackPanel Orientation="Vertical" Margin="5">
                            <TextBlock x:Name="BarriersRadioButton" 
                                Margin="5,0,0,0" Foreground="White" 
                                FontSize="12" Text="Add Barrier:"/>
                            <StackPanel x:Name="DrawTools" Orientation="Horizontal"
                            DataContext="{StaticResource MyBarrierEditor}">
                                <Button x:Name="SelectButton" Margin="2" 
                            Content="Point" 
                            Command="{Binding Add}" 
                            CommandParameter="{StaticResource RedMarkerSymbol}">
                                </Button>
                                <Button x:Name="AddSelectButton" Margin="2" 
                            Content="Line" 
                            Command="{Binding Add}" 
                            CommandParameter="{StaticResource RedLineSymbol}">
                                </Button>
                                <Button x:Name="RemoveSelectButton" Margin="2" 
                            Content="Polygon"
                            Command="{Binding Add}"
                            CommandParameter="{StaticResource RedFillSymbol}">
                                </Button>
                            </StackPanel>
                        </StackPanel>
                    </Border>
                </StackPanel>
                <Button x:Name="SolveButton" Grid.Row="0" Grid.Column="1" HorizontalAlignment="Center" VerticalAlignment="Center" 
                        Width="120" Height="40" Click="SolveButton_Click" Content="Solve" IsEnabled="False"  
                        FontSize="14" FontWeight="Bold" />
                <Border BorderBrush="White" Grid.Row="1" Grid.ColumnSpan="2" BorderThickness="1" CornerRadius="3" >
                    <ScrollViewer MinHeight="150" BorderThickness="0">
                        <Grid Background="Transparent" Width="328" Margin="12" VerticalAlignment="Center">
                            <Grid.Resources>
                                <Style TargetType="TextBlock">
                                    <Setter Property="Foreground" Value="White"/>
                                    <Setter Property="VerticalAlignment" Value="Center" />
                                </Style>
                            </Grid.Resources>
                            <Grid.ColumnDefinitions>
                                <ColumnDefinition Width="200"/>
                                <ColumnDefinition Width="125" />
                            </Grid.ColumnDefinitions>
                            <Grid.RowDefinitions>
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                                <RowDefinition />
                            </Grid.RowDefinitions>

                            <TextBlock Text="Default Breaks:" Grid.Row="0" Grid.Column="0" Foreground="White"/>
                            <TextBox x:Name="DefaultBreaks" Text="1,2,3" Grid.Row="0" Grid.Column="1" />
                            <TextBlock Text="Exclude Sources From Polygons:" Grid.Row="1" Grid.Column="0" Foreground="White"/>
                            <TextBox x:Name="ExculdeSourcesFromPolygons" Grid.Row="1" Grid.Column="1" />
                            <CheckBox x:Name="MergeSimilarPolygonRanges" Grid.Row="2" Grid.ColumnSpan="2" Foreground="White"
                                                    Content="Merge Similar Polygon Ranges" />
                            <CheckBox x:Name="OverlapLines3" Grid.Row="3" Grid.ColumnSpan="2" Content="Overlap Lines" Foreground="White"
                                                    IsChecked="True"/>
                            <CheckBox x:Name="OverlapPolygons3" Grid.Row="4" Grid.ColumnSpan="2" Content="Overlap Polygons" Foreground="White"
                                                    IsChecked="True"/>
                            <CheckBox x:Name="SplitLinesAtBreaks" Grid.Row="5" Grid.ColumnSpan="2" Content="Split Lines At Breaks" Foreground="White" />
                            <CheckBox x:Name="SplitPolygonsAtBreaks" Grid.Row="6" Grid.ColumnSpan="2" Content="Split Polygons At Breaks" Foreground="White"
                                                    IsChecked="True"/>
                            <CheckBox x:Name="TrimOuterPolygons" Grid.Row="7" Grid.ColumnSpan="2" Foreground="White" Content="Trim Outer Polygons"  
                                                    IsChecked="True"/>
                            <TextBlock Text="Trim Polygon Distance:" Grid.Row="8" Grid.Column="0" Foreground="White"/>
                            <TextBox x:Name="TrimPolygonDistance" Text="100" Grid.Row="8" Grid.Column="1" />
                            <TextBlock Text="Trim Polygon Distance Units:" Grid.Row="9" Grid.Column="0" Foreground="White" />
                            <TextBlock Text="Trim Polygon Distance Units:" Grid.Row="9" Grid.Column="0" Foreground="White" />
                            <ComboBox x:Name="TrimPolygonDistanceUnits" Grid.Row="9" Grid.Column="1">
                                <ComboBoxItem Content="Unknown" IsSelected="True" />
                                <ComboBoxItem Content="Decimal Degrees" />
                                <ComboBoxItem Content="Kilometers" />
                                <ComboBoxItem Content="Meters" />
                                <ComboBoxItem Content="Miles" />
                                <ComboBoxItem Content="Nautical Miles" />
                                <ComboBoxItem Content="Inches" />
                                <ComboBoxItem Content="Points" />
                                <ComboBoxItem Content="Feet" />
                                <ComboBoxItem Content="Yards" />
                                <ComboBoxItem Content="Millimeters" />
                                <ComboBoxItem Content="Centimeters" />
                                <ComboBoxItem Content="Decimeters" />
                            </ComboBox>
                            <TextBlock Text="Output Spatial Reference:" Grid.Row="10" Grid.Column="0" Foreground="White"/>
                            <TextBox x:Name="OutputSpatialReference3" Text="4326" Grid.Row="10" Grid.Column="1" />
                            <TextBlock Text="Accumulate Attribute Names:" Grid.Row="11" Grid.Column="0" Foreground="White" />
                            <TextBox x:Name="AccumulateAttributeNames3" Grid.Row="11" Grid.Column="1" />
                            <TextBlock Text="Impedance Attribute Name:" Grid.Row="12" Grid.Column="0" Foreground="White" />
                            <TextBox x:Name="ImpedanceAttributeName3" Text="Time" Grid.Row="12" Grid.Column="1" />
                            <TextBlock Text="Restriction Attribute Names:" Grid.Row="13" Grid.Column="0" Foreground="White" />
                            <TextBox x:Name="RestrictionAttributeNames3" 
                                                  Text="Non-routeable segments,Avoid passenger ferries,TurnRestriction,OneWay"
                                                  Grid.Row="13" Grid.Column="1" />
                            <TextBlock Text="Attribute Parameter Values:" Grid.Row="14" Grid.Column="0" Foreground="White"/>
                            <ComboBox x:Name="AttributeParameterValues3" Grid.Row="14" Grid.Column="1">
                                <ComboBoxItem Content="None" IsSelected="True" />
                                <ComboBoxItem Content="15 MPH" />
                                <ComboBoxItem Content="20 MPH" />
                                <ComboBoxItem Content="25 MPH" />
                                <ComboBoxItem Content="35 MPH" />
                                <ComboBoxItem Content="45 MPH" />
                                <ComboBoxItem Content="50 MPH" />
                                <ComboBoxItem Content="55 MPH" />
                                <ComboBoxItem Content="65 MPH" />
                                <ComboBoxItem Content="Other Roads" />
                            </ComboBox>
                            <TextBlock Text="Restrict U-Turns:" Grid.Row="15" Grid.Column="0" Foreground="White"/>
                            <ComboBox x:Name="RestrictUTurns3" Grid.Row="15" Grid.Column="1">
                                <ComboBoxItem Content="Allow Backtrack" IsSelected="True" />
                                <ComboBoxItem Content="At Dead Ends Only" />
                                <ComboBoxItem Content="No Backtrack" />
                            </ComboBox>
                            <CheckBox x:Name="ReturnFacilities3" Foreground="White"
                                                    Grid.Row="16" Grid.ColumnSpan="2" Content="Return Facilities" />
                            <CheckBox x:Name="ReturnBarriers3" Foreground="White"
                                                    Grid.Row="17" Grid.ColumnSpan="2" Content="Return Barriers" />
                            <CheckBox x:Name="ReturnPolylineBarriers3" Foreground="White"
                                                    Grid.Row="18" Grid.ColumnSpan="2" Content="Return Polyline Barriers" />
                            <CheckBox x:Name="ReturnPolygonBarriers3" Foreground="White"
                                                    Grid.Row="19" Grid.ColumnSpan="2" Content="Return Polygon Barriers" />
                            <TextBlock Text="Output Lines:" Grid.Row="20" Grid.Column="0" Foreground="White" />
                            <ComboBox x:Name="OutputLines3" Grid.Row="20" Grid.Column="1">
                                <ComboBoxItem Content="None" IsSelected="True" />
                                <ComboBoxItem Content="True Shape" />
                            </ComboBox>
                            <TextBlock Text="Output Polygons:" Grid.Row="21" Grid.Column="0" Foreground="White"  />
                            <ComboBox x:Name="OutputPolygons" Grid.Row="21" Grid.Column="1">
                                <ComboBoxItem Content="None"/>
                                <ComboBoxItem Content="Simplified" IsSelected="True" />
                                <ComboBoxItem Content="Detailed" />
                            </ComboBox>
                            <TextBlock Text="Travel Direction:" Grid.Row="22" Grid.Column="0" Foreground="White"/>
                            <ComboBox x:Name="TravelDirections3" Grid.Row="22" Grid.Column="1">
                                <ComboBoxItem Content="From Facility" IsSelected="True" />
                                <ComboBoxItem Content="To Facility" />
                            </ComboBox>
                            <TextBlock Text="Output Geometry Precision:" Grid.Row="23" Grid.Column="0" Foreground="White"/>
                            <TextBox x:Name="OutputGeometryPrecision3" Grid.Row="23" Grid.Column="1" />
                            <TextBlock Text="Output Geometry Precision Units:" Grid.Row="24" Grid.Column="0" Foreground="White"/>
                            <ComboBox x:Name="OutputGeometryPrecisionUnits3" Grid.Row="24" Grid.Column="1">
                                <ComboBoxItem Content="Unknown" IsSelected="True" />
                                <ComboBoxItem Content="Decimal Degrees" />
                                <ComboBoxItem Content="Kilometers" />
                                <ComboBoxItem Content="Meters" />
                                <ComboBoxItem Content="Miles" />
                                <ComboBoxItem Content="Nautical Miles" />
                                <ComboBoxItem Content="Inches" />
                                <ComboBoxItem Content="Points" />
                                <ComboBoxItem Content="Feet" />
                                <ComboBoxItem Content="Yards" />
                                <ComboBoxItem Content="Millimeters" />
                                <ComboBoxItem Content="Centimeters" />
                                <ComboBoxItem Content="Decimeters" />
                            </ComboBox>
                        </Grid>
                    </ScrollViewer>
                </Border>
            </Grid>
        </Border>

    </Grid>
</UserControl>

C#

using System;
using System.Collections.Generic;
using System.Linq;
using System.Windows;
using System.Windows.Controls;
using ESRI.ArcGIS.Client;
using ESRI.ArcGIS.Client.Geometry;
using ESRI.ArcGIS.Client.Symbols;
using ESRI.ArcGIS.Client.Tasks;
using System.Windows.Media;

namespace ArcGISWPFSDK
{
    public partial class ServiceAreas : UserControl
    {
        private RouteTask myRouteTask;
        private GraphicsLayer facilitiesGraphicsLayer;
        private GraphicsLayer barriersGraphicsLayer;
        List<Graphic> pointBarriers;
        List<Graphic> polylineBarriers;
        List<Graphic> polygonBarriers;
        Random random;

        public ServiceAreas()
        {
            InitializeComponent();

            facilitiesGraphicsLayer = MyMap.Layers["MyFacilityGraphicsLayer"] as GraphicsLayer;
            barriersGraphicsLayer = MyMap.Layers["MyBarrierGraphicsLayer"] as GraphicsLayer;

            myRouteTask = new RouteTask("http://sampleserver3.arcgisonline.com/ArcGIS/rest/services/Network/USA/NAServer/Service%20Area");
            myRouteTask.SolveServiceAreaCompleted += SolveServiceArea_Completed;
            myRouteTask.Failed += SolveServiceArea_Failed;

            pointBarriers = new List<Graphic>();
            polylineBarriers = new List<Graphic>();
            polygonBarriers = new List<Graphic>();

            random = new Random();

        }

        private void SolveButton_Click(object sender, RoutedEventArgs e)
        {
            List<AttributeParameter> aps = new List<AttributeParameter>();
            AttributeParameter ap = GetAttributeParameterValue(AttributeParameterValues3.SelectionBoxItem.ToString());
            if (ap != null)
                aps.Add(ap);

            GenerateBarriers();

            RouteServiceAreaParameters routeParams = new RouteServiceAreaParameters()
            {
                Barriers = pointBarriers.Count > 0 ? pointBarriers : null,
                PolylineBarriers = polylineBarriers.Count > 0 ? polylineBarriers : null,
                PolygonBarriers = polygonBarriers.Count > 0 ? polygonBarriers : null,
                Facilities = facilitiesGraphicsLayer.Graphics,
                //AttributeParameterValues = aps,

                DefaultBreaks = DefaultBreaks.Text,
                ExcludeSourcesFromPolygons = ExculdeSourcesFromPolygons.Text,
                MergeSimilarPolygonRanges = MergeSimilarPolygonRanges.IsChecked.HasValue ? MergeSimilarPolygonRanges.IsChecked.Value : false,
                OutputLines = GetOutputLines(OutputLines3.SelectionBoxItem.ToString()),
                OutputPolygons = GetOutputPolygons(OutputPolygons.SelectionBoxItem.ToString()),
                OverlapLines = OverlapLines3.IsChecked.HasValue ? OverlapLines3.IsChecked.Value : false,
                OverlapPolygons = OverlapPolygons3.IsChecked.HasValue ? OverlapPolygons3.IsChecked.Value : false,

                SplitLineAtBreaks = SplitLinesAtBreaks.IsChecked.HasValue ? SplitLinesAtBreaks.IsChecked.Value : false,
                SplitPolygonsAtBreaks = SplitPolygonsAtBreaks.IsChecked.HasValue ? SplitPolygonsAtBreaks.IsChecked.Value : false,
                TravelDirection = GetFacilityTravelDirections(TravelDirections3.SelectionBoxItem.ToString()),
                TrimOuterPolygon = TrimOuterPolygons.IsChecked.HasValue ? TrimOuterPolygons.IsChecked.Value : false,
                TrimPolygonDistance = string.IsNullOrEmpty(TrimPolygonDistance.Text) ? 0 : double.Parse(TrimPolygonDistance.Text),
                TrimPolygonDistanceUnits = GetUnits(TrimPolygonDistanceUnits.SelectionBoxItem.ToString()),

                ReturnFacilities = ReturnFacilities3.IsChecked.HasValue ? ReturnFacilities3.IsChecked.Value : false,
                ReturnBarriers = ReturnBarriers3.IsChecked.HasValue ? ReturnBarriers3.IsChecked.Value : false,
                ReturnPolylineBarriers = ReturnPolylineBarriers3.IsChecked.HasValue ? ReturnPolylineBarriers3.IsChecked.Value : false,
                ReturnPolygonBarriers = ReturnPolygonBarriers3.IsChecked.HasValue ? ReturnPolygonBarriers3.IsChecked.Value : false,
                OutSpatialReference = string.IsNullOrEmpty(OutputSpatialReference3.Text) ? null : new SpatialReference(int.Parse(OutputSpatialReference3.Text)),

                AccumulateAttributes = string.IsNullOrEmpty(AccumulateAttributeNames3.Text) ? null : AccumulateAttributeNames3.Text.Split(','),
                ImpedanceAttribute = string.IsNullOrEmpty(ImpedanceAttributeName3.Text) ? string.Empty : ImpedanceAttributeName3.Text,
                RestrictionAttributes = string.IsNullOrEmpty(RestrictionAttributeNames3.Text) ? null : RestrictionAttributeNames3.Text.Split(','),
                RestrictUTurns = GetRestrictUTurns(RestrictUTurns3.SelectionBoxItem.ToString()),
                OutputGeometryPrecision = string.IsNullOrEmpty(OutputGeometryPrecision3.Text) ? 0 : double.Parse(OutputGeometryPrecision3.Text),
                OutputGeometryPrecisionUnits = GetUnits(OutputGeometryPrecisionUnits3.SelectionBoxItem.ToString())
            };

            if (myRouteTask.IsBusy)
                myRouteTask.CancelAsync();

            myRouteTask.SolveServiceAreaAsync(routeParams);
        }

        public void GenerateBarriers()
        {
            foreach (Graphic g in barriersGraphicsLayer)
            {
                Type gType = g.Geometry.GetType();

                if (gType == typeof(MapPoint))
                    pointBarriers.Add(g);
                else if (gType == typeof(Polyline))
                    polylineBarriers.Add(g);
                else if (gType == typeof(Polygon) || gType == typeof(Envelope))
                    polygonBarriers.Add(g);
            }
        }

        private AttributeParameter GetAttributeParameterValue(string attributeParamSelection)
        {
            return new AttributeParameter { value = attributeParamSelection };
        }

        private void SolveServiceArea_Completed(object sender, RouteEventArgs e)
        {
            GraphicsLayer routeLayer = MyMap.Layers["MyServiceAreasGraphicsLayer"] as GraphicsLayer;
            routeLayer.Graphics.Clear();
            if (e.ServiceAreaPolygons != null)
            {
                foreach (Graphic g in e.ServiceAreaPolygons)
                {
                    SimpleFillSymbol symbol = new SimpleFillSymbol()
                    {
                        Fill = new SolidColorBrush(Color.FromArgb(100, (byte)random.Next(0, 255), (byte)random.Next(0, 255), (byte)random.Next(0, 255))),
                        BorderBrush = new SolidColorBrush(Colors.Transparent),
                        BorderThickness = 1
                    };

                    g.Symbol = symbol;
                    routeLayer.Graphics.Add(g);
                }
            }
            if (e.ServiceAreaPolylines != null)
            {
                foreach (Graphic g in e.ServiceAreaPolylines)
                {
                    SimpleLineSymbol symbol = new SimpleLineSymbol()
                    {
                        Color = new SolidColorBrush(Color.FromArgb(100, (byte)random.Next(0, 255), (byte)random.Next(0, 255), (byte)random.Next(0, 255))),
                        Width = 1,
                    };

                    g.Symbol = symbol;
                    routeLayer.Graphics.Add(g);
                }
            }
        }

        private void SolveServiceArea_Failed(object sender, TaskFailedEventArgs e)
        {
            MessageBox.Show("Network Analysis error: " + e.Error.Message);
        }

        private void Editor_EditCompleted(object sender, Editor.EditEventArgs e)
        {
            if (e.Action == Editor.EditAction.Add)
            {
                e.Edits.ElementAt(0).Graphic.Attributes.Add("FacilityNumber",
                    (e.Edits.ElementAt(0).Layer as GraphicsLayer).Graphics.Count);

                SolveButton.IsEnabled = true;
            }
        }

        private void MyMap_Loaded(object sender, RoutedEventArgs e)
        {
            ESRI.ArcGIS.Client.Editor myBarrierEditor = LayoutRoot.Resources["MyBarrierEditor"] as ESRI.ArcGIS.Client.Editor;
            myBarrierEditor.Map = MyMap;
            ESRI.ArcGIS.Client.Editor myFacilityEditor = LayoutRoot.Resources["MyFacilityEditor"] as ESRI.ArcGIS.Client.Editor;
            myFacilityEditor.Map = MyMap;
        }

        private string GetOutputLines(string outputLineSelection)
        {
            string result = "esriNAOutputLineNone";
            switch (outputLineSelection.ToLower())
            {
                case "none":
                    result = "esriNAOutputLineNone";
                    break;
                case "true shape":
                    result = "esriNAOutputLineTrueShape";
                    break;
                default:
                    break;
            }
            return result;
        }

        private string GetOutputPolygons(string outputPolygonSelection)
        {
            string result = "esriNAOutputPolygonNone";
            switch (outputPolygonSelection.ToLower())
            {
                case "none":
                    result = "esriNAOutputPolygonNone";
                    break;
                case "simplified":
                    result = "esriNAOutputPolygonSimplified";
                    break;
                case "detailed":
                    result = "esriNAOutputPolygonDetailed";
                    break;
                default:
                    break;
            }
            return result;
        }

        private FacilityTravelDirection GetFacilityTravelDirections(string directionSelection)
        {
            FacilityTravelDirection ftd = FacilityTravelDirection.TravelDirectionToFacility;
            switch (directionSelection.ToLower())
            {
                case "to facility":
                    ftd = FacilityTravelDirection.TravelDirectionToFacility;
                    break;
                case "from facility":
                    ftd = FacilityTravelDirection.TravelDirectionFromFacility;
                    break;
                default:
                    break;
            }
            return ftd;
        }

        private esriUnits GetUnits(string unitsSelection)
        {
            esriUnits units = esriUnits.esriUnknownUnits;
            switch (unitsSelection.ToLower())
            {
                case "unknown":
                    units = esriUnits.esriUnknownUnits;
                    break;
                case "decimal degrees":
                    units = esriUnits.esriDecimalDegrees;
                    break;
                case "kilometers":
                    units = esriUnits.esriKilometers;
                    break;
                case "meters":
                    units = esriUnits.esriMeters;
                    break;
                case "miles":
                    units = esriUnits.esriMiles;
                    break;
                case "nautical miles":
                    units = esriUnits.esriNauticalMiles;
                    break;
                case "inches":
                    units = esriUnits.esriInches;
                    break;
                case "points":
                    units = esriUnits.esriPoints;
                    break;
                case "feet":
                    units = esriUnits.esriFeet;
                    break;
                case "yards":
                    units = esriUnits.esriYards;
                    break;
                case "millimeters":
                    units = esriUnits.esriMillimeters;
                    break;
                case "centimeters":
                    units = esriUnits.esriCentimeters;
                    break;
                case "decimeters":
                    units = esriUnits.esriDecimeters;
                    break;
                default:
                    break;
            }
            return units;
        }

        private string GetRestrictUTurns(string restrictUTurns)
        {
            string result = "esriNFSBAllowBacktrack";
            switch (restrictUTurns.ToLower())
            {
                case "allow backtrack":
                    result = "esriNFSBAllowBacktrack";
                    break;
                case "at dead ends only":
                    result = "esriNFSBAtDeadEndsOnly";
                    break;
                case "no backtrack":
                    result = "esriNFSBNoBacktrack";
                    break;
                default:
                    break;
            }
            return result;
        }
    }
}

VB.NET

Imports System.Collections.Generic
Imports System.Linq
Imports System.Windows
Imports System.Windows.Controls
Imports ESRI.ArcGIS.Client
Imports ESRI.ArcGIS.Client.Geometry
Imports ESRI.ArcGIS.Client.Symbols
Imports ESRI.ArcGIS.Client.Tasks
Imports System.Windows.Media

Namespace ArcGISWPFSDK
    Partial Public Class ServiceAreas
        Inherits UserControl
        Private myRouteTask As RouteTask
        Private facilitiesGraphicsLayer As GraphicsLayer
        Private barriersGraphicsLayer As GraphicsLayer
        Private pointBarriers As List(Of Graphic)
        Private polylineBarriers As List(Of Graphic)
        Private polygonBarriers As List(Of Graphic)
        Private random As Random

        Public Sub New()
            InitializeComponent()

            facilitiesGraphicsLayer = TryCast(MyMap.Layers("MyFacilityGraphicsLayer"), GraphicsLayer)
            barriersGraphicsLayer = TryCast(MyMap.Layers("MyBarrierGraphicsLayer"), GraphicsLayer)

            myRouteTask = New RouteTask("http://sampleserver3.arcgisonline.com/ArcGIS/rest/services/Network/USA/NAServer/Service%20Area")
            AddHandler myRouteTask.SolveServiceAreaCompleted, AddressOf SolveServiceArea_Completed
            AddHandler myRouteTask.Failed, AddressOf SolveServiceArea_Failed

            pointBarriers = New List(Of Graphic)()
            polylineBarriers = New List(Of Graphic)()
            polygonBarriers = New List(Of Graphic)()


            random = New Random()
        End Sub

        Private Sub SolveButton_Click(sender As Object, e As RoutedEventArgs)
            Dim aps As New List(Of AttributeParameter)()
            Dim ap As AttributeParameter = GetAttributeParameterValue(AttributeParameterValues3.SelectionBoxItem.ToString())
            If ap IsNot Nothing Then
                aps.Add(ap)
            End If

            GenerateBarriers()

            'AttributeParameterValues = aps,




            Dim routeParams As New RouteServiceAreaParameters() With { _
             .Barriers = If(pointBarriers.Count > 0, pointBarriers, Nothing), _
             .PolylineBarriers = If(polylineBarriers.Count > 0, polylineBarriers, Nothing), _
             .PolygonBarriers = If(polygonBarriers.Count > 0, polygonBarriers, Nothing), _
             .Facilities = facilitiesGraphicsLayer.Graphics, _
             .DefaultBreaks = DefaultBreaks.Text, _
             .ExcludeSourcesFromPolygons = ExculdeSourcesFromPolygons.Text, _
             .MergeSimilarPolygonRanges = If(MergeSimilarPolygonRanges.IsChecked.HasValue, MergeSimilarPolygonRanges.IsChecked.Value, False), _
             .OutputLines = GetOutputLines(OutputLines3.SelectionBoxItem.ToString()), _
             .OutputPolygons = GetOutputPolygons(OutputPolygons.SelectionBoxItem.ToString()), _
             .OverlapLines = If(OverlapLines3.IsChecked.HasValue, OverlapLines3.IsChecked.Value, False), _
             .OverlapPolygons = If(OverlapPolygons3.IsChecked.HasValue, OverlapPolygons3.IsChecked.Value, False), _
             .SplitLineAtBreaks = If(SplitLinesAtBreaks.IsChecked.HasValue, SplitLinesAtBreaks.IsChecked.Value, False), _
             .SplitPolygonsAtBreaks = If(SplitPolygonsAtBreaks.IsChecked.HasValue, SplitPolygonsAtBreaks.IsChecked.Value, False), _
             .TravelDirection = GetFacilityTravelDirections(TravelDirections3.SelectionBoxItem.ToString()), _
             .TrimOuterPolygon = If(TrimOuterPolygons.IsChecked.HasValue, TrimOuterPolygons.IsChecked.Value, False), _
             .TrimPolygonDistance = If(String.IsNullOrEmpty(TrimPolygonDistance.Text), 0, Double.Parse(TrimPolygonDistance.Text)), _
             .TrimPolygonDistanceUnits = GetUnits(TrimPolygonDistanceUnits.SelectionBoxItem.ToString()), _
             .ReturnFacilities = If(ReturnFacilities3.IsChecked.HasValue, ReturnFacilities3.IsChecked.Value, False), _
             .ReturnBarriers = If(ReturnBarriers3.IsChecked.HasValue, ReturnBarriers3.IsChecked.Value, False), _
             .ReturnPolylineBarriers = If(ReturnPolylineBarriers3.IsChecked.HasValue, ReturnPolylineBarriers3.IsChecked.Value, False), _
             .ReturnPolygonBarriers = If(ReturnPolygonBarriers3.IsChecked.HasValue, ReturnPolygonBarriers3.IsChecked.Value, False), _
             .OutSpatialReference = If(String.IsNullOrEmpty(OutputSpatialReference3.Text), Nothing, New SpatialReference(Integer.Parse(OutputSpatialReference3.Text))), _
             .AccumulateAttributes = If(String.IsNullOrEmpty(AccumulateAttributeNames3.Text), Nothing, AccumulateAttributeNames3.Text.Split(","c)), _
             .ImpedanceAttribute = If(String.IsNullOrEmpty(ImpedanceAttributeName3.Text), String.Empty, ImpedanceAttributeName3.Text), _
             .RestrictionAttributes = If(String.IsNullOrEmpty(RestrictionAttributeNames3.Text), Nothing, RestrictionAttributeNames3.Text.Split(","c)), _
             .RestrictUTurns = GetRestrictUTurns(RestrictUTurns3.SelectionBoxItem.ToString()), _
             .OutputGeometryPrecision = If(String.IsNullOrEmpty(OutputGeometryPrecision3.Text), 0, Double.Parse(OutputGeometryPrecision3.Text)), _
             .OutputGeometryPrecisionUnits = GetUnits(OutputGeometryPrecisionUnits3.SelectionBoxItem.ToString()) _
            }

            If myRouteTask.IsBusy Then
                myRouteTask.CancelAsync()
            End If

            myRouteTask.SolveServiceAreaAsync(routeParams)
        End Sub

        Public Sub GenerateBarriers()
            For Each g As Graphic In barriersGraphicsLayer
                Dim gType As Type = g.Geometry.[GetType]()

                If gType Is GetType(MapPoint) Then
                    pointBarriers.Add(g)
                ElseIf gType Is GetType(Polyline) Then
                    polylineBarriers.Add(g)
                ElseIf gType Is GetType(Polygon) OrElse gType Is GetType(Envelope) Then
                    polygonBarriers.Add(g)
                End If
            Next
        End Sub

        Private Function GetAttributeParameterValue(attributeParamSelection As String) As AttributeParameter
            Return New AttributeParameter() With { _
             .value = attributeParamSelection _
            }
        End Function

        Private Sub SolveServiceArea_Completed(sender As Object, e As RouteEventArgs)
            Dim routeLayer As GraphicsLayer = TryCast(MyMap.Layers("MyServiceAreasGraphicsLayer"), GraphicsLayer)
            routeLayer.Graphics.Clear()
            If e.ServiceAreaPolygons IsNot Nothing Then
                For Each g As Graphic In e.ServiceAreaPolygons
                    Dim symbol As New SimpleFillSymbol() With { _
                     .Fill = New SolidColorBrush(Color.FromArgb(100, CByte(random.[Next](0, 255)), CByte(random.[Next](0, 255)), CByte(random.[Next](0, 255)))), _
                     .BorderBrush = New SolidColorBrush(Colors.Transparent), _
                     .BorderThickness = 1 _
                    }

                    g.Symbol = symbol
                    routeLayer.Graphics.Add(g)
                Next
            End If
            If e.ServiceAreaPolylines IsNot Nothing Then
                For Each g As Graphic In e.ServiceAreaPolylines
                    Dim symbol As New SimpleLineSymbol() With { _
                     .Color = New SolidColorBrush(Color.FromArgb(100, CByte(random.[Next](0, 255)), CByte(random.[Next](0, 255)), CByte(random.[Next](0, 255)))), _
                     .Width = 1 _
                    }

                    g.Symbol = symbol
                    routeLayer.Graphics.Add(g)
                Next
            End If
        End Sub

        Private Sub SolveServiceArea_Failed(sender As Object, e As TaskFailedEventArgs)
            MessageBox.Show("Network Analysis error: " & e.[Error].Message)
        End Sub

        Private Sub Editor_EditCompleted(sender As Object, e As Editor.EditEventArgs)
            If e.Action = Editor.EditAction.Add Then
                e.Edits.ElementAt(0).Graphic.Attributes.Add("FacilityNumber", TryCast(e.Edits.ElementAt(0).Layer, GraphicsLayer).Graphics.Count)

                SolveButton.IsEnabled = True
            End If
        End Sub

        Private Sub MyMap_Loaded(sender As Object, e As RoutedEventArgs)
            Dim myBarrierEditor As ESRI.ArcGIS.Client.Editor = TryCast(LayoutRoot.Resources("MyBarrierEditor"), ESRI.ArcGIS.Client.Editor)
            myBarrierEditor.Map = MyMap
            Dim myFacilityEditor As ESRI.ArcGIS.Client.Editor = TryCast(LayoutRoot.Resources("MyFacilityEditor"), ESRI.ArcGIS.Client.Editor)
            myFacilityEditor.Map = MyMap
        End Sub

        Private Function GetOutputLines(outputLineSelection As String) As String
            Dim result As String = "esriNAOutputLineNone"
            Select Case outputLineSelection.ToLower()
                Case "none"
                    result = "esriNAOutputLineNone"
                    Exit Select
                Case "true shape"
                    result = "esriNAOutputLineTrueShape"
                    Exit Select
                Case Else
                    Exit Select
            End Select
            Return result
        End Function

        Private Function GetOutputPolygons(outputPolygonSelection As String) As String
            Dim result As String = "esriNAOutputPolygonNone"
            Select Case outputPolygonSelection.ToLower()
                Case "none"
                    result = "esriNAOutputPolygonNone"
                    Exit Select
                Case "simplified"
                    result = "esriNAOutputPolygonSimplified"
                    Exit Select
                Case "detailed"
                    result = "esriNAOutputPolygonDetailed"
                    Exit Select
                Case Else
                    Exit Select
            End Select
            Return result
        End Function

        Private Function GetFacilityTravelDirections(directionSelection As String) As FacilityTravelDirection
            Dim ftd As FacilityTravelDirection = FacilityTravelDirection.TravelDirectionToFacility
            Select Case directionSelection.ToLower()
                Case "to facility"
                    ftd = FacilityTravelDirection.TravelDirectionToFacility
                    Exit Select
                Case "from facility"
                    ftd = FacilityTravelDirection.TravelDirectionFromFacility
                    Exit Select
                Case Else
                    Exit Select
            End Select
            Return ftd
        End Function

        Private Function GetUnits(unitsSelection As String) As esriUnits
            Dim units As esriUnits = esriUnits.esriUnknownUnits
            Select Case unitsSelection.ToLower()
                Case "unknown"
                    units = esriUnits.esriUnknownUnits
                    Exit Select
                Case "decimal degrees"
                    units = esriUnits.esriDecimalDegrees
                    Exit Select
                Case "kilometers"
                    units = esriUnits.esriKilometers
                    Exit Select
                Case "meters"
                    units = esriUnits.esriMeters
                    Exit Select
                Case "miles"
                    units = esriUnits.esriMiles
                    Exit Select
                Case "nautical miles"
                    units = esriUnits.esriNauticalMiles
                    Exit Select
                Case "inches"
                    units = esriUnits.esriInches
                    Exit Select
                Case "points"
                    units = esriUnits.esriPoints
                    Exit Select
                Case "feet"
                    units = esriUnits.esriFeet
                    Exit Select
                Case "yards"
                    units = esriUnits.esriYards
                    Exit Select
                Case "millimeters"
                    units = esriUnits.esriMillimeters
                    Exit Select
                Case "centimeters"
                    units = esriUnits.esriCentimeters
                    Exit Select
                Case "decimeters"
                    units = esriUnits.esriDecimeters
                    Exit Select
                Case Else
                    Exit Select
            End Select
            Return units
        End Function

        Private Function GetRestrictUTurns(restrictUTurns As String) As String
            Dim result As String = "esriNFSBAllowBacktrack"
            Select Case restrictUTurns.ToLower()
                Case "allow backtrack"
                    result = "esriNFSBAllowBacktrack"
                    Exit Select
                Case "at dead ends only"
                    result = "esriNFSBAtDeadEndsOnly"
                    Exit Select
                Case "no backtrack"
                    result = "esriNFSBNoBacktrack"
                    Exit Select
                Case Else
                    Exit Select
            End Select
            Return result
        End Function
    End Class
End Namespace