Binär zu Dezimal Umwandler

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Gaga.

    Binär zu Dezimal Umwandler

    Hallo zusammen.

    Habe hier einen Umwandler geschrieben, der von Dezimal zu Binär umwandelt.

    VB.NET-Quellcode

    1. Public Class frmFenster
    4. Private Sub btnUmwandlung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUmwandlung.Click
    6. Dim Rest As Integer
    7. Dim Zahl As Single
    8. Dim x As Integer
    9. Dim a As Integer
    10. Dim Ergebnis(15) As Char
    12. x = 0
    13. a = 0
    14. Zahl = Val(txtEingabe.Text)
    16. For a = 0 To 15
    17. Ergebnis(a) = "0"
    19. Next a
    21. While Zahl > 0
    22. Rest = Zahl Mod 2
    23. Ergebnis(x) = Convert.ToString(Rest)
    24. x = x + 1
    25. Zahl = Int(Zahl / 2)
    26. End While
    28. For a = 15 To 0 Step -1
    29. lblAusgabe.Text = lblAusgabe.Text & Ergebnis(a)
    30. Next
    32. End Sub
    34. Private Sub frmFenster_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    36. End Sub
    37. End Class


    Jetzt möchte ich das ganze gerne umdrehen. Das heißt eine Binäre Zahl eingeben und er soll mir die Dezimale errechnen. Wie kann ich das am besten realisieren?

    Mit freundlichen Grüßen

    hkc_rainer

    Hi
    Sollte so funktionieren:

    VB.NET-Quellcode

    1. Private Function ToDecimal(ByVal str As String) As Long
    2. Dim length As Long
    3. Dim lngDec As Long
    5. length = str.Length
    6. For i As Integer = length To 1 Step -1
    7. If str(i - 1) = "1" Then
    8. lngDec = lngDec + (2 ^ (length - i))
    9. Else
    10. lngDec = lngDec + 0
    11. End If
    12. Next
    13. Return lngDec
    14. End Function


    Gruß
    ~blaze~

    Vielen Dank erst einmal.

    Geht das auch so ungefähr wie bei dem anderen Umwandler?

    IngDec, Str.Length und noch mehrere Sachen kenne ich noch nicht.

    Ich kann nur soweit interpretieren:

    Private Funktion die ToDecimal heißt. Dann zwei variablen deklariert.
    und dann hast du ne schleife gemacht die runterzählt.
    und dann kommt z.b das ingDec...
    Return glaub ich gibt das ganze nur aus, bin ich mir aber auch nicht sicher.

    Gruß
    hkc_rainer

    Das ganze sieht nun so aus:

    VB.NET-Quellcode

    1. Public Class frm_Fenster
    2. Dim length As Long
    3. Dim lngDec As Long
    4. Private Function ToDecimal(ByVal Str As String) As Long
    6. length = Str.Length
    7. For i As Integer = length To 1 Step -1
    8. If Str(i - 1) = "1" Then
    9. lngDec = lngDec + (2 ^ (length - i))
    10. Else
    11. lngDec = lngDec + 0
    12. End If
    13. Next
    14. Return lngDec
    15. End Function
    16. Private Sub frm_Fenster_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    18. End Sub
    20. Private Sub btn_Knopf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Knopf.Click
    21. End Sub
    23. End Class


    Aber irgendwie funktioniert das nicht so wie ich will^^
    Eigentlich wollte ich ne textbox in der ich ne binärzahl eingebe, und die dann im label als dezimal erscheint, nachdem ich auf den button gedrückt habe...
    Magst du nochmal helfen?

    Gruß
    hkc_rainer

    Melde mich nun nochmal zu Wort.
    Das Programm sieht nun folgendermaßen aus:

    VB.NET-Quellcode

    1. Public Class frm_fenster
    2. Dim length As Long
    3. Dim lngDec As Long
    4. Private Function ToDecimal(ByVal Str As String) As Long
    6. length = Str.Length
    7. For i As Integer = length To 1 Step -1
    8. If Str(i - 1) = "1" Then
    9. lngDec = lngDec + (2 ^ (length - i))
    10. Else
    11. lngDec = lngDec + 0
    12. End If
    13. Next
    14. Return lngDec
    15. End Function
    17. Private Sub frm_fenster_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. End Sub
    21. Private Sub btn_Knopf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Knopf.Click
    22. lbl_Label.Text = ToDecimal(txt_Textbox.Text)
    23. End Sub
    24. End Class


    Die Umwandlung funktioniert, aber leider nicht perfekt.
    Trage ich 1111 in die TextBox ein, so erscheint im Label die passende Dezimalzahl, in diesem Fall 15.
    Wenn ich nochmal den Button drücke, schreibt er aber 30, obwohl die 1111 geblieben ist. Genau so bei einer anderen Zahl, er addiert, statt den alten Wert zu löschen.
    Habe auch schon mal probiert das mit einem zweiten Button zu lösen, indem ich mit dem Button das Label auf 0 setze. Hat aber leider nicht geklappt.
    Kann wer helfen?

    Gruß
    hkc_rainer

    PS: Kann jmd. gute Tutorials oder sowas in der Art empfehlen? Habe das Buch vb.net in 21 Tagen und Visual Basic 2008 einfach lernen.

    Du solltest dich zuerst mal mit den Grundlagen beschäftigen, Variablendeklaration, Datentypen, Gültigkeitsbereiche etc.
    ~blaze~ hatte in seinem Beispiel die Variablen length und lngDec innerhalb der Fkt definiert, du hast sie außerhalb definiert. Deshalb wird bei deiner Funktion dazuaddiert, weil ja der alte Wert beim zweiten Aufruf noch vorhanden ist, bei ~blaze~'s Version jedoch nicht.

    Visual Basic 2005 Das umfassende Handbuch
    Einstieg in Visual Basic 2008

Facebook
Telefonspende