Emmanuele Sassi
d3314d0c1f
- aggiunte nuove funzionalita' a lista porte - aggiunta pagina macchina con lettura variabili e disegno - implementato json di backup
114 lines
2.8 KiB
VB.net
114 lines
2.8 KiB
VB.net
Imports Newtonsoft.Json
|
|
Imports Newtonsoft.Json.Converters
|
|
Imports Supervisor.Plugin.FiveLakes.Door
|
|
|
|
Public Class JsonDoor
|
|
|
|
Private m_nListIndex As Integer
|
|
Public ReadOnly Property nListIndex As Integer
|
|
Get
|
|
Return m_nListIndex
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nId As Integer
|
|
Public ReadOnly Property nId As Integer
|
|
Get
|
|
Return m_nId
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nCSVLine As Integer
|
|
Public ReadOnly Property nCSVLine As Integer
|
|
Get
|
|
Return m_nCSVLine
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sDDFName As String
|
|
Public ReadOnly Property sDDFName As String
|
|
Get
|
|
Return m_sDDFName
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nQuantity As Integer
|
|
Public ReadOnly Property nQuantity As Integer
|
|
Get
|
|
Return m_nQuantity
|
|
End Get
|
|
End Property
|
|
|
|
Private m_dWidth As Double
|
|
Public ReadOnly Property dWidth As Double
|
|
Get
|
|
Return m_dWidth
|
|
End Get
|
|
End Property
|
|
|
|
Private m_dHeight As Double
|
|
Public ReadOnly Property dHeight As Double
|
|
Get
|
|
Return m_dHeight
|
|
End Get
|
|
End Property
|
|
|
|
Private m_dThickness As Double
|
|
Public ReadOnly Property dThickness As Double
|
|
Get
|
|
Return m_dThickness
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sCSVName As String
|
|
Public ReadOnly Property sCSVName As String
|
|
Get
|
|
Return m_sCSVName
|
|
End Get
|
|
End Property
|
|
|
|
Private m_CustomerParameters As New List(Of CustomerParameter)
|
|
Public ReadOnly Property CustomerParameters As List(Of CustomerParameter)
|
|
Get
|
|
Return m_CustomerParameters
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nState As DoorStates = DoorStates.LOADED_FROM_CSV
|
|
<JsonProperty>
|
|
<JsonConverter(GetType(StringEnumConverter))>
|
|
Public ReadOnly Property nState As DoorStates
|
|
Get
|
|
Return m_nState
|
|
End Get
|
|
End Property
|
|
|
|
<JsonConstructor>
|
|
Sub New(nListIndex As Integer, nId As Integer, nCSVLine As Integer, sDDFName As String, sCSVName As String, nQuantity As Integer, dWidth As Double, dHeight As Double, dThickness As Double, CustomerParameters As List(Of CustomerParameter))
|
|
m_nListIndex = nListIndex
|
|
m_nId = nId
|
|
m_nCSVLine = nCSVLine
|
|
m_sDDFName = sDDFName
|
|
m_sCSVName = sCSVName
|
|
m_nQuantity = nQuantity
|
|
m_dHeight = dHeight
|
|
m_dWidth = dWidth
|
|
m_dThickness = dThickness
|
|
m_CustomerParameters = CustomerParameters
|
|
End Sub
|
|
|
|
Sub New(nListIndex As Integer, Door As Door)
|
|
m_nListIndex = nListIndex
|
|
m_nId = Door.nId
|
|
m_nCSVLine = Door.nCSVLine
|
|
m_sDDFName = Door.sDDFName
|
|
m_sCSVName = Door.sCSVName
|
|
m_nQuantity = Door.nQuantity
|
|
m_dHeight = Door.dHeight
|
|
m_dWidth = Door.dWidth
|
|
m_dThickness = Door.dThickness
|
|
m_CustomerParameters = Door.CustomerParameters
|
|
End Sub
|
|
|
|
End Class
|