Initial commit

EDKB21/EDKB17/Klassem/clsParameter.vb

@@ -0,0 +1,50 @@
+Imports System.IO
+
+'''<summary>Klasse zum auselesen der Steuerparameter aus der Datei
+'''\bin\parameters.cfg</summary>
+'''<author>Stefan Hutter</author>
+Public Class ClsParameters
+
+#Region "Deklarationen"
+
+    Dim m_startparameter As String
+    Property Startparameter As String
+        Get
+            Return m_startparameter
+        End Get
+        Set(value As String)
+            m_startparameter = value
+        End Set
+    End Property
+    Dim m_EDOKA_Connection As String
+    Dim m_timerintervall As Integer
+    Property TimeIntervall As Integer
+        Get
+            Return m_timerintervall
+        End Get
+        Set(value As Integer)
+            m_timerintervall = value
+        End Set
+    End Property
+
+
+#End Region
+
+    '''<summary>Laden der Parameterdaten aus parameters.cfg</summary>
+    '''<remarks>Die Funktion lädt für die Anwendung die notwendigen Parameter aus der
+    '''Datei "Parameters.cfg"</remarks>
+    '''<returns>True im OK-Fall
+    '''False im Fehlerfall</returns>
+    Public Function Loadparameters() As Boolean
+        Try
+            Me.Startparameter = My.Settings.Startparameter
+            Me.TimeIntervall = My.Settings.TimerIntervall_in_Sekunden * 1000
+            Return True
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+
+
+
+End Class