Dezimalzahl nach Binär/Hex (VB.NET) Dieser Tipp zeigt, wie sich eine Dezimalzahl in Visual Basic .NET sehr einfach in eine Binärzahl oder Hexzahl umwandeln lässt.
Autor:   WaldiMaywood	Bewertung:	Views:  62.513
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Nachfolgende Funktionen zeigen, wie sich in Visual Basic.NET eine Dezimalzahl sehr einfach in eine Binärzahl und umgekehrt umwandeln lässt.

' Dezimal nach Binärzahl umwandeln
Public Function Decimal2Binary(ByVal Dec As Integer) As String
  Return Convert.ToString(Dec, 2)
End Function

' Binärzahl nach Dezimal umwandeln
Public Function Binary2Decimal(ByVal Bin As String) As Integer
  Dim l As Integer
 
  For i As Integer = 0 To Bin.Length - 1
    l = (l << 1) + Integer.Parse(Bin.Substring(i, 1))
  Next
  Return l
End Function

Das Umwandel einer Dezimalzahl nach Hexadezimal ist für VB.NET ebenfalls ein Kinderspiel.

' Dezimalzahl nach Hexadezimal umwandeln
Public Function Decimal2Hex(ByVal Dec As Integer) As String
  Return Dec.ToString("X")
End Function

Anwendung der Methoden:

Private Sub Button2_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button2.Click
 
  MessageBox.Show("Bin2Dec: " + Me.Binary2Decimal("1111").ToString)
  MessageBox.Show("Dec2Bin: " + Me.Decimal2Binary(15).ToString)
  MessageBox.Show("Dec2Hex: " + Me.Decimal2Hex(15).ToString)
End Sub

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.