Weather Underground Widget

This Operations Dashboard for ArcGISsample demonstrates how to implement a custom widget that implements IMapConsumer, and shows weather observations for the center of a map widget.

Operations Dashboard for ArcGIS samples are supported only in Visual Studio 2012. A live preview is not available.

To run this sample, you must first sign up free for a Weather Underground developer key and enter it in the source code. Open the solution in Visual Studio 2012, and enter your developer key in the widget source code where indicated. Then set the Start Action and Start Options debug options in the Project Properties as described in the Testing add-ins help topic, and build and run the project.

XAML

<UserControl x:Class="WundergroundWidgetCS.WeatherUndergroundWidget"
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
             xmlns:opsDash="clr-namespace:ESRI.ArcGIS.OperationsDashboard;assembly=ESRI.ArcGIS.OperationsDashboard"
             xmlns:c="clr-namespace:WundergroundWidgetCS.ValueConverters"
             mc:Ignorable="d"
             d:DesignHeight="300"
             d:DesignWidth="300">
  <UserControl.Resources>
    
    <Style x:Key="LabelFontStyle" TargetType="TextBlock" BasedOn="{StaticResource {x:Type TextBlock}}">
      <Setter Property="Margin" Value="0,5,5,5" />
      <Setter Property="FontFamily" Value="Segoe UI" />
      <Setter Property="FontWeight" Value="Bold" />
      <Setter Property="Foreground" Value="{DynamicResource ThemedSecondaryTextBrush}" />
    </Style>

    <Style x:Key="ValueFontStyle" TargetType="TextBlock" BasedOn="{StaticResource {x:Type TextBlock}}">
      <Setter Property="Margin" Value="0,5,5,5" />
      <Setter Property="FontFamily" Value="Segoe UI" />
      <Setter Property="FontWeight" Value="Bold" />
      <Setter Property="Foreground" Value="{DynamicResource ThemedForegroundBrush}" />
    </Style>

    <Style x:Key="TabRadioButtonStyle" TargetType="{x:Type RadioButton}">
      <Setter Property="Foreground" Value="{DynamicResource {x:Static SystemColors.ControlTextBrushKey}}"/>
      <Setter Property="Background" Value="{DynamicResource ThemedBackgroundBrush}"/>
      <Setter Property="BorderBrush" Value="{DynamicResource ThemedAccentBrush}"/>
      <Setter Property="HorizontalContentAlignment" Value="Center" />
      <Setter Property="VerticalContentAlignment" Value="Center" />
      <Setter Property="BorderThickness" Value="1"/>
      <Setter Property="Template">
        <Setter.Value>
          <ControlTemplate TargetType="{x:Type RadioButton}">
            <Border x:Name="RBBorder"
						        Background="{TemplateBinding Background}"
						        BorderBrush="{TemplateBinding BorderBrush}"
								CornerRadius="0,0,2,2"
								BorderThickness="1" >
              <ContentPresenter x:Name="ContentPresenter" HorizontalAlignment="{TemplateBinding HorizontalContentAlignment}" Margin="{TemplateBinding Padding}" RecognizesAccessKey="True" VerticalAlignment="{TemplateBinding VerticalContentAlignment}"/>
            </Border>
            <ControlTemplate.Triggers>
              <Trigger Property="IsChecked" Value="true">
                <Setter Property="BorderThickness" TargetName="RBBorder" Value="1,0,1,1"/>
                <Setter Property="Margin" TargetName="ContentPresenter" Value="0,1,0,0"/>
              </Trigger>
              <Trigger Property="IsEnabled" Value="false">
                <Setter Property="Foreground" Value="{DynamicResource {x:Static SystemColors.GrayTextBrushKey}}"/>
              </Trigger>
            </ControlTemplate.Triggers>
          </ControlTemplate>
        </Setter.Value>
      </Setter>
    </Style>
    
  </UserControl.Resources>

  <Grid x:Name="LayoutRoot">

    <VisualStateManager.VisualStateGroups>
        <VisualStateGroup x:Name="CustomStates">
          <VisualState x:Name="Details" >
            <Storyboard>
              <DoubleAnimation Duration="0:0:0.25"
                                       To="1"
                                       Storyboard.TargetProperty="(UIElement.Opacity)"
                                       Storyboard.TargetName="WeatherDetails" />
              <DoubleAnimation Duration="0:0:0.25"
                                       To="0"
                                       Storyboard.TargetProperty="(UIElement.Opacity)"
                                       Storyboard.TargetName="WeatherMap" />
            </Storyboard>
          </VisualState>
          <VisualState x:Name="Map" >
            <Storyboard>
              <DoubleAnimation Duration="0:0:0.25"
                                       To="0"
                                       Storyboard.TargetProperty="(UIElement.Opacity)"
                                       Storyboard.TargetName="WeatherDetails" />
              <DoubleAnimation Duration="0:0:0.25"
                                       To="1"
                                       Storyboard.TargetProperty="(UIElement.Opacity)"
                                       Storyboard.TargetName="WeatherMap" />
            </Storyboard>
          </VisualState>
        </VisualStateGroup>
      </VisualStateManager.VisualStateGroups>

    <Grid.RowDefinitions>
      <RowDefinition Height="auto"/>
      <RowDefinition Height="auto"/>
      <RowDefinition Height="*"/>
      <RowDefinition Height="auto"/>
    </Grid.RowDefinitions>

      <!-- Missing developer key message -->
    <TextBlock Grid.RowSpan="4" Visibility="{Binding NoDeveloperKey, Converter={c:BoolToVisibilityConverter}}"   
               Text="Enter a Weather Underground developer key to run this sample"
               Margin="5" Foreground="{DynamicResource ThemedForegroundBrush}" Background="{DynamicResource ThemedBackgroundBrush}" FontSize="{DynamicResource ThemedMediumTextSize}"
               TextWrapping="Wrap" TextAlignment="Center" HorizontalAlignment="Center" VerticalAlignment="Center" />


    <StackPanel Margin="10" Visibility="{Binding NoDeveloperKey, Converter={c:BoolToVisibilityConverter}, ConverterParameter=invert}" >

      <TextBlock Text="{Binding Path=observation.DisplayLocation.FullLocationName}"  FontWeight="Normal" FontSize="18"
               Style="{StaticResource LargeTextBlockStyle}" Foreground="{DynamicResource ThemedForegroundBrush}"/>
      <TextBlock Text="{Binding Path=observation.ObservationTime}" Foreground="{DynamicResource ThemedSecondaryTextBrush}"/>
        
    </StackPanel>

    <Rectangle Grid.Row="1" Visibility="{Binding NoDeveloperKey, Converter={c:BoolToVisibilityConverter}, ConverterParameter=invert}"
               Style="{StaticResource HorizontalAccentRectangleStyle}" Fill="{DynamicResource ThemedAccentBrush}" Margin="3" />

    <Image x:Name="WeatherMap" Grid.Row="2" Grid.ColumnSpan="2" Visibility="{Binding NoDeveloperKey, Converter={c:BoolToVisibilityConverter}, ConverterParameter=invert}"
           Source="{Binding Path=satelliteImage.VisibleSatelliteImage}" Margin="2" Opacity="0" />

    <Grid x:Name="WeatherDetails" Grid.Row="2" VerticalAlignment="Top" Visibility="{Binding NoDeveloperKey, Converter={c:BoolToVisibilityConverter}, ConverterParameter=invert}">
        
      <Grid.ColumnDefinitions>
          <ColumnDefinition Width="auto"/>
          <ColumnDefinition Width="*"/>
        </Grid.ColumnDefinitions>

      <Grid Margin="20,0"
          VerticalAlignment="Center">
          <Grid.RowDefinitions>
            <RowDefinition Height="auto" />
            <RowDefinition Height="auto" />
          </Grid.RowDefinitions>
          <TextBlock Text="{Binding Path=observation.Temperature}" 
                 Grid.Row="1"
                 HorizontalAlignment="Center"
                   Style="{StaticResource MediumTextBlockStyle}"
                   Foreground="{DynamicResource ThemedForegroundBrush}"/>
          <Image Source="{Binding Path=observation.WeatherIconURL}" 
               Stretch="None"
               Margin="2"/>
        </Grid>

      <Grid Grid.Column="1" 
          HorizontalAlignment="Center"
            Margin="0,10">
          <Grid.ColumnDefinitions>
            <ColumnDefinition Width="*" />
            <ColumnDefinition Width="*" />
          </Grid.ColumnDefinitions>

          <Grid.RowDefinitions>
            <RowDefinition Height="auto" />
            <RowDefinition Height="auto" />
            <RowDefinition Height="auto" />
            <RowDefinition Height="auto" />
            <RowDefinition Height="auto" />
            <RowDefinition Height="auto" />
            <RowDefinition Height="auto" />
          </Grid.RowDefinitions>

          <TextBlock Text="{Binding Path=observation.Weather}"
                 Grid.ColumnSpan="2"
                 Style="{StaticResource MediumTextBlockStyle}"
                 Foreground="{DynamicResource ThemedForegroundBrush}"
                 FontWeight="Bold"
                 HorizontalAlignment="Left"/>

          <TextBlock Text="Wind"
                 Grid.Row="1"
                   Style="{StaticResource LabelFontStyle}"/>
          <TextBlock Text="{Binding Path=observation.WindInfo}" 
                   Grid.Row="1"
                   Grid.Column="1" 
                   VerticalAlignment="Center"
                   TextWrapping="Wrap" 
                   Style="{StaticResource ValueFontStyle}"/>
          <TextBlock Text="Precip" 
                   Grid.Row="2"
                   Style="{StaticResource LabelFontStyle}"/>
          <TextBlock Text="{Binding Path=observation.PrecipitationToday}" 
                   Grid.Row="2" 
                   Grid.Column="1" 
                   VerticalAlignment="Center" 
                   Style="{StaticResource ValueFontStyle}" />
          <TextBlock Text="Precip (24hrs)" 
                   Grid.Row="3"
                   Style="{StaticResource LabelFontStyle}"/>
          <TextBlock Text="{Binding Path=observation.PrecipitationToday}" 
                   Grid.Row="3" 
                   Grid.Column="1"
                   VerticalAlignment="Center"
                   Style="{StaticResource ValueFontStyle}" />

          <TextBlock Text="Humidity" 
                   Grid.Row="4"
                   Style="{StaticResource LabelFontStyle}"/>
          <TextBlock Text="{Binding Path=observation.RelativeHumidity}" 
                   Grid.Row="4" 
                   Grid.Column="1"
                   VerticalAlignment="Center"
                   Style="{StaticResource ValueFontStyle}" />

          <TextBlock Text="Dew Point" 
                   Grid.Row="5"
                   Style="{StaticResource LabelFontStyle}"/>
          <TextBlock Text="{Binding Path=observation.Dewpoint}" 
                   Grid.Row="5" 
                   Grid.Column="1"
                   VerticalAlignment="Center"
                   Style="{StaticResource ValueFontStyle}" />

          <TextBlock Text="Visibility" 
                   Grid.Row="6"
                   Style="{StaticResource LabelFontStyle}"/>
          <TextBlock Text="{Binding Path=observation.Visibility}" 
                   Grid.Row="6" 
                   Grid.Column="1"
                   VerticalAlignment="Center"
                   Style="{StaticResource ValueFontStyle}" />
        </Grid>

    </Grid>

    <Rectangle Grid.Row="3" VerticalAlignment="Top" Visibility="{Binding NoDeveloperKey, Converter={c:BoolToVisibilityConverter}, ConverterParameter=invert}"
               Style="{StaticResource HorizontalAccentRectangleStyle}" Fill="{DynamicResource ThemedAccentBrush}" StrokeThickness="0" />

    <StackPanel Orientation="Horizontal" Grid.Row="3" Visibility="{Binding NoDeveloperKey, Converter={c:BoolToVisibilityConverter}, ConverterParameter=invert}"
                Margin="10,0,0,10">
        
        <RadioButton x:Name="ListRB" IsChecked="True" Height="40" Width="40" Checked="RadioButton_Checked" Unchecked="RadioButton_Checked"
                   Style="{StaticResource TabRadioButtonStyle}" ToolTip="Details">
          <Path Data="M30.707001,52.895L63.441002,52.895 63.441002,58.181999 30.707001,58.181999z M0,47.075001L16.922001,47.075001 16.922001,64 0,64z M30.707001,29.372L63.441002,29.372 63.441002,34.66 30.707001,34.66z M0,23.555L16.922001,23.555 16.922001,40.478001 0,40.478001z M30.707001,5.8150005L63.441002,5.8150005 63.441002,11.103 30.707001,11.103z M0,0L16.922001,0 16.922001,16.921 0,16.921z"
              Stretch="Uniform" Fill="{DynamicResource ThemedForegroundBrush}" Margin="7" RenderTransformOrigin="0.5,0.5">
            <Path.RenderTransform>
              <TransformGroup>
                <TransformGroup.Children>
                  <RotateTransform Angle="0" />
                  <ScaleTransform ScaleX="1" ScaleY="1" />
                </TransformGroup.Children>
              </TransformGroup>
            </Path.RenderTransform>
          </Path>
        </RadioButton>
        
        <RadioButton x:Name="MapRB" Height="40" Width="40" Margin="3,0,0,0" Style="{StaticResource TabRadioButtonStyle}" ToolTip="Map">
          <Path Data="F1M-1802.07,-3405.59C-1819.37,-3405.59 -1833.4,-3391.56 -1833.4,-3374.26 -1833.4,-3356.95 -1819.37,-3342.92 -1802.07,-3342.92 -1784.76,-3342.92 -1770.73,-3356.95 -1770.73,-3374.26 -1770.73,-3391.56 -1784.76,-3405.59 -1802.07,-3405.59 M-1796.01,-3364.05L-1802.72,-3354.17C-1805.51,-3348.19,-1803.78,-3347.17,-1803.78,-3347.17L-1806.83,-3347.17C-1805.71,-3348.03 -1809.66,-3353.65 -1809.66,-3353.65 -1809.14,-3355.36 -1810.78,-3363.03 -1810.78,-3363.03 -1816.34,-3366.78 -1813.71,-3370.87 -1813.71,-3370.87 -1811.79,-3372.58 -1818.35,-3376.16 -1818.35,-3376.16 -1822.58,-3375.43 -1823.98,-3379.83 -1823.98,-3379.83 -1825.85,-3379.57 -1826.02,-3381.1 -1826.02,-3381.1 -1828.75,-3385.71 -1821.76,-3393.38 -1821.76,-3393.38 -1811.53,-3404.12 -1800.61,-3400.88 -1800.61,-3400.88 -1801.3,-3400.37 -1801.32,-3399.52 -1801.32,-3399.52 -1797.41,-3396.45 -1802.72,-3395.6 -1802.72,-3395.6 -1802.27,-3394.24 -1800.1,-3392.36 -1800.1,-3392.36 -1799.6,-3386.39 -1802.72,-3390.14 -1802.72,-3390.14L-1802.72,-3388.44C-1806.88,-3386.73 -1808.68,-3384.69 -1808.68,-3384.69 -1814.2,-3377.7 -1813.71,-3382.13 -1813.71,-3382.13 -1821.34,-3380.59 -1818.01,-3378.72 -1818.01,-3378.72 -1815.62,-3380.42 -1815.11,-3378.03 -1815.11,-3378.03L-1812.62,-3375.14 -1808.68,-3376.16C-1806.35,-3376.16 -1797.04,-3369.55 -1797.04,-3369.55 -1792.95,-3368.06 -1796.01,-3364.05 -1796.01,-3364.05 M-1795.16,-3396.79L-1797.04,-3400.88 -1788,-3396.79C-1790.47,-3396.96,-1795.16,-3396.79,-1795.16,-3396.79 M-1777.31,-3370.37C-1785.54,-3370.02 -1788,-3374.12 -1788,-3374.12 -1792.09,-3379.57 -1783.86,-3384.86 -1783.86,-3384.86 -1787.38,-3387.58 -1782.88,-3388.95 -1782.88,-3388.95L-1782.88,-3390.66C-1786.8,-3391.17 -1783.56,-3394.4 -1783.56,-3394.4 -1770.26,-3380.94 -1776.46,-3365.25 -1776.46,-3365.25 -1777.54,-3366.44 -1777.31,-3370.37 -1777.31,-3370.37"
              Stretch="Uniform" Fill="{DynamicResource ThemedForegroundBrush}" Margin="6" />
        </RadioButton>
        
      </StackPanel>

  </Grid>

</UserControl>

C#

// Copyright 2013 ESRI
// 
// All rights reserved under the copyright laws of the United States
// and applicable international laws, treaties, and conventions.
// 
// You may freely redistribute and use this sample code, with or
// without modification, provided you include the original copyright
// notice and use restrictions.
// 
// See the use restrictions http://help.arcgis.com/en/sdk/10.0/usageRestrictions.htm.
// 
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading;
using System.Threading.Tasks;
using System.Windows;
using System.Windows.Controls;
using System.ComponentModel;
using System.ComponentModel.Composition;
using System.Runtime.CompilerServices;
using System.Runtime.Serialization;
using System.Net;
using System.Web.Script.Serialization;
using ESRI.ArcGIS.OperationsDashboard;
using client = ESRI.ArcGIS.Client;
using ESRI.ArcGIS.Client.Bing;

namespace WundergroundWidgetCS
{
  [Export("ESRI.ArcGIS.OperationsDashboard.Widget")]
  [ExportMetadata("DisplayName", "Weather Underground Widget Sample C#")]
  [ExportMetadata("Description", "WPF Runtime SDK sample widget that displays the weather information for the center location of a map widget.")]
  [ExportMetadata("ImagePath", "/WundergroundWidgetCS;component/Images/Weather.png")]
  [ExportMetadata("DataSourceRequired", false)]
  [DataContract]
  public partial class WeatherUndergroundWidget : UserControl, IWidget, INotifyPropertyChanged, IMapWidgetConsumer
  {
    // ***************************************************************
    // NOTE: To run this sample, you must sign up for and enter here a 
    // free Weather Underground Developer API key.
    // Sign up at http://www.wunderground.com/weather/api/
    // ****************************************************************
    string _developerKey = ""; // ENTER YOUR WEATHER UNDERGROUND DEVELOPER API KEY HERE

    string _weatherServiceUrl = null;

    // Reference to the map for which weather is retrieved.
    client.Map _map = null;

    // Observable property storing weather observation returned from service.
    Observation _observation;
    public Observation observation
    {
      get { return _observation; }
      set
      {
        _observation = value;
        NotifyPropertyChanged("observation");
      }
    }

    // Observable property storing satellite image returned from service.
    SatelliteImage _satelliteImage;
    public SatelliteImage satelliteImage
    {
      get { return _satelliteImage; }
      set
      {
        _satelliteImage = value;
        NotifyPropertyChanged("satelliteImage");
      }

    }

    // Bindable property, but this will not change during runtime.
    public bool NoDeveloperKey { get; set; }
    
    public WeatherUndergroundWidget()
    {
      // Check developer key has been changed.
      NoDeveloperKey = (string.IsNullOrEmpty(_developerKey));

      _weatherServiceUrl = string.Format(@"http://api.wunderground.com/api/{0}/conditions/satellite/webcams/q/", _developerKey);

      InitializeComponent();
    }

    #region IMapWidgetConsumer Members

    [DataMember(Name = "mapWidgetId")]
    public string MapWidgetId { get; set; }

    #endregion

    #region IWidget Members

    private string _caption = "New Weather Underground";

    [DataMember(Name = "caption")]
    public string Caption
    {
      get
      {
        return _caption;
      }

      set
      {
        if (value != _caption)
        {
          _caption = value;
        }
      }
    }

    [DataMember(Name = "id")]
    public string Id { get; set; }

    public void OnActivated()
    {
      // Find the MapWidget and Map that the weather widget will reflect.
      GetMapFromWidget();

      DataContext = this;
    }

    public void OnDeactivated()
    {
      // Remove event handlers when the widget is deactivated.
      if (_map != null)
      {
        _map.ExtentChanged -= _map_ExtentChanged;
        _map = null;
      }
    }

    public bool CanConfigure
    {
      get { return true; }
    }

    public bool Configure(Window owner, IList<DataSource> dataSources)
    {
      // Show the configuration dialog, passing in MapWidgetId if set.
      Config.WeatherUndergroundWidgetDialog dialog = new Config.WeatherUndergroundWidgetDialog(Caption, MapWidgetId) { Owner = owner };

      // If the user cancels the configuation dialog, indicate that configuration failed and the widget should not
      // be added to the current confirguration.
      if (dialog.ShowDialog() != true)
        return false;

      // Retrieve the selected values for the properties from the configuration dialog.
      Caption = dialog.Caption;
      MapWidgetId = dialog.MapWidgetId;

      // Get the map widget from the ID. 
      // If this fails, this will return false to indicate that configuration was unsuccessful and the widget shoud not be added to the configuration.
      bool findMapWidget = GetMapFromWidget();
      return findMapWidget;
    }

    #endregion

    #region Helper functions to set up the map

    private bool GetMapFromWidget()
    {
      // Find the map widget based on it's ID. 
      MapWidget mapWidget = OperationsDashboard.Instance.Widgets.FirstOrDefault(widget => widget.Id == this.MapWidgetId) as MapWidget;
      if (mapWidget != null)
      {
        // If the map widget is already initialized, the Map on the widget should be set, so get a reference to the map. If the map widget 
        // is not initialized, map will not be set, so wait for initialization to complete and then get a reference to the map.
        if (mapWidget.IsInitialized)
        {
          SetMap(mapWidget);
        }
        else
        {
          mapWidget.Initialized += (s, e) =>
          {
            SetMap(mapWidget);
          };
        }
        return true;
      }
      return false;
    }

    private void SetMap(MapWidget mapWidget)
    {
      if ((mapWidget != null) && (mapWidget.Map != null))
      {
        // From the map widget, get the map. 
        _map = mapWidget.Map;

        // Add a handler for the ExtentChanged event.
        _map.ExtentChanged += _map_ExtentChanged;

        // Show initial information for the initial extent of the map.
        UpdateWeather();
      }
    }

    private void _map_ExtentChanged(object sender, client.ExtentEventArgs e)
    {
      // When the map extent is changed, retrieve a new weather observation
      UpdateWeather();
    }

    #endregion

    #region Helper functions to get weather reports

    private void UpdateWeather()
    {
      if (NoDeveloperKey) return;

      // Find the new center of the extent of the map in lat, long.
      client.Geometry.MapPoint centerPoint = _map.Extent.GetCenter();
      client.Geometry.MapPoint geographicPoint = Transform.WebMercatorToGeographic(centerPoint);

      // Get a new weather observation.
      WebClient webClient = new WebClient();
      webClient.DownloadStringCompleted += new DownloadStringCompletedEventHandler(webClient_DownloadStringCompleted);
      webClient.DownloadStringAsync(new Uri(String.Format("{0}{1},{2}.json", _weatherServiceUrl, geographicPoint.Y.ToString(), geographicPoint.X.ToString())));
    }

    private void webClient_DownloadStringCompleted(object sender, DownloadStringCompletedEventArgs e)
    {
      // When the new weather observation is returned, update bindable properties based on the response.
      JavaScriptSerializer serializer = new JavaScriptSerializer();
      Response response = serializer.Deserialize<Response>(e.Result);
      this.observation = response.current_observation;
      this.satelliteImage = response.satellite;
    }

    #endregion

    #region Helper functions for updating UI

    private void NotifyPropertyChanged(string propName)
    {
      if (PropertyChanged != null)
        PropertyChanged(this, new PropertyChangedEventArgs(propName));
    }

    public event PropertyChangedEventHandler PropertyChanged;

    private void RadioButton_Checked(object sender, System.Windows.RoutedEventArgs e)
    {
      // Change the item displayed in the widget based on the users choice.
      if ((bool)ListRB.IsChecked)
        VisualStateManager.GoToState(this, "Details", true);
      else
        VisualStateManager.GoToState(this, "Map", true);
    }

    #endregion

  }

}

VB.NET

' Copyright 2013 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions http://help.arcgis.com/en/sdk/10.0/usageRestrictions.htm.
' 
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading
Imports System.Threading.Tasks
Imports System.Windows
Imports System.Windows.Controls
Imports System.ComponentModel
Imports System.ComponentModel.Composition
Imports System.Runtime.CompilerServices
Imports System.Runtime.Serialization
Imports System.Net
Imports System.Web.Script.Serialization
Imports ESRI.ArcGIS.OperationsDashboard
Imports client = ESRI.ArcGIS.Client
Imports ESRI.ArcGIS.Client.Bing

<Export("ESRI.ArcGIS.OperationsDashboard.Widget"),
  ExportMetadata("DisplayName", "Weather Underground Widget Sample VB.Net"),
  ExportMetadata("Description", "WPF Runtime SDK sample widget that displays the weather information for the center location of a map widget."),
  ExportMetadata("ImagePath", "/WundergroundWidgetVB;component/Images/Weather.png"),
  ExportMetadata("DataSourceRequired", False),
  DataContract> _
Partial Public Class WeatherUndergroundWidget
  Inherits UserControl
  Implements IWidget
  Implements INotifyPropertyChanged
  Implements IMapWidgetConsumer

  ' ***************************************************************
  ' NOTE: To run this sample, you must sign up for and enter here a 
  ' free Weather Underground Developer API key.
  ' Sign up at http://www.wunderground.com/weather/api/
  ' ****************************************************************
  Private _developerKey As String = "" ' ENTER YOUR WEATHER UNDERGROUND DEVELOPER API KEY HERE

  Private _weatherServiceUrl As String = Nothing

  ' Reference to the map for which weather is retrieved.
  Private _widgetMap As client.Map = Nothing

  ' Observable property storing weather observation returned from service.
  Private _observation As Observation
  Public Property observation() As Observation
    Get
      Return _observation
    End Get
    Set(value As Observation)
      _observation = value
      NotifyPropertyChanged("observation")
    End Set
  End Property

  ' Observable property storing satellite image returned from service.
  Private _satelliteImage As SatelliteImage
  Public Property satelliteImage() As SatelliteImage
    Get
      Return _satelliteImage
    End Get
    Set(value As SatelliteImage)
      _satelliteImage = value
      NotifyPropertyChanged("satelliteImage")
    End Set
  End Property

  ' Bindable property, but this will not change during runtime.
  Public Property NoDeveloperKey As Boolean

  Public Sub New()
    ' Check developer key has been changed.
    NoDeveloperKey = (String.IsNullOrEmpty(_developerKey))

    _weatherServiceUrl = String.Format("http://api.wunderground.com/api/{0}/conditions/satellite/webcams/q/", _developerKey)

    InitializeComponent()
  End Sub

#Region "IMapWidgetConsumer Members"

  Private m_MapWidgetId As String

  <DataMember(Name:="consumedWidgetId")> _
  Public Property ConsumedWidgetId() As String
    Get
      Return m_MapWidgetId
    End Get
    Set(value As String)
      m_MapWidgetId = value
    End Set
  End Property

  Public ReadOnly Property MapWidgetId() As String Implements IMapWidgetConsumer.MapWidgetId
    Get
      Return m_MapWidgetId
    End Get
  End Property

#End Region

#Region "IWidget Members"

  Private _caption As String = "New Weather Underground"

  <DataMember(Name:="caption")> _
  Public Property Caption As String Implements IWidget.Caption
    Get
      Return _caption
    End Get

    Set(value As String)
      If value <> _caption Then
        _caption = value
      End If
    End Set
  End Property

  <DataMember(Name:="id")> _
  Public Property Id As String Implements IWidget.Id
    Get
      Return m_Id
    End Get
    Set(value As String)
      m_Id = value
    End Set
  End Property
  Private m_Id As String

  Public Sub OnActivated() Implements IWidget.OnActivated
    ' Find the MapWidget and Map that the weather widget will reflect.
    GetMapFromWidget()

    DataContext = Me
  End Sub

  Public Sub OnDeactivated() Implements IWidget.OnDeactivated
    ' Remove event handlers when the widget is deactivated.
    If _Map IsNot Nothing Then
      RemoveHandler _widgetMap.ExtentChanged, AddressOf _map_ExtentChanged
      _Map = Nothing
    End If
  End Sub

  Public ReadOnly Property CanConfigure() As Boolean Implements IWidget.CanConfigure
    Get
      Return True
    End Get
  End Property

  Public Function Configure(owner As Window, dataSources As IList(Of DataSource)) As Boolean Implements IWidget.Configure
    ' Show the configuration dialog, passing in MapWidgetId if set.
    Dim dialog As New Config.WeatherUndergroundWidgetDialog(Caption, MapWidgetId) With { _
      .Owner = owner _
    }

    ' If the user cancels the configuation dialog, indicate that configuration failed and the widget should not
    ' be added to the current confirguration.
    If dialog.ShowDialog() <> True Then
      Return False
    End If

    ' Retrieve the selected values for the properties from the configuration dialog.
    Caption = dialog.Caption
    ConsumedWidgetId = dialog.MapWidgetId

    ' Get the map widget from the ID. 
    ' If this fails, this will return false to indicate that configuration was unsuccessful and the widget shoud not be added to the configuration.
    Dim findMapWidget As Boolean = GetMapFromWidget()
    Return findMapWidget
  End Function

#End Region

#Region "Helper functions to set up the map"

  Private Function GetMapFromWidget() As Boolean
    ' Find the map widget based on it's ID. 
    Dim mapWidget As MapWidget = TryCast(OperationsDashboard.Instance.Widgets.FirstOrDefault(Function(widget) widget.Id = Me.MapWidgetId), MapWidget)
    If mapWidget IsNot Nothing Then
      ' If the map widget is already initialized, the Map on the widget should be set, so get a reference to the map. If the map widget 
      ' is not initialized, map will not be set, so wait for initialization to complete and then get a reference to the map.
      If mapWidget.IsInitialized Then
        SetMap(mapWidget)
      Else
        AddHandler mapWidget.Initialized, Sub(s, e)
                                            SetMap(mapWidget)
                                          End Sub
      End If
      Return True
    End If
    Return False
  End Function

  Private Sub SetMap(mapWidget As MapWidget)
    If (mapWidget IsNot Nothing) AndAlso (mapWidget.Map IsNot Nothing) Then
      ' From the map widget, get the map. 
      _widgetMap = mapWidget.Map

      ' Add a handler for the ExtentChanged event.
      AddHandler _widgetMap.ExtentChanged, AddressOf _map_ExtentChanged

      ' Show initial information for the initial extent of the map.
      UpdateWeather()
    End If
  End Sub

  Private Sub _map_ExtentChanged(sender As Object, e As client.ExtentEventArgs)
    ' When the map extent is changed, retrieve a new weather observation
    UpdateWeather()
  End Sub

#End Region

#Region "Helper functions to get weather reports"

  Private Sub UpdateWeather()

    If (NoDeveloperKey) Then Return

    ' Find the new center of the extent of the map in lat, long.
    Dim centerPoint As client.Geometry.MapPoint = _widgetMap.Extent.GetCenter()
    Dim geographicPoint As client.Geometry.MapPoint = Transform.WebMercatorToGeographic(centerPoint)

    ' Get a new weather observation.
    Dim webClient As New WebClient()
    AddHandler webClient.DownloadStringCompleted, New DownloadStringCompletedEventHandler(AddressOf webClient_DownloadStringCompleted)
    webClient.DownloadStringAsync(New Uri(String.Format("{0}{1},{2}.json", _weatherServiceUrl, geographicPoint.Y.ToString(), geographicPoint.X.ToString())))

  End Sub

  Private Sub webClient_DownloadStringCompleted(sender As Object, e As DownloadStringCompletedEventArgs)

    ' When the new weather observation is returned, update bindable properties based on the response.
    Dim serializer As New JavaScriptSerializer()
    Dim response As Response = serializer.Deserialize(Of Response)(e.Result)
    Me.observation = response.current_observation
    Me.satelliteImage = response.satellite

  End Sub

#End Region

#Region "Helper functions for updating UI"

  Private Sub NotifyPropertyChanged(propName As String)
    RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
  End Sub

  Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

  Private Sub RadioButton_Checked(sender As Object, e As System.Windows.RoutedEventArgs)
    ' Change the item displayed in the widget based on the users choice.
    If CBool(ListRB.IsChecked) Then
      VisualStateManager.GoToState(Me, "Details", True)
    Else
      VisualStateManager.GoToState(Me, "Map", True)
    End If
  End Sub

#End Region

End Class