Visual Basic peut changer d'une base de numéro à un autre avec un peu de manipulation dans certains courtes lignes 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 hexagone 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.
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.
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? liste pour modifier la légende de l'étiquette à? Entrez Nombre Hex? et supprimer les lettres dans la légende du texte de la zone de texte.
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? Autre Hex Binaire.? Faites glisser ce bouton ci-dessous les deux articles que vous avez créé à l'étape 2. Ajouter deux autres é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.
Cliquez sur? Voir? dans le menu principal et sélectionnez? Code.? Dans la fenêtre de code, tapez la commande suivante:
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) lt; 8
Résultat = "0" & Résultat
Boucle
Label3.Caption = Résultat
End Sub
Tapez le code suivant ci-dessous que dans 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
Suivant
TempNbr (31) = &H80000000
End If
FirstConv = TempNbr (exp)
End Function
Entrez ces dernières lignes de code ci-dessous l'End Function? à 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)
End If
exp = exp + 1
Loop While calc
BinaryNbr = Mid $ (TempNbr, 33 - exp)
End Function
Utilisez le? F5? touche pour exécuter l'application. Entrez un nombre dans la case vide à côté? Saisissez un numéro hexadécimal? et cliquez sur? Autre 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.