Att veta hur man konverterar binära tal till sina decimaltal är en viktig färdighet att lära sig när kodning i ett programmeringsspråk som Visual Basic 6 ( VB6 ) . Till skillnad från det decimal -systemet , som har siffror från 0 till 9 , har det binära systemet endast siffror för 0 och 1 . Varje plats i ett binärt tal representerar en effekt av 2 . Det finns ingen inbyggd funktion för att konvertera ett binärt tal sträng så måste du skapa en funktion som beräknar den manuellt . Instruktioner
1
Öppna filen VB6 källa i en editor som Microsoft Visual Basic 6 .
2
Skapa en funktion som omvandlar ett binärt tal i decimalform genom att lägga koden :
Public Function ConvBinaryToInteger ( ByVal MyBinNumber As String ) As Long
Dim n As Integer ,
Dim temp As Long
för n = 1 Till Len ( MyBinNumber ) katalog
Temp = Temp + Val ( Mid ( MyBinNumber , Len ( MyBinNumber ) - n + 1 , 1 ) ) * 2 ^ ( n - 1 ) katalog
Nästa
ConvBinaryToInteger = Temp
End Function
funktionen tar varje binär siffra från höger till vänster , multiplicerar det med 2 upphöjt till lämplig effekt och sedan tillägger att värdet på kumulativ summa . Till exempel är " 110 " behandlas som " 0 * 2 ^ 0 + 1 * 2 ^ 1 + 1 * 2 ^ 2 = 6 . " Addera 3
Store det binära numret du vill att konvertera en sträng genom att lägga in koden :
Dim binstr As String = " 110 ";
4
Ring funktionen att konvertera ett binärt värde , genom att lägga in koden :
Dim resultat As Long
resultat = ConvBinaryToInteger ( binstr.Text ) katalog
variabeln " resultat " innehåller värdet för den binära konvertering , vilket i exemplet är 6 .
5
Spara VB6 fil , kompilera och köra programmet för att konvertera det binära värdet .
