|
Visual Basic peut changer d'une base de numéro à un autre avec un peu de manipulation en quelques lignes courtes de code. De nombreuses listes de tables de conversion numérique , y compris toutes les formes --- décimal, binaire , octal --- hexagonaux et sont disponibles sur le Web avec une simple recherche . Toutefois , il peut être utile de disposer d' un convertisseur sur votre ordinateur. Un processus de code crée un hexagone de base à la conversion binaire qui s'exécute plus rapidement que le chargement d' un navigateur et la recherche d'une table sur le Web. Choses que vous devez
Visual Basic 6.0
Voir Plus Instructions
1 Ouvrez Visual Basic et cliquez sur "Fichier" dans le menu principal . Cliquez sur "Nouveau Projet" dans le menu déroulant et choisissez " EXE standard " comme un type .
2 Double- cliquez sur l'outil "Label" ( 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 la liste " Propriétés" pour changer la légende de l'étiquette " Entrez le numéro Hex " et supprimer les lettres dans la légende du texte de la zone de texte .
3 Ajouter un bouton de commande à la former en double- cliquant sur l'outil Bouton ( un petit rectangle ) et modifier la légende de ce à lire "Convert Hex en 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 de «L'équivalent binaire est " et supprimer les lettres dans la propriété caption de la deuxième étiquette .
4 Cliquez sur "Affichage" dans le menu principal et sélectionnez «Code ». Dans la fenêtre code, tapez la commande suivante : Private Sub Command1_Click () HexNbr As StringDim DecNbr Comme IntegerDim résultat que StringDecNbr = Val ("& H " & Text1.Text ) Résultat = BinaryNbr ( DecNbr ) Do While Len ( Résultat ) < 8Result = "0" et ResultLoopLabel3.Caption = ResultEnd Sous
5 Tapez le code suivant ci-dessous que dans l'étape 4 : Fonction FirstConv (exp ByVal As Long ) Comme LongStatic TempNbr (0 à 31 ) As Long , n Comme IntegerIf TempNbr ( 0) = 0 ThenTempNbr (0) = 1 Pour n = 1 à 30TempNbr (n) = TempNbr ( n - 1) * 2NextTempNbr (31) = & H80000000End IfFirstConv = TempNbr ( exp) End Function
6 Entrez ces dernières lignes de code ci-dessous le " End Function " à l'étape 5 : Fonction BinaryNbr ( ByVal calc As Long ) Comme StringDim TempNbr As String , exp Comme IntegerTempNbr = $ String (32, "0") DOIF calc et FirstConv ( exp) ThenMid $ ( TempNbr , 32 - exp, 1) = "1" calc = calc Xor FirstConv (exp ) Fin Ifexp = exp + 1Enroulez Bien calcBinaryNbr = Mid $ ( TempNbr , 33 - exp) End Function < br > Photos 7 Utilisez la touche " F5" pour exécuter l'application . Entrez un nombre dans la case vide à côté de "Entrez un nombre Hex" et cliquez sur "Convert Hex en binaire . " Si vous avez entré le code correctement, vous verrez le résultat s'affiche dans la case vide à côté de " Le résultat est équivalent binaire . " Sinon , vérifiez le code.
|
