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