You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
51 lines
1.3 KiB
51 lines
1.3 KiB
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
|