Changes for issue #109

2017-11-20 10:54:06 -06:00
parent bd2b828bd3
commit 644d073af0
4 changed files with 100 additions and 12 deletions
@@ -0,0 +1,32 @@
+Public Class ExportData
+    Dim oExportInformation As ExportInformation
+    Dim oConfigs As List(Of Game)
+
+    Property Information As ExportInformation
+        Set(value As ExportInformation)
+            oExportInformation = value
+        End Set
+        Get
+            Return oExportInformation
+        End Get
+    End Property
+
+    Property Configurations As List(Of Game)
+        Set(value As List(Of Game))
+            oConfigs = value
+        End Set
+        Get
+            Return oConfigs
+        End Get
+    End Property
+
+    Public Sub New()
+        oExportInformation = New ExportInformation()
+        oConfigs = New List(Of Game)
+    End Sub
+
+    Public Sub New(ByVal oInitExportInformation As ExportInformation, ByVal oInitConfigs As List(Of Game))
+        oExportInformation = oInitExportInformation
+        oConfigs = oInitConfigs
+    End Sub
+End Class
@@ -0,0 +1,32 @@
+Public Class ExportInformation
+    Private dExported As Int64
+    Private iAppVer As Integer
+
+    Property Exported As Int64
+        Set(value As Int64)
+            dExported = value
+        End Set
+        Get
+            Return dExported
+        End Get
+    End Property
+
+    Property AppVer As Integer
+        Set(value As Integer)
+            iAppVer = value
+        End Set
+        Get
+            Return iAppVer
+        End Get
+    End Property
+
+    Public Sub New()
+        dExported = 0
+        iAppVer = 0
+    End Sub
+
+    Public Sub New(ByVal dInitExported As Int64, ByVal iInitAppVer As Integer)
+        dExported = dInitExported
+        iAppVer = iInitAppVer
+    End Sub
+End Class