18 lines
613 B
VB.net
18 lines
613 B
VB.net
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 Environment.NewLine + "Error:" + Space(1) + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(errornumb.ToString) + Space(1)
|
|
End Function
|
|
Shared Function getErrorcodeindez(Errorcode As String) As String
|
|
Return VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Errorcode)
|
|
End Function
|
|
End Class
|