Savoir comment convertir des nombres binaires à leur équivalent décimal est une compétence importante à apprendre lors du codage dans un langage de programmation tels que Visual Basic 6 ( VB6 ) . Contrairement au système décimal qui a des chiffres de 0 à 9, le système binaire ne dispose que de chiffres 0 et 1. Chaque lieu en un nombre binaire représentant une puissance de 2 . Il n'ya pas de fonction intégrée pour convertir une chaîne de nombres binaires vous devez donc créer une fonction qui calcule manuellement. Instructions
1

Ouvrez votre fichier source VB6 dans un éditeur tel que Microsoft Visual Basic 6 .
2

créer une fonction qui permet de convertir un nombre binaire en forme décimale en ajoutant le code suivant:

public Function ConvBinaryToInteger ( MyBinNumber ByVal As String) As long

Dim n As Integer , AB

température As long

Pour n = 1 Pour Len ( MyBinNumber )

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

suivant

ConvBinaryToInteger = Temp

Fin de Fonction:

la fonction prend chaque individu binaire chiffres de droite à gauche , multiplie par 2 élevé à la puissance appropriée , puis ajoute cette valeur à la somme cumulative . Par exemple, "110" est traitée comme " 0 * 2 ^ 0 + 1 * 2 ^ 1 + 1 * 2 ^ 2 = 6. "
3

magasin , le nombre binaire que vous voulez pour convertir en une chaîne en ajoutant le code suivant:

binstr As string = "110" ;
4

appeler la fonction pour convertir une valeur binaire , en ajoutant le code suivant:

résultat As long
résultat

= ConvBinaryToInteger ( binstr.Text )

le "résultat " variable contient la valeur de la conversion binaire, qui dans l'exemple est de 6.
5

Enregistrez le fichier VB6, compiler et exécuter le programme pour convertir la valeur binaire .