Vide, hvordan man konverterer binære tal til deres tilsvarende decimaltal er en vigtig færdighed at lære, når kodning i et programmeringssprog som Visual Basic 6 ( VB6 ) . I modsætning til den decimal system, som har cifre fra 0 til 9 , er det kun binære system har cifre for 0 og 1 . Hvert sted i et binært tal repræsenterer en effekt på 2 . Der er ikke nogen indbygget funktion til at konvertere et binært tal snoren, så skal du oprette en funktion, der beregner den manuelt. Instruktioner
1

Åbn din VB6 kildefil i en editor såsom Microsoft Visual Basic 6 .
2

Opret en funktion, der vil konvertere et binært tal til decimal form, ved at tilføje koden : Hej

Public Function ConvBinaryToInteger ( ByVal MyBinNumber As String ) As Long

Dim n As Integer , salg

Dim temp As Long

n = 1 Til Len ( MyBinNumber )

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

Næste < br >

ConvBinaryToInteger = Temp

End Function

funktionen tager hver enkelt binært ciffer fra højre til venstre, multiplicerer den med 2 opløftet til passende effekt , og derefter tilføjer, at værdien af kumulative sum . For eksempel er " 110 " behandles som " 0 * 2 ^ 0 + 1 * 2 ^ 1 + 1 * 2 ^ 2 = 6 ".
3

Opbevar binære tal , du ønsker at konvertere i en streng ved at tilføje koden : Hej

Dim binstr As String = " 110 "
4

Kald funktionen til at konvertere en binær værdi , ved at tilføje koden : < br >

Dim resultat As Long

result = ConvBinaryToInteger ( binstr.Text )

variablen "resultat " indeholder værdien af den binære konvertering, hvilket i eksemplet er 6. . < br >
5

Gem VB6 filen , kompilere og køre programmet til at konvertere den binære værdi.