Binär Funktionen

Private Function ToBin(ByVal Val As Integer) As String
        Dim rtn As String = ""
        Dim var1 As Integer = 0
        Dim i As Integer = 0
        Dim d As Integer = 0
        Do Until 2 ^ i > Val + 1
            i = i + 1
        Loop
        var1 = Val + 1
        For d = i - 1 To 0 Step -1
            If 2 ^ d < var1 Then
                rtn = rtn + "1"
                var1 = var1 - (2 ^ d)
            Else
                rtn = +"0"
            End If
        Next
        Return rtn
    End Function


    Private Function ToDec(ByVal Val As String) As Integer
        Dim rtn As Integer = 0
        Dim i As Integer
        For i = 0 To Val.Count - 1
            If Val.Substring(i, 1) = "1" Then rtn += 2 ^ i
        Next
        Return rtn
    End Function