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]

VB.NET Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

C# Grundlagen

Die Schulung vermittelt Ihnen die Grundlagen von C# in der Arbeit mit Datentypen sowie bei Klassenbibliotheken. Sie lernen, mit Variablen umzugehen und deren verschiedene Formen zu konvertieren. 

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!