15 lines
425 B
VB.net
15 lines
425 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 "Error:" + Space(1) + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(errornumb.ToString)
|
|
End Function
|
|
End Class
|