Ich habe 2 kleine funktionen geschrieben, zum übersetzten von binär zu dez und umgekehrt(uhrsprünglich in Delphi, aber damit kann hier niemand was anfangen).
und hier sind sie
Alles anzeigen
Vllt braucht die mal jm
und hier sind sie
Quellcode
- 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
Vllt braucht die mal jm