Come convertire un valore binario in Visual Basic 6

Sapere come convertire i numeri binari a 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 per 0 e 1 . Ogni posto in un numero binario rappresenta una potenza di 2 . Non vi è alcun built-in funzione per convertire una stringa in numero binario quindi è necessario creare una funzione che calcola manualmente. Istruzioni
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 con l'aggiunta di il codice :

Public Function ConvBinaryToInteger ( MyBinNumber ByVal As String ) As Long

Dim n As Integer , Stati

Dim Temp As Long

Per n = 1 To Len ( MyBinNumber ) per

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

Avanti

ConvBinaryToInteger = Temp

End Function

la funzione prende ogni singola cifra binaria da destra a sinistra , lo moltiplica per 2 elevato alla potenza del caso e poi aggiunge che il valore per il somma cumulativa . Ad esempio, " 110" viene elaborato come " 0 * 2 ^ 0 + 1 * 2 ^ 1 + 1 * 2 ^ 2 = 6 . "
3

Conservare il numero binario si desidera per convertire in una stringa con il codice :

Dim binstr As String = " 110 " ;
4

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

risultato Dim As Long
risultato

= ConvBinaryToInteger ( binstr.Text ) per

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 .

• Come capitalizzare un Nome in VB 2008 
• Come accelerare il codice VBA