Wie Konvertieren von binären Wert in Visual Basic 6

Wissen, wie binäre Zahlen in ihre decimal-Entsprechung zu konvertieren, ist eine wichtige Fähigkeit zu lernen, bei der Codierung in einer Programmiersprache wie Visual Basic 6 (VB6). Im Gegensatz zu dem Dezimalsystem, das Ziffern von 0 bis 9 hat, hat das binäre System nur die Ziffern 0 und 1. Jeder Ort in eine binäre Zahl stellt eine Potenz von 2. Es gibt keine eingebaute Funktion um eine binäre Zeichenfolge zu konvertieren, daher müssen Sie eine Funktion erstellen, die sie manuell berechnet.

Anweisungen

1 Öffnen Sie die VB6-Quellcode-Datei in einem Editor wie z. B. Microsoft Visual Basic 6.

2 Erstellen Sie eine Funktion, die eine Binärzahl in dezimaler Form konvertiert werden, indem Sie den Code:

Public Function ConvBinaryToInteger (ByVal MyBinNumber As String) so lange

Dim n As Integer

Dim Temp As Long

Für n = 1 bis Len(MyBinNumber)

Temp = Temp + Val(Mid(MyBinNumber, Len(MyBinNumber) - n + 1, 1))* 2 ^ (n - 1)

Nächste

ConvBinaryToInteger = Temp

EndFunction

Die Funktion nimmt jedes einzelnen Binärzahl von rechts nach links, es mit 2 potenziert mit dem entsprechenden multipliziert und dann addiert den Wert der kumulierten Summe. Als zum Beispiel "110" verarbeitet "02 ^ 0 + 12 ^ 1 + 1 * 2 ^ 2 = 6."

3 Speichern Sie die binäre Zahl in eine Zeichenfolge konvertieren, indem Sie den Code hinzufügen möchten:

Dim Binstr As String = "110";

4 Rufen Sie die Funktion um einen Binärwert zu konvertieren, indem Sie den Code:

Dim Ergebnis As Long

Ergebnis = ConvBinaryToInteger (Binstr. Text)

Die Variable "Result" enthält den Wert der binäre Konvertierung, die im Beispiel 6 ist.

5 Speichern Sie die VB6-Datei, kompilieren Sie und führen Sie das Programm, den binären Wert zu konvertieren.