| maison  | Hardware  | réseaux  | programmation  | Logiciel  | Dépannage  | systèmes |  
programmation  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Connaissances Informatiques >> programmation >> Visual Basics programmation >> Content
    Comment convertir en binaire en VBA
    L'utilisation de Visual Basic pour Applications ( VBA) des scripts pour effectuer des tâches et des calculs complexes dans Microsoft Office . VBA est fourni avec 11 fonctions de conversion de type intégrés, que vous pouvez utiliser pour passer des nombres d'une notation à l'autre. Aucune de ces fonctions , cependant, peut convertir des nombres décimaux en binaire . Le système décimal utilise des puissances de 10 à dériver chiffres , le système de numération binaire , d'autre part , utilise des puissances de deux . Utiliser ce principe pour créer votre propre convertisseur décimal à binaire en VBA. Instructions
    1

    démarrer Microsoft Word ou Microsoft Excel . Appuyez sur " Ctrl" et "N " pour créer un nouveau fichier.
    2

    Appuyez sur " Alt" et " F11 " pour ouvrir l'éditeur Visual Basic ( VBE ) .
    < Br > 3

    clic-droit sur le nom du projet VBA dans le panneau " Explorateur de projet " . Cliquez sur "Insérer" et sélectionner "Module ". Cela ajoute " Module1 " à la liste.
    4

    Double- cliquez sur " Module1 ". Entrez le code suivant dans la " fenêtre de code : "

    Sous Conv2Bin ()

    istr Dim As String

    Dim i As Long

    i = Demande . InputBox ( _

    Prompt: = " Tapez le numéro que vous souhaitez convertir et cliquez sur OK. ", _

    Titre: = "Convertir en binaire" , _

    Type: " . " = 1)

    istr = CStr ( i)

    b = Cbin ( i)

    de MsgBox " Vous avez saisi " & istr & & Chr (13) & Chr (13) _

    et " sa valeur binaire est" & Chr (13 ) & B à

    End Sub
    5

    droit -cliquez sur le nom du projet VBA dans le panneau " Project Explorer" à nouveau. Cliquez sur "Insérer" et sélectionner "Module ". Cela ajoute " Module2 " à la liste.
    6

    Double- cliquez sur " Module2 ". Entrez le code suivant dans la fenêtre " Code. "

    Fonction Cbin ( Nombre As Long ) As String

    Temp As Variant

    Temp = 1
    < p > Do Until Temp > Nombre

    Temp = Temp * 2

    boucle

    Do Until Temp < 1

    Nombre > = Temp Puis Photos

    Cbin = Cbin + "1"
    Nombre de

    = Number - Temp

    Else

    Cbin = Cbin + "0"

    End If

    Temp = Temp /2

    boucle

    Cbin = CStr ( Val ( Cbin ) )

    End Function
    7

    Appuyez sur " F5 ". Sélectionnez " Conv2Bin " dans la liste des macros et cliquez sur " Exécuter".
    8 Type de

    le numéro que vous voulez convertir dans la boîte. Cliquez sur "OK". Ceci ouvre une boîte de message qui contient la valeur binaire pour le numéro que vous avez entré.

    Previous :

    next :
      articles connexes
    ·Comment fermer un formulaire Ouverte par ShowDialog 
    ·Comment charger Sockets Flash Stream dans VB.NET 
    ·Comment faire un graphique linéaire Avec Visual Basic 
    ·6.0 Les projets de formulaire Visual Basic 
    ·Visual Basic 3D jeu Tutoriel 
    ·Comment faire pour déterminer le nombre de lignes de c…
    ·Comment accéder à une grille de données 
    ·Comment combiner Suivez souris et Script Toujours visib…
    ·Comment remplacer un ArrayList 
    ·Comment faire pour enregistrer des données dans DataGr…
      articles en vedette
    ·Comment développer des applications Web en utilisant M…
    ·Comment limiter texte en HTML 
    ·Comment faire pour arranger les lignes dans Netbeans 
    ·Comment mettre à jour les attributs dans Rails 
    ·Comment faire pour supprimer les lignes en double dans …
    ·Comment désinstaller Sun Java JRE 1.6 
    ·Comment se débarrasser des erreurs AppleScript 
    ·Comment faire pour augmenter le texte Taille du champ d…
    ·Comment faire pour convertir Filemaker Pro pour MySQL 
    ·Comment faire pour utiliser des dates dans un accès de…
    Copyright © Connaissances Informatiques http://fr.wingwit.com