Å vite hvordan å konvertere binære tall til sin desimalekvivalenten er en viktig ferdighet å lære når koding i et programmeringsspråk som Visual Basic 6 ( VB6 ) . I motsetning til det desimale system som har sifre fra 0 til 9 , har det binære system bare sifre for 0 og 1 . Hvert sted i et binært tall representerer en potens av to . Det er ingen innebygd funksjon for å konvertere et binært tall streng , så du må lage en funksjon som beregner den manuelt . Instruksjoner
en

Åpne VB6 kilde filen i et redigeringsprogram , for eksempel Microsoft Visual Basic 6 .
2

Lag en funksjon som konverterer et binært tall til desimal form ved å legge koden : en

Public Function ConvBinaryToInteger ( ByVal MyBinNumber As String ) As Long

Dim n As Integer , etter

Dim temp så lenge

For n = 1 Til Len ( MyBinNumber )

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

Neste

ConvBinaryToInteger = Temp

End Function

funksjonen tar hver enkelt binære siffer fra høyre til venstre , multipliserer det med 2 opphøyd til riktig kraft og deretter legger til at verdien til kumulativ sum. For eksempel er " 110 " behandlet som " 0 * 2 ^ 0 + 1 * 2 ^ 1 + 1 * 2 ^ 2 = 6 ".
3

Oppbevar binære tallet du vil å konvertere en streng ved å legge inn koden : en

Dim binstr As String = " 110 ";
4

Ring funksjonen til å konvertere en binær verdi , ved å legge inn koden :

Dim resultat As Long

resultat = ConvBinaryToInteger ( binstr.Text )

variabelen "resultat" inneholder verdien av den binære konvertering, noe som i eksempelet er seks .

5

Lagre VB6 filen , kompilere og kjøre programmet for å konvertere den binære verdien .