Änderungen zur Rückrechnung des Fehlercodes in Dezimalzahlen

App_Code/VERAG_VARIABLES.vb

@@ -11,5 +11,7 @@ Public Class VERAG_VARIABLES
     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

Customers/Default2.aspx

@@ -52,12 +52,28 @@
                       <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
                  </td>
              </tr>
+             <tr>
+                 <td>
+                     <asp:Label ID="Label_Fehlercode" runat="server" Text="Hier bitte den Fehlercode eingeben:"></asp:Label>
+                 </td>
+                 <td>
+                    <asp:TextBox ID="txt_Fehlercode" runat="server"></asp:TextBox>
+                 </td>
+             </tr>
     <tr><td>
           <asp:Label ID="Label3" runat="server" Text="Zahl in Fehlercode von:"></asp:Label>   
         </td></tr>
    <tr><td>
        <asp:Label ID="Label2" runat="server" Text="Hier erscheint die Zahl"></asp:Label>
        </td></tr>
+             <tr>
+                 <td>
+                     <asp:Label ID="label_FehlercodetoZahl" runat="server" Text="Fehlercode in der Dezimalzahl erscheint hier:"></asp:Label>
+                 </td>
+                 <td>
+                     <asp:Label ID="txt_Fehlercodezuzahl" runat="server" Text="Hier erscheint der Fehlercode als normale Zahl"></asp:Label>
+                 </td>
+             </tr>
              <tr><td>          
     <tr><td><asp:Button ID="Button1" runat="server" Text="Button" OnClick="Button1_Click" /></td></tr>    
              </table>

Customers/Default2.aspx.vb

@@ -9,7 +9,8 @@ Partial Class Customers_Default2
         End If
     End Sub
     Protected Sub Button1_Click(sender As Object, e As EventArgs)
-        If String.IsNullOrEmpty(TextBox1.Text) = False Then
+        If String.IsNullOrEmpty(TextBox1.Text) = False And String.IsNullOrEmpty(TextBox2.Text) = False Then
+            VERAG_VARIABLES.initerrorcount()
             Dim vals As New List(Of String)
             Dim finalstr As String = ""
             For i As Integer = Integer.Parse(TextBox1.Text) To Integer.Parse(TextBox2.Text)
@@ -23,5 +24,10 @@ Partial Class Customers_Default2
             Next
             Label2.Text = finalstr
         End If
+        If String.IsNullOrEmpty(txt_Fehlercode.Text) = False Then
+            Dim finalstr As String = String.Empty
+            finalstr = VERAG_VARIABLES.getErrorcodeindez(txt_Fehlercode.Text)
+            txt_Fehlercodezuzahl.Text = finalstr
+        End If
     End Sub
 End Class