Comment faire pour convertir Hex en binaire dans Visual Basic

Visual Basic peut changer d'une base de numéro à un autre avec un peu de manipulation dans certaines lignes courtes de code. De nombreuses listes de tables de conversion numériques, y compris toutes les formes? Décimal, binaire, hexadécimal et octal? Sont disponibles sur le Web avec une simple recherche. Cependant, il peut être utile d'avoir un convertisseur sur votre ordinateur. Un processus de code crée un hex de base à la conversion binaire qui exécute plus vite que le chargement d'un navigateur et la recherche d'une table sur le Web.

Instructions

1 Ouvrez Visual Basic et cliquez sur? Fichier? dans le menu principal. Cliquez sur? Nouveau projet? dans le menu déroulant et sélectionner? EXE standard? en tant que type.

2 Double-cliquez sur le? Étiquette? outil (représenté par un? A?) de la boîte à outils sur la gauche. Double-cliquez sur la zone de texte (représenté par les lettres ab?). Cliquez et faites glisser la zone de texte de sorte qu'il est à côté de l'étiquette. Utilisez le? Propriétés? la liste pour modifier la légende de l'étiquette à? Entrez le numéro Hex? et supprimer les lettres dans la légende de texte de la zone de texte.

3 Ajouter un bouton de commande à la forme en double-cliquant sur l'outil Bouton (un petit rectangle) et modifier la légende de ce à lire? Convertir Hex Binaire.? Faites glisser ce bouton ci-dessous les deux articles que vous avez créé à l'étape 2. Ajoutez deux étiquettes de la même manière, en les plaçant sous le bouton de commande et sur la même ligne. Changer la légende de la première étiquette à? L'équivalent binaire est? et supprimer les lettres dans la propriété de la légende de la deuxième étiquette.

4 Cliquez sur? Voir? dans le menu principal et sélectionnez? Code.? Dans la fenêtre de code, tapez ce qui suit:
Private Sub Command1_Click ()
Dim HexNbr As String
Dim DecNbr As Integer
Résultat Dim As String
DecNbr = Val (\ "& H \" & Text1.Text)
Résultat = BinaryNbr (DecNbr)
Do While Len (Résultat) <8
Résultat = \ "0 \" & Résultat
Boucle
Label3.Caption = Résultat
End Sub

5 Tapez le code suivant en dessous à l'étape 4:
Fonction FirstConv (ByVal exp As Long) As Long
TempNbr statique (0 à 31) As Long, n As Integer
Si TempNbr (0) = 0 Then
TempNbr (0) = 1
Pour n = 1 à 30
TempNbr (n) = TempNbr (n - 1) * 2
Prochain
TempNbr (31) = & H80000000
Fin si
FirstConv = TempNbr (exp)
End Function

6 Saisissez ces dernières lignes de code ci-dessous la fonction de fin? à l'étape 5:
Fonction BinaryNbr (ByVal calc As Long) As String
Dim TempNbr As String, exp As Integer
TempNbr = chaîne de caractères $ (32, \ "0 \")
Faire
Si calc Et FirstConv (exp) Ensuite,
Mid $ (TempNbr, 32 - exp, 1) = \ "1 \"
calc = calc Xor FirstConv (exp)
Fin si
exp = exp + 1
Loop While calc
BinaryNbr = Mid $ (TempNbr, 33 - exp)
End Function

7 Utilisez le? F5? clé pour exécuter l'application. Entrez un nombre dans la case vide à côté? Entrez un numéro hexadécimal? et cliquez sur? Convertir Hex Binaire.? Si vous avez entré le code correctement, vous verrez le résultat apparaît dans la case vide à côté? Le résultat équivalent binaire est.? Sinon, revérifier le code.

Conseils et avertissements

  • Si vous voulez garder cet utilitaire en permanence, puis compiler le résultat en enregistrant d'abord le projet et former avec un nom facile à retenir, peut-être? Hex-Binary Converter.? Ensuite, cliquez sur? Fichier? et? Faire Hex-binaire Converter.exe. \ "
  • Alors que vous pouvez changer les noms des éléments tels que des étiquettes ou des boutons de commande sur les propriétés du formulaire de conception, vous devez également modifier le code pour faire correspondre les nouveaux noms. Tout le reste dans le codage doit rester exact, sauf si vous modifiez très attentivement toutes les occurrences de mots changé spécifiques.