Weten hoe je binaire getallen om te zetten naar hun decimale equivalent is een belangrijke vaardigheid om te leren bij het coderen in een programmeertaal zoals Visual Basic 6 ( VB6 ) . Unlike het decimale systeem dat getallen moet 0-9 , het binaire systeem slechts cijfers voor 0 en 1 . Elke plaats in een binair getal een macht van 2 . Er is geen ingebouwde functie om een binair getal tekenreeks converteren, zodat u een functie dat het handmatig berekent moet maken . Instructies
1 Open uw VB6 bronbestand in een editor zoals Microsoft Visual Basic 6 . Kopen van 2 Maak een functie die een binair getal zal omzetten in decimale vorm door toevoeging de code : Overheidsfunctie ConvBinaryToInteger
( ByVal MyBinNumber als Koord ) zoals lang Dim n
als Geheel , Dim temp
As Long
Voor n = 1 To Len ( MyBinNumber ) op Temp = Temp + Val ( Mid ( MyBinNumber , Len ( MyBinNumber ) - n + 1 , 1 ) ) * 2 ^ ( n - 1 ) op Twitter Volgende < br ConvBinaryToInteger > = Temp End Function
de functie neemt elk individu binair cijfer van rechts naar links , vermenigvuldigt het met 2 tot de juiste kracht en dan voegt dat waarde aan de cumulatieve som . Bijvoorbeeld , " 110 " wordt verwerkt als " 0 * 2 ^ 0 + 1 * 2 ^ 1 + 1 * 2 ^ 2 = 6 . "
3 Store het binaire getal dat u wilt om te zetten in een string door het toevoegen van de code : Dim BInstr
As String = " 110 " ;
4 Roep de functie om een binaire waarde om te zetten , door het toevoegen van de code : < br Dim resultaat > As Long gevolg
= ConvBinaryToInteger ( binstr.Text ) op de variabele " resultaat " bevat de waarde van de binaire conversie , die in het voorbeeld is 6 . < br >
5 Sla het bestand VB6 , compileren en uitvoeren van het programma om de binaire waarde om te zetten .
|
