VB - Fehler bei Binär zu Dezimal

Telmata

Hi,
ich verwende Visual Basic 2008 und habe mit meiner Binär zu Dezimal Funktion ein großes Problem.

Sobald der Binäre Wert zulang wird (und der kann bei mir ziemlich lang werden) wandelt er nichtmehr korrekt in Dezimal um.
Vielleicht kann mir jemand helfen.

die Funktion:

Code

Private Function Bin2Dec(ByVal Bin As String) As Long
        ' Von Binaer nach Dezimal umrechnen
        Dim i As Long, lngLen As Long
        lngLen = Len(Bin)                   ' Länge der Binärzahl
        For i = lngLen To 1 Step -1         ' Für jede Stelle die Schleife durchgehen
            Bin2Dec = Bin2Dec + IIf(Mid$(Bin, i, 1) = "1", 2 ^ (lngLen - i), 0)
            ' umrechnen in Dezimal (siehe Erklärung oben)
        Next i
    End Function

wird aufgerufen über:

Code

ergebnisanzeige.Text = Bin2Dec(Val(TextBox1.Text))

sind die variablen falsch deklariert oder sowas? Hab leider von VB (noch) nicht soviel ahnung.
Ich hoffe mir kann jemand helfen

vbtricks

Salut,

wie in jeder anderen Programmiersprache hat auch VB2008 (eigentlich .NET, da VB2008 darauf aufbaut) bestimmte Wertebereiche für Datentypen. Du hast in deinem Beispiel Long verwendet. Wenn du in der Programmdokumentation nachschaust, siehst du, dass für Long 8 Bytes reserviert und die größtmögliche Zahl 9.223.372.036.854.775.807 ist. Das ist aber auch schon eine ganz schön große Zahl. Wenn du noch größere Wertebereiche benötigst, musst du tricksen.

Die Zeile

Zitat

Code

ergebnisanzeige.Text = Bin2Dec(Val(TextBox1.Text))

ergibt nur mäßig Sinn, da du den String erst in eine Fließkommazahl konvertierst und dann für Bin2Dec doch wieder einen String erwartest. Daher besser

Code

ergebnisanzeige.Text = Bin2Dec(TextBox1.Text)

Außerdem solltest du Überbleibsel aus VB6 (Val, Len), nicht mehr verwenden.

Stefan

Telmata

hey danke, jetz geht es endlich.
ganz ganz liebes dankeschön von mir^^

hatte schonmal probiert von long auf Decimal umzustellen, doch brachte keinen erfolg.
ohne das Val() klappt es aber!
danke!

Tags