Saper convertire numeri binari in loro equivalente decimale è un'abilità importante da imparare quando si codifica in un linguaggio di programmazione come Visual Basic 6 (VB6). A differenza del sistema decimale che ha cifre da 0 a 9, il sistema binario ha solo cifre 0 e 1. Ogni luogo in un numero binario rappresenta una potenza di 2. Non c'è alcuna funzione incorporata per convertire una stringa di numeri binaria, pertanto è necessario creare una funzione che calcola manualmente.

Istruzioni

1

Aprire il file di origine di VB6 in un editor, ad esempio Microsoft Visual Basic 6.

2

Creare una funzione che permette di convertire un numero binario in decimale form aggiungendo il codice:

Public Function ConvBinaryToInteger (ByVal MyBinNumber As String) As Long

Dim n As Integer,

Dim temp As Long

Per n = 1 To Len(MyBinNumber)

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

Successivo

ConvBinaryToInteger = Temp

End Function

La funzione accetta ogni singola cifra binaria da destra a sinistra, moltiplica per 2 elevato alla potenza appropriata e quindi aggiunge tale valore la somma cumulativa. Ad esempio, "110" viene elaborato come "02 ^ 0 + 12 ^ 1 + 1 * 2 ^ 2 = 6."

3

Memorizzare il numero binario che si desidera convertire in una stringa aggiungendo il codice:

Dim binstr As String = "110";

4

Chiamare la funzione per convertire un valore binario, aggiungendo il codice:

String result As Long

risultato = ConvBinaryToInteger (binstr. Testo)

La variabile "risultato" contiene il valore della conversione binaria, che nell'esempio è 6.

5

Salvare il file di VB6, compilare ed eseguire il programma per convertire il valore binario.