VB: Binärzahl in Dezimalzahl umrechnen - Artikel von www.it-academy.cc

- - - VB: Binärzahl in Dezimalzahl umrechnen

VB: Binärzahl in Dezimalzahl umrechnen

Das Gegenstück zur Umrechnung von Dezimal in Binär.

Autor:	Patrick Bucher (paedubucher)
Datum:	19-11-2004, 17:24:31
Referenzen:	keine
Schwierigkeit:	Fortgeschrittene
Ansichten:	13313x
Rating:	8 (1x bewertet)

Hinweis:

Für den hier dargestellte Inhalt ist nicht der Betreiber der Plattform, sondern der jeweilige Autor verantwortlich.
Falls Sie Missbrauch vermuten, bitten wir Sie, uns unter missbrauch@it-academy.cc zu kontaktieren.

[Druckansicht] [Als E-Mail senden] [Kommentar verfassen]

Einleitung

Oft liegen Zahlen binär vor. Die Umrechnung ins dezimale Zahlensystem ist zwar einfach, dafür aber relativ zeitaufwändig. Man kann auch den Windows-Rechner benutzen, damit geht es bedeutend schneller.

Damit man aber diese Umrechnung in einem eigenen Programm verwenden kann, wird nun eine Funktion geschrieben.

Wie funktioniert die Umrechnung?

Die Basis eines Zahlensystems sagt aus, wie viele Zustände eine Stelle annehmen kann. Im binären System sind das natürlich 2. Bei der Umrechnung von Dezimalzahlen in Binärzahlen dividiert man durch die Basis - für die Umkehroperation multipliziert man logischerweise mit der Basis. Die Multiplikation mit der Basis reicht nicht aus, denn sie sagt nichts über den Stellenwert der Zahl aus. Man muss die Basis jeweils noch mit der Stellennummer potenzieren. Aus diesen Aussagen kann man folgende allgemeine Schreibweise der Berechnung ableiten:

Wert * Basis^Stellenwert

Der Stellenwert beginnt immer bei 0, bei jeder weiteren Stelle ist dieser um 1 höher. Mit einem Beispiel wird der Sachverhalt klarer:

Man beginnt immer mit der Stelle ganz rechts und arbeitet sich Stelle für Stelle nach links durch.

1 * 2^0 = 1
0 * 2^1 = 0
0 * 2^2 = 0
1 * 2^3 = 8
1 * 2^4 = 16

Nun kann man die Resultate nur noch aufsummieren und man hat das Ergebnis.

1 + 8 + 16 = 25

Umsetzung

Funktionskopf

Nun folgt die Umsetzung in den Programmcode. Die Funktion benötigt nichts weiter als die binäre Zahl. Damit man aber auch größere binäre Zahlen an die Funktion übergeben kann, ist ein String besser geeignet.

Die Funktion soll später eine dezimale Zahl zurückgeben. Obwohl die Funktion nur ganze Zahlen bearbeiten kann, geben wir weder Int noch Long zurück, da diese beiden Datentypen zu klein sind. Stattdessen verwenden wir double und verschwenden dabei ein wenig Speicher.

Der Funktionskopf kann dann ungefähr so aussehen:


Public Function BinToDez(ByVal strBin As String) As Double

Variablen

Weiter geht es mit dem Deklarationsteil der Funktion, sie benötigt folgende Variablen:



Dim bytBit As Byte
Dim bytBas As Byte
Dim intStrLen As Integer
Dim dblZwischenres As Double
Dim n As Integer

Erklärungen

Nimmt später den Wert einer Stelle auf
Variable für die Basis
Steht später für die Länge des übergebenen Strings
Das Zwischenresultat aus der Berechnung einer Stelle
Ein Schleifenzähler

Initialisierung



bytBas = 2
intStrLen = Len(strBin)

Erklärungen

Jede Stelle einer Binärzahl kann zwei Werte aufnehmen
Die Len() Funktion liefert die Anzahl Stellen der Binärzahl

Alle anderen Zahlenvariablen haben den Ausgangswert 0.

Berechnung

Nun folgt die eigentliche Berechnung. Diese ist relativ komplex, obwohl sie nur wenige Zeilen Programmcode benötigt.



For n = 0 To (intStrLen - 1) Step 1
    bytBit = Mid(strBin, intStrLen - n, 1)
    If bytBit <> 0 Then
        dblZwischenres = bytBit * (bytBas ^ n)
        BinToDez = BinToDez + dblZwischenres
    End If
Next n

Erklärung

Die Schleife läuft für jede Stelle einmal durch. Die Stellenwertigkeit, welche in der Berechnung als Exponent benötigt wird, ist am Anfang 0 und beim letzten Durchlauf um 1 kleiner als die Anzahl Stellen. Die Variable n eignet sich also perfekt als Exponent.
Die Zählervariable n hat eine weitere nützliche Funktion. Es wird pro Durchlauf nur eine Stelle des Strings verwendet. Die gesamtlänge des Strings minus n ergibt immer die aktuelle Stelle innerhalb des Strings.
Die Variable bytBit nimmt also die aktuelle Stelle auf, welche mithilfe der Mid() Funktion herausgefunden wird.
Hier wird geprüft, ob die aktuelle Stelle nicht 0 beträgt.
Falls die aktuelle Stelle nicht 0, (sondern 1) beträgt, kann der dezimale Wert der aktuellen Stelle berechnet werden.
Ende des bedingten Blocks
BinToDez ist der Funktionsname und damit auch der Rückgabewert. Die Variable summiert die Zwischenresultate auf, bis die Schleife durchgelaufen ist
Das Ende der Schleife

Nun wird die Variable BinToDez automatisch zurückgegeben. Die Funktion muss nur noch beendet werden.


End Function

[back to top]

User nicht eingeloggt

Autoren:04150
Artikel:00819
Glossar:04124
News:13569
Userbeiträge:16268
Queueeinträge:05150

Ihre Anforderungen an ein Online-Zeiterfassungs-Produkt?