|
En créant un programme utilitaire court dans Visual Basic 6.0 ou Visual Basic Express, vous pouvez construire votre propre convertisseur de changer nombres décimaux équivalents binaires . Tout ce qui est nécessaire est de créer une forme d'interface avec une seule commande pour démarrer le processus et deux fonctions qui réalisent l'opération. Les fonctions traduisent un processus manuel autrement laborieux de travailler avec les pouvoirs descendant de deux opérations de soustraction et d'arriver à un nombre binaire final. Choses que vous devez
Visual Basic 6.0 ou Visual Basic Express
Afficher plus Instructions
1 Créer un programme exécutable Visual Basic en ouvrant le programme et en cliquant sur "Fichier ». Puis cliquez sur "Nouveau projet" et choisissez le type de fichier EXE standard projet.
2 placer un bouton sur le formulaire en double- cliquant sur cet outil dans la boîte à outils . Numériser vers le bas le volet " Propriétés" sur le côté droit et changer la légende du bouton "Convertir décimal en binaire . "
3 Double -cliquez sur le bouton qui maintenant doit se lire " convertir décimal à binaire " pour ouvrir la fenêtre directe de code écrit. Tapez les commandes suivantes entre le " Private Sub Command1_Click ()" et "End Sub " que vous voyez : DecimalNbr As LongDecimalNbr = InputBox (" Entrez le nombre décimal à convertir en binaire " ) MsgBox (" L'équivalent binaire est" & BinaryNbr ( DecimalNbr ) )
4 sauter plusieurs lignes après le code ci-dessus et tapez la commande suivante : ExpUp de fonction (exp ByVal As Long ) Comme intermédiaire LongStatic (0 à 31 ) As Long , n Comme IntegerIf intérimaire ( 0) = 0 Theninterim (0) = 1 Pour n = 1 à 30interim (n) = provisoire ( n - 1) * 2Nextinterim (31) = & H80000000End IfExpUp = intermédiaire ( exp) End Function
5 Passer plusieurs lignes ci-dessous les lignes ci-dessus dans le code et entrez ceci: Fonction BinaryNbr ( ByVal calc As Long ) Comme StringDim intérimaire As String , exp Comme Integerinterim = $ String (32, "0") DOIF calc et ExpUp ( exp) ThenMid $ (intérim , 32 - exp, 1) = "1" calc calc = Xor ExpUp (exp ) Fin Ifexp = exp + 1Enroulez Bien calcBinaryNbr = Mid $ (intérim , 33 - exp) End Function
6 < p> Appuyez sur " F5" pour exécuter l'application . Cliquez sur le bouton "Entrer décimal en binaire " . Entrez un nombre décimal (entier) et appuyez sur «retour». Si vous avez entré le code ci-dessus correctement , vous verrez l'équivalent binaire .
7 Enregistrez le projet et le formulaire avec un nom facile à retenir comme « Conversion binaire . " Puis cliquez sur " Fichier" et " Faire Conversion.exe binaires . Sauvegarder le résultat sur votre bureau pour un accès facile .
|
