Binär Funktionen

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    • Binär Funktionen

      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

      Quellcode

      1. Private Function ToBin(ByVal Val As Integer) As String
      2. Dim rtn As String = ""
      3. Dim var1 As Integer = 0
      4. Dim i As Integer = 0
      5. Dim d As Integer = 0
      6. Do Until 2 ^ i > Val + 1
      7. i = i + 1
      8. Loop
      9. var1 = Val + 1
      10. For d = i - 1 To 0 Step -1
      11. If 2 ^ d < var1 Then
      12. rtn = rtn + "1"
      13. var1 = var1 - (2 ^ d)
      14. Else
      15. rtn = +"0"
      16. End If
      17. Next
      18. Return rtn
      19. End Function
      20. Private Function ToDec(ByVal Val As String) As Integer
      21. Dim rtn As Integer = 0
      22. Dim i As Integer
      23. For i = 0 To Val.Count - 1
      24. If Val.Substring(i, 1) = "1" Then rtn += 2 ^ i
      25. Next
      26. Return rtn
      27. End Function
      Alles anzeigen


      Vllt braucht die mal jm
    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )