Änderungen an Fehlersystem

App_Code/VERAG_VARIABLES.vb

@@ -0,0 +1,14 @@
+Imports Microsoft.VisualBasic
+
+Public Class VERAG_VARIABLES
+    Public Shared errornumb As Integer = 0
+    Shared Sub initerrorcount()
+        errornumb = 0
+    End Sub
+    Shared Sub seterrorcount(var As Integer)
+        errornumb += 1
+    End Sub
+    Shared Function geterrornumb() As String
+        Return "Error:" + Space(1) + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(errornumb.ToString)
+    End Function
+End Class