Umwandeln von Zahlen in die verschiedenen Zahlensysteme

    • VB.NET

      Umwandeln von Zahlen in die verschiedenen Zahlensysteme

      Hallo,

      dieses Thema ersetzt ein von Progglord erstelltes Thema.

      Nachdem ich per ICQ angefragt wurde Funktionen zum Umwandeln von Zahlen in die verschiedenen Zahlensysteme zu schreiben,
      hab ich mich hingesetzt und einfach mal angefangen - jedoch sicher nicht erschöpfend umgesetzt.

      Wer weitere Funktionen anbieten kann ist herzlich Eingeladen.

      VB.NET-Quellcode

      1. Public Class ClassConvert
      2. #Region "Dezimal in ?"
      3. ''' <summary>Konvertiert Dezimalzahlen (10er System) in Hexadezimalzahlen (16er System).</summary>
      4. ''' <param name="dezimal">Dezimalzahl als Integer.</param>
      5. ''' <returns></returns>
      6. ''' <remarks></remarks>
      7. Public Shared Function dez2hex(ByVal dezimal As Integer) As String
      8. Return Convert.ToString(dezimal, 16)
      9. End Function
      11. ''' <summary>Konvertiert Dezimalzahlen (10er System) in Binärzahlen (2er System).</summary>
      12. ''' <param name="dezimal">Dezimalzahl als Integer.</param>
      13. ''' <returns></returns>
      14. ''' <remarks></remarks>
      15. Public Shared Function dez2bin(ByVal dezimal As Integer) As String
      16. Return Convert.ToString(dezimal, 2)
      17. End Function
      19. ''' <summary>Konvertiert Dezimalzahlen (10er System) in Oktalzahlen (8er System).</summary>
      20. ''' <param name="dezimal">Dezimalzahl als Integer.</param>
      21. ''' <returns></returns>
      22. ''' <remarks></remarks>
      23. Public Shared Function dez2oct(ByVal dezimal As Integer) As String
      24. Return Convert.ToString(dezimal, 8)
      25. End Function
      26. #End Region
      27. #Region "Hex in ?"
      28. ''' <summary>Konvertiert Hexadezimalzahlen (16er System) in Dezimalzahlen (10er System).</summary>
      29. ''' <param name="hex ">Hexadezimalzahl als String.</param>
      30. ''' <returns></returns>
      31. ''' <remarks></remarks>
      32. Public Shared Function hex2dez(ByVal hex As String) As Integer
      33. Return "&H" & hex
      34. End Function
      35. #End Region
      36. End Class

      Gruss

      mikeb69