Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.IO
Imports System.Windows.Forms
Imports System.Globalization
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Collections.Generic
Imports System.Xml.Linq
Imports System.Net
Imports System.Threading.Tasks
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Json

Namespace DevExpress.XtraMap.Demos
	''' <summary>
	''' Summary description for DemoUtils.
	''' </summary>
	Public Class DemoUtils
		Private Shared key As String = "AmSNFwVzMvaqFlCYQx9RRUfcAwSQCzi_Vcesric6JFQuBO9wZFXEsqzili-INaUA"

		Public Shared ReadOnly Property DevexpressBingKey() As String
			Get
				Return key
			End Get
		End Property

		Public Shared Function LoadXml(ByVal name As String) As XDocument
			Try
				Return XDocument.Load("file:\\" & GetRelativePath(name))
			Catch
				Return Nothing
			End Try
		End Function
		Public Shared Function GetRelativePath(ByVal name As String) As String
			name = "Data\" & name
			Dim path As String = System.Windows.Forms.Application.StartupPath
			Dim s As String = "\"
			For i As Integer = 0 To 10
				If System.IO.File.Exists(path & s & name) Then
					Return (path & s & name)
				Else
					s &= "..\"
				End If
			Next i
			Return ""
		End Function
		Public Shared Function GetRelativeDirectoryPath(ByVal name As String) As String
			name = "Data\" & name
			Dim path As String = System.Windows.Forms.Application.StartupPath
			Dim s As String = "\"
			For i As Integer = 0 To 10
				If System.IO.Directory.Exists(path & s & name) Then
					Return (path & s & name)
				Else
					s &= "..\"
				End If
			Next i
			Return ""
		End Function
	End Class

	Public Class CityWeather
		Private cityWeatherInfo As OpenWeatherMapService.CityWeatherInfo
		Private forecast_Renamed As List(Of CityWeather)
		Private weather_Renamed As Weather
		Private weatherDescriptions_Renamed As List(Of WeatherDescription)

		Public Sub New(ByVal cityWeatherInfo As OpenWeatherMapService.CityWeatherInfo)
			Me.cityWeatherInfo = cityWeatherInfo
			Me.weather_Renamed = New Weather(cityWeatherInfo.main)
			Me.weatherDescriptions_Renamed = New List(Of WeatherDescription)()
			For Each weatherDescription As OpenWeatherMapService.WeatherDescriptionInfo In cityWeatherInfo.weather
				weatherDescriptions_Renamed.Add(New WeatherDescription(weatherDescription))
			Next weatherDescription
		End Sub

		Public ReadOnly Property DateTime() As DateTime
			Get
				Return GetTime(cityWeatherInfo.dt)
			End Get
		End Property
		Public ReadOnly Property CityID() As Integer
			Get
				Return cityWeatherInfo.id
			End Get
		End Property
		Public ReadOnly Property City() As String
			Get
				Return cityWeatherInfo.name
			End Get
		End Property
		Public ReadOnly Property Longitude() As Double
			Get
				Return cityWeatherInfo.coord.lon
			End Get
		End Property
		Public ReadOnly Property Latitude() As Double
			Get
				Return cityWeatherInfo.coord.lat
			End Get
		End Property
		Public ReadOnly Property Weather() As Weather
			Get
				Return weather_Renamed
			End Get
		End Property
		Public ReadOnly Property WeatherDescriptions() As List(Of WeatherDescription)
			Get
				Return weatherDescriptions_Renamed
			End Get
		End Property
		Public ReadOnly Property Forecast() As List(Of CityWeather)
			Get
				Return forecast_Renamed
			End Get
		End Property
		Public ReadOnly Property CelsiusDisplayText() As String
			Get
				Return City + Constants.vbLf + weather_Renamed.CelsiusTemperatureString
			End Get
		End Property
		Public ReadOnly Property KelvinDisplayText() As String
			Get
				Return City + Constants.vbLf + weather_Renamed.KelvinTemperatureString
			End Get
		End Property
		Public ReadOnly Property FahrenheitDisplayText() As String
			Get
				Return City + Constants.vbLf + weather_Renamed.FahrenheitTemperatureString
			End Get
		End Property

		Private privateForecastTime As DateTime
		Public Property ForecastTime() As DateTime
			Get
				Return privateForecastTime
			End Get
			Set(ByVal value As DateTime)
				privateForecastTime = value
			End Set
		End Property
		Private privateWeatherIconPath As String
		Public Property WeatherIconPath() As String
			Get
				Return privateWeatherIconPath
			End Get
			Set(ByVal value As String)
				privateWeatherIconPath = value
			End Set
		End Property

		Public Event ForecastUpdated As EventHandler

		Private Function GetTime(ByVal seconds As Long) As DateTime
			Dim dtDateTime As New DateTime(1970, 1, 1, 0, 0, 0, 0)
			Return dtDateTime.AddSeconds(seconds).ToLocalTime()
		End Function
		Friend Sub SetForecast(ByVal forecast As List(Of OpenWeatherMapService.CityWeatherInfo))
			Dim cityWeatherList As New List(Of CityWeather)()
			For Each cityWeatherInfo As OpenWeatherMapService.CityWeatherInfo In forecast
				cityWeatherList.Add(New CityWeather(cityWeatherInfo))
			Next cityWeatherInfo
			Me.forecast_Renamed = cityWeatherList

			RaiseEvent ForecastUpdated(Me, EventArgs.Empty)
		End Sub
		Public Function GetTemperatureDataMember(ByVal measureUnits As TemperatureMeasureUnits) As String
			Select Case measureUnits
				Case TemperatureMeasureUnits.Fahrenheit
					Return "FahrenheitDisplayText"
				Case TemperatureMeasureUnits.Kelvin
					Return "KelvinDisplayText"
				Case Else
					Return "CelsiusDisplayText"
			End Select
		End Function
	End Class

	Public Enum TemperatureMeasureUnits
		Celsius
		Fahrenheit
		Kelvin
	End Enum

	Public Class Weather
		Private weatherInfo As OpenWeatherMapService.WeatherInfo

		Public ReadOnly Property CelsiusTemperature() As Integer
			Get
				Return CInt(Fix(weatherInfo.temp - 273.15))
			End Get
		End Property
		Public ReadOnly Property FahrenheitTemperature() As Integer
			Get
				Return CInt(Fix(weatherInfo.temp - 273.15)) * 9 \ 5 + 32
			End Get
		End Property
		Public ReadOnly Property KelvinTemperature() As Integer
			Get
				Return CInt(Fix(weatherInfo.temp))
			End Get
		End Property
		Public ReadOnly Property CelsiusTemperatureString() As String
			Get
				Return CelsiusTemperature.ToString("+#;-#;0") & " �C"
			End Get
		End Property
		Public ReadOnly Property FahrenheitTemperatureString() As String
			Get
				Return FahrenheitTemperature.ToString("+#;-#;0") & " �F"
			End Get
		End Property
		Public ReadOnly Property KelvinTemperatureString() As String
			Get
				Return weatherInfo.temp.ToString("+#;-#;0") & " �K"
			End Get
		End Property

		Public Sub New(ByVal weatherInfo As OpenWeatherMapService.WeatherInfo)
			Me.weatherInfo = weatherInfo
		End Sub
		Public Function GetTemperatureString(ByVal measureUnits As TemperatureMeasureUnits) As String
			Select Case measureUnits
				Case TemperatureMeasureUnits.Fahrenheit
					Return FahrenheitTemperatureString
				Case TemperatureMeasureUnits.Kelvin
					Return KelvinTemperatureString
				Case Else
					Return CelsiusTemperatureString
			End Select
		End Function
	End Class
	Public Class WeatherDescription
		Private weatherDescriptionInfo As OpenWeatherMapService.WeatherDescriptionInfo

		Public ReadOnly Property IconName() As String
			Get
				Return weatherDescriptionInfo.icon
			End Get
		End Property

		Public Sub New(ByVal weatherDescriptionInfo As OpenWeatherMapService.WeatherDescriptionInfo)
			Me.weatherDescriptionInfo = weatherDescriptionInfo
		End Sub
	End Class
	Public Class OpenWeatherMapService
		Private Const OpenWeatherUrl As String = "http://api.openweathermap.org/data/2.1/find/city?bbox=-180,-90,180,90"
		Private Const OpenWeatherIconPathPrefix As String = "http://openweathermap.org/img/w/"

		#Region "classes for JSON parsing"

		<DataContract> _
		Public Class ForecastInfo
			<DataMember> _
			Public list As List(Of CityWeatherInfo)
		End Class
		<DataContract> _
		Public Class WorldWeatherInfo
			<DataMember> _
			Public list As IList(Of CityWeatherInfo)
		End Class
		<DataContract> _
		Public Class CityWeatherInfo
			<DataMember> _
			Friend id As Integer = 0
			<DataMember> _
			Friend name As String = Nothing
			<DataMember> _
			Friend coord As Coordinates = Nothing
			<DataMember> _
			Friend main As WeatherInfo = Nothing
			<DataMember> _
			Friend weather As List(Of WeatherDescriptionInfo) = Nothing
			<DataMember> _
			Friend wind As WindInfo = Nothing
			<DataMember> _
			Friend dt As Long = 0
		End Class
		<DataContract> _
		Public Class WeatherDescriptionInfo
			<DataMember> _
			Friend main As String = Nothing
			<DataMember> _
			Friend description As String = Nothing
			<DataMember> _
			Friend icon As String = Nothing
		End Class
		<DataContract> _
		Public Class WindInfo
			<DataMember> _
			Friend speed As Double = 0.0
			<DataMember> _
			Friend deg As Double = 0.0
		End Class
		<DataContract> _
		Public Class WeatherInfo
			<DataMember> _
			Friend temp As Double = 0.0
			<DataMember> _
			Friend pressure As Double = 0.0
			<DataMember> _
			Friend humidity As Double = 0.0
		End Class
		<DataContract> _
		Public Class Coordinates
			<DataMember> _
			Friend lon As Double = 0.0
			<DataMember> _
			Friend lat As Double = 0.0
		End Class

		#End Region

		Private weatherInCities_Renamed As List(Of CityWeather)
		Private capitalNames As List(Of String)
		Private Shared ReadOnly forecastLocker As Object = New Object()

		Private privateLosAngelesWeather As CityWeather
		Public Property LosAngelesWeather() As CityWeather
			Get
				Return privateLosAngelesWeather
			End Get
			Set(ByVal value As CityWeather)
				privateLosAngelesWeather = value
			End Set
		End Property
		Public ReadOnly Property WeatherInCities() As List(Of CityWeather)
			Get
				Return weatherInCities_Renamed
			End Get
		End Property
		Public Event ReadCompleted As EventHandler

		Public Sub New(ByVal capitalNames As List(Of String))
			Me.capitalNames = capitalNames
		End Sub
		Public Sub GetWeatherAsync()
			Dim weatherClient As New WebClient()
			AddHandler weatherClient.OpenReadCompleted, AddressOf weatherClient_OpenReadCompleted
			weatherClient.OpenReadAsync(New Uri(OpenWeatherUrl))
		End Sub
		Private Sub weatherClient_OpenReadCompleted(ByVal sender As Object, ByVal e As OpenReadCompletedEventArgs)
			Dim weatherClient As WebClient = TryCast(sender, WebClient)
			RemoveHandler weatherClient.OpenReadCompleted, AddressOf weatherClient_OpenReadCompleted

			If e.Cancelled OrElse e.Error IsNot Nothing Then
				Return
			End If

			Dim stream As Stream = e.Result
			Task.Factory.StartNew(Function() AnonymousMethod1(stream))
		End Sub
		
		Private Function AnonymousMethod1(ByVal stream As Stream) As Boolean
			Dim dc As New DataContractJsonSerializer(GetType(WorldWeatherInfo))
			Dim worldWeatherInfo As WorldWeatherInfo = CType(dc.ReadObject(stream), WorldWeatherInfo)
			Dim citiesWeather As New List(Of CityWeather)()
			For Each weatherInfo As CityWeatherInfo In worldWeatherInfo.list
				Dim cityWeather As New CityWeather(weatherInfo)
				If cityWeather.City = "Los Angeles" Then
					LosAngelesWeather = cityWeather
				End If
					If cityWeather.WeatherDescriptions IsNot Nothing AndAlso cityWeather.WeatherDescriptions.Count > 0 Then
						cityWeather.WeatherIconPath = OpenWeatherIconPathPrefix & cityWeather.WeatherDescriptions(0).IconName & ".png"
					End If
						If capitalNames.Contains(cityWeather.City) Then
							citiesWeather.Add(cityWeather)
						End If
			Next weatherInfo
			weatherInCities_Renamed = citiesWeather
			RaiseReadComplete()
			Return True
		End Function
		Public Sub GetForecastForCityAsync(ByVal cityWeather As CityWeather)
			Dim link As String = "http://api.openweathermap.org/data/2.1/forecast/city/" & cityWeather.CityID.ToString()
			Dim forecastClient As New WebClient()
			AddHandler forecastClient.OpenReadCompleted, AddressOf forecastClient_OpenReadCompleted
			forecastClient.OpenReadAsync(New Uri(link), cityWeather)
		End Sub
		Private Sub forecastClient_OpenReadCompleted(ByVal sender As Object, ByVal e As OpenReadCompletedEventArgs)
			If e.Error Is Nothing Then
				RemoveHandler (CType(sender, WebClient)).OpenReadCompleted, AddressOf forecastClient_OpenReadCompleted
				Dim stream As Stream = e.Result
				Dim cityWeatherInfo As CityWeather = CType(e.UserState, CityWeather)
				Task.Factory.StartNew(Function() AnonymousMethod2(stream, cityWeatherInfo))
			End If
		End Sub
		
		Private Function AnonymousMethod2(ByVal stream As Stream, ByVal cityWeatherInfo As CityWeather) As Boolean
			SyncLock forecastLocker
				Dim dc As New DataContractJsonSerializer(GetType(ForecastInfo))
				Dim forecast As ForecastInfo = CType(dc.ReadObject(stream), ForecastInfo)
				cityWeatherInfo.SetForecast(forecast.list)
			End SyncLock
			Return True
		End Function
		Private Sub RaiseReadComplete()
			RaiseEvent ReadCompleted(Me, EventArgs.Empty)
		End Sub
	End Class
	Public Class DemoWeatherItemFactory
		Inherits DefaultMapItemFactory
		Protected Overrides Sub InitializeItem(ByVal item As MapItem, ByVal obj As Object)
			Dim cityWeather As CityWeather = TryCast(obj, CityWeather)
			Dim element As MapCustomElement = TryCast(item, MapCustomElement)
			If element Is Nothing OrElse cityWeather Is Nothing Then
				Return
			End If
			element.Padding = New Padding(2, 6, 2, 0)
			element.ImageUri = New Uri(cityWeather.WeatherIconPath)
		End Sub
	End Class
End Namespace