Feedback

VB - Zahlen als Binär darstellen

Veröffentlicht von am 16.07.2009
(1 Bewertungen)
Rechnet einen Beliebigen Wert in einen Binärwert um.
GFU-Schulungen  [Anzeige]

C# 2017/2015/2013 Aufbau

In dieser Schulung lernen Sie fortgeschrittene Techniken im Bereich .Net C#. Dabei stehen neben den eigentlichen Techniken auch architektonische Aspekte im Mittelpunkt.

VB.NET Aufbau

Sie verfügen nach der Schulung über fundierte Kenntnisse in der Arbeit mit objektorientierten Modellen in VB.NET und können wiederverwendbare Komponenten eigenständig erzeugen.

Public Class Form1

    Dim start As Integer = 178
    Dim currentbase As Integer = 1
    Dim output As String = ""

    Sub Binary()
        CalcFirst()
        Do Until currentbase = 0
            If currentbase < start Or currentbase = start Then
                output &= 1
                start -= currentbase
            Else
                output &= 0
            End If
            currentbase = currentbase / 2
        Loop
        MsgBox(output)
    End Sub

    Sub CalcFirst()
        Do Until start > currentbase And Not start > CInt(currentbase * 2)
            currentbase = currentbase * 2
        Loop
    End Sub

End Class
Abgelegt unter binär, integer, wert.

1 Kommentare zum Snippet

lotbec schrieb am 16.07.2009:
niedlicher snippet, ;-) allerdings tut es

Dim output As String = Convert.ToString(Zahl, 2)

auch
 

Logge dich ein, um hier zu kommentieren!