September 21
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.
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.