Come convertire un valore binario in Visual Basic 6

September 21

Come convertire un valore binario in Visual Basic 6


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

istruzione

1 Aprire il file sorgente VB6 in un editor come Microsoft Visual Basic 6.

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

ConvBinaryToInteger Funzione pubblica (ByVal MyBinNumber As String) As Long

Dim n As Integer,

Temp Dim As Long

Per n = 1 Per Len (MyBinNumber)

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

Il prossimo

ConvBinaryToInteger = Temp

End Function

La funzione accetta ogni singolo numero binario da destra a sinistra, moltiplica per 2 elevato alla potenza appropriata e poi aggiunge che il valore per la somma cumulativa. Ad esempio, "110" viene elaborata come "0

2 ^ 0 + 1 2 ^ 1 + 1 * 2 ^ 2 = 6."

3 Conservare 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:

Dim result As Long

risultato = ConvBinaryToInteger (binstr.Text)

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

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