Wissen, wie man Binärzahlen ihre Dezimaläquivalent konvertieren ist eine wichtige Fähigkeit zu lernen, wenn die Kodierung in einer Programmiersprache wie Visual Basic 6 ( VB6 ) . Im Gegensatz zu dem Dezimalsystem die Ziffern hat von 0 bis 9 , das binäre System nur Ziffern 0 und 1 liegt. Jeder Ort in einer binären Zahl stellt eine Leistung von 2 . Es gibt keine eingebaute Funktion , um eine binäre Zahlenfolge konvertieren , so dass Sie eine Funktion, die es berechnet manuell erstellen müssen . Anleitung
1

Öffnen Sie Ihre Quelle VB6 Datei in einem Editor wie Microsoft Visual Basic 6 .
2

Erstellen Sie eine Funktion , die eine binäre Zahl in dezimaler Form konvertiert , indem der Code :

Public Function ConvBinaryToInteger (ByVal MyBinNumber As String ) As Long Dim

n As Integer ,

Dim Temp As Long

Für n = 1. Um Len ( MyBinNumber )

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

Weiter

ConvBinaryToInteger = Temp

End Function

die Funktion nimmt jeden einzelnen binary digit von rechts nach links , multipliziert sie mit 2 hoch die entsprechende Leistung und fügt dann diesen Wert auf die kumulative Summe . Zum Beispiel wird "110" als " 0 * 2 ^ 0 + 1 * 2 ^ 1 + 1 * 2 ^ 2 = 6 ". Verarbeitet
3

Shop die binäre Zahl, die Sie wollen, in einen String , indem Sie den Code konvertieren :

Dim binstr As String = " 110 ";
4

Rufen Sie die Funktion , um einen binären Wert zu konvertieren , indem Sie den Code :

Dim Ergebnis As Long

result = ConvBinaryToInteger ( binstr.Text )

die Variable "result" enthält den Wert des binären Umwandlung, die im Beispiel 6 ist.
5

Speichern Sie die VB6 -Datei, kompilieren und starten Sie das Programm , um die binären Wert zu konvertieren.