egtbeamwall/EgtBEAMWALL.Optimizer/StrategyManager/JsonStrategyHelper.vb

Imports Newtonsoft.Json

'----------- Classe che fa riferimento alle Feature del file Json -----------
Imports EgtWPFLib5
Imports System.Collections.ObjectModel

Public Class JsonStrategyFeature
   Inherits VMBase

#Region "FIELDS & PROPETIES"

   Private m_sName As String
   Public Property sName As String
      Get
         Return m_sName
      End Get
      Set(value As String)
         m_sName = value
         NotifyPropertyChanged(NameOf(sName))
      End Set
   End Property

   Private m_nPRC As Integer
   Public Property nPRC As Integer
      Get
         Return m_nPRC
      End Get
      Set(value As Integer)
         m_nPRC = value
         NotifyPropertyChanged(NameOf(nPRC))
      End Set
   End Property

   Private m_nGRP As Integer
   Public Property nGRP As Integer
      Get
         Return m_nGRP
      End Get
      Set(value As Integer)
         m_nGRP = value
         NotifyPropertyChanged(NameOf(nGRP))
      End Set
   End Property

   Private m_TopologyList As New ObservableCollection(Of JsonTopology)
   Public Property TopologyList As ObservableCollection(Of JsonTopology)
      Get
         Return m_TopologyList
      End Get
      Set(value As ObservableCollection(Of JsonTopology))
         m_TopologyList = value
         NotifyPropertyChanged(NameOf(TopologyList))
      End Set
   End Property

#End Region    ' Fields & Propeties

#Region "CONSTRUCTOR"

   <JsonConstructor>
   Sub New(sName As String, nPRC As Integer, nGRP As Integer)
      m_sName = sName
      m_nPRC = nPRC
      m_nGRP = nGRP
   End Sub

   Sub New(StrategyFeature As StrategyFeature)
      m_sName = StrategyFeature.sName
      m_nPRC = StrategyFeature.nPRC
      m_nGRP = StrategyFeature.nGRP
      For Each Topology In StrategyFeature.TopologyList
         m_TopologyList.Add(New JsonTopology(Topology))
      Next
   End Sub

#End Region    ' Constructor

End Class

'----------- Classe che fa riferimento alle Topologie delle Feature del file Json -----------
Public Class JsonTopology
   Inherits VMBase

#Region "FIELDS & PROPETIES"

   Private m_sName As String
   Public Property sName As String
      Get
         Return m_sName
      End Get
      Set(value As String)
         m_sName = value
         NotifyPropertyChanged(NameOf(sName))
      End Set
   End Property

   Private m_StrategyList As New ObservableCollection(Of JsonStrategy)
   Public Property StrategyList As ObservableCollection(Of JsonStrategy)
      Get
         Return m_StrategyList
      End Get
      Set(value As ObservableCollection(Of JsonStrategy))
         m_StrategyList = value
         NotifyPropertyChanged(NameOf(StrategyList))
      End Set
   End Property

#End Region    ' Fields & Propeties

#Region "CONSTRUCTOR"

   <JsonConstructor>
   Sub New(sName As String)
      m_sName = sName
   End Sub

   Sub New(Topology As Topology)
      m_sName = Topology.sName
      For Each Strategy In Topology.StrategyList
         m_StrategyList.Add(New JsonStrategy(Strategy))
      Next
   End Sub

#End Region    ' Constructor

End Class

'----------- Classe che fa alle Strategie delle Topologie delle Feature del file Json -----------
Public Class JsonStrategy
   Inherits VMBase

#Region "FIELDS & PROPETIES"

   Private m_sStrategyID As String
   Public Property sStrategyID As String
      Get
         Return m_sStrategyID
      End Get
      Set(value As String)
         m_sStrategyID = value
         NotifyPropertyChanged(NameOf(sStrategyID))
      End Set
   End Property

   Private m_nIndexInList As Integer = -1
   Public Property nIndexInList As Integer
      Get
         Return m_nIndexInList
      End Get
      Set(value As Integer)
         m_nIndexInList = value
         NotifyPropertyChanged(NameOf(nIndexInList))
      End Set
   End Property

   Private m_ParameterList As New ObservableCollection(Of JsonStrategyParameter)
   Public Property ParameterList As ObservableCollection(Of JsonStrategyParameter)
      Get
         Return m_ParameterList
      End Get
      Set(value As ObservableCollection(Of JsonStrategyParameter))
         m_ParameterList = value
         NotifyPropertyChanged(NameOf(ParameterList))
      End Set
   End Property

#End Region    ' Fields & Propeties

#Region "CONSTRUCTOR"

   <JsonConstructor>
   Sub New(sStrategyID As String, nIndexInList As Integer)
      m_sStrategyID = sStrategyID
      m_nIndexInList = nIndexInList
   End Sub

   Sub New(Strategy As Strategy)
      m_sStrategyID = Strategy.sStrategyID
      m_nIndexInList = Strategy.nIndexInList
      For Each Parameter In Strategy.ParameterList
         m_ParameterList.Add(New JsonStrategyParameter(Parameter))
      Next
   End Sub

#End Region    ' Constructor

End Class

'----------- Classe che fa riferimento ai parametri delle Strategie nel file Json -----------
Public Class JsonStrategyParameter
   Inherits VMBase

#Region "FIELDS & PROPETIES"

   Private m_sName As String
   Public Property sName As String
      Get
         Return m_sName
      End Get
      Set(value As String)
         m_sName = value
         NotifyPropertyChanged(NameOf(sName))
      End Set
   End Property

   Private m_sNameNge As String
   Public Property sNameNge As String
      Get
         Return m_sNameNge
      End Get
      Set(value As String)
         m_sNameNge = value
         NotifyPropertyChanged(NameOf(sNameNge))
      End Set
   End Property

   Private m_sValue As String
   Public Property sValue As String
      Get
         Return m_sValue
      End Get
      Set(value As String)
         m_sValue = value
         NotifyPropertyChanged(NameOf(sValue))
      End Set
   End Property

   Private m_sType As String
   Public Property sType As String
      Get
         Return m_sType
      End Get
      Set(value As String)
         m_sType = value
         NotifyPropertyChanged(NameOf(sType))
      End Set
   End Property

#End Region    ' Fields & Propeties

#Region "CONSTRUCTOR"

   <JsonConstructor>
   Sub New(sName As String, sNameNge As String, sValue As String, sType As String)
      m_sName = sName
      m_sNameNge = sNameNge
      m_sValue = sValue
      m_sType = sType
   End Sub

   Sub New(StrategyParameter As StrategyParameter)
      m_sName = StrategyParameter.sName
      m_sNameNge = StrategyParameter.sNameNge
      Select Case StrategyParameter.GetType()
         Case GetType(BooleanStrategyParameter)
            m_sValue = If(DirectCast(StrategyParameter, BooleanStrategyParameter).bValue, "true", "false")
         Case GetType(DoubleStrategyParameter)
            m_sValue = DirectCast(StrategyParameter, DoubleStrategyParameter).sValue
         Case GetType(ComboStrategyParameter)
            m_sValue = DirectCast(StrategyParameter, ComboStrategyParameter).SelValue.sValue
      End Select
   End Sub

#End Region    ' Constructor

End Class