Initial commit

Archiv/EDKB14WS - Kopie/EDKB14WS/Klassen/Log.vb

@@ -0,0 +1,43 @@
+Public Class Log
+    Dim mLogFileOK As String
+    Dim mLogfileNOK As String
+
+    Dim mLogFileDebug As String
+    Dim mdebugmode As Boolean
+
+    Public Enum Logtype As Integer
+        OK = 1
+        NOK = 2
+        Debug = 3
+    End Enum
+
+    Sub New(ByVal LogFileOK As String, ByVal logfilenok As String, ByVal logfiledebug As String, ByVal debugmode As Boolean)
+        mLogFileOK = LogFileOK
+        mLogfileNOK = logfilenok
+        mLogFileDebug = logfiledebug
+        mdebugmode = debugmode
+    End Sub
+
+    Public Sub set_file_names(ByVal LogFileOK As String, ByVal logfilenok As String)
+        mLogFileOK = LogFileOK
+        mLogfileNOK = logfilenok
+    End Sub
+
+    Public Sub Writelog(ByVal logtype As Logtype, ByVal Inhalt As String)
+        Select Case logtype
+            Case Log.Logtype.OK
+                FileOpen(99, mLogFileOK, OpenMode.Append)
+            Case Log.Logtype.NOK
+                FileOpen(99, mLogfileNOK, OpenMode.Append)
+            Case Log.Logtype.Debug
+                FileOpen(99, mLogFileDebug, OpenMode.Append)
+        End Select
+        If logtype = Log.Logtype.Debug And mdebugmode = True Then
+            WriteLine(99, Now.ToString + Chr(9) + Inhalt)
+        Else
+            If logtype = Log.Logtype.OK Or logtype = Log.Logtype.NOK Then WriteLine(99, Now.ToString + Chr(9) + Inhalt)
+        End If
+        FileClose(99)
+    End Sub
+
+End Class