Écrire des nombres en binaire !

0/5 (8 avis)

Snippet vu 12 002 fois - Téléchargée 42 fois

Contenu du snippet

Beaucoup de personnes me demandent comment écrire des nombres en binaires.
C'est simple et c'est quand même essentiel de connaître cette base en prog.

Le système binaire fait appel à des quantités représentant soit 1, soit le nombre 2, soit les puissances de 2 (4, 8 etc... comme 2^0 2^1 2^2 Etc..)
Ex: 1 2 4 8 16 32 64 128 256 512 1024 2048 4096
En bref pensez aux barres de mémoires vives :P

Pour réaliser le chiffre 3
nous devons tout simplement faire ceci
2^1 2^0 ce qui se traduit par 2 + 1 = 3
1 1 Nous écrivons donc 11 pour signifier que les valeurs 2^1 et 2^0 sont présentes dans le nombre 3.
Voilà c'est aussi simple que ça !
Voyons maintenant le chiffre 29
16 8 4 2 1
1 1 1 0 1
N'oubliez pas !!! Nous indiquons le chiffres 0 sous la valeur de 2 car le 2 est absent dans le chiffre 29 sous la forme binaire

En bref:
5: 101
4: 100

Voilà maintenant allez voir du monde et montrez leur que vous êtes capables d'écrire des nombres en binaire :P !

Source / Exemple :


'Pour convertir un nombre décimal positif en binaire:

Public Function Nbin(Ndec)
    Dim N, Reste
    N = 0
    Reste = 0
    Nbin = ""

    Do Until Ndec = 0
        N = N + 1
        Reste = Ndec Mod 2 ^ N
        Nbin = IIf(Reste = 2 ^ (N - 1), "1", "0") & Nbin
        Ndec = Ndec - Reste
    Loop
End Function

A voir également

Ajouter un commentaire Commentaires
Merciii à vouus
c'est facile de convertir un nombre dicimal en binaire mais le plus difficile je pense c'est de convertir un nombre Réel en binaire
si vous avez des idées SVP et merci d'avance
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
12 janv. 2003 à 15:08
bonne idée ! (en plus je V en avoir besoin, C kool)
boursicotteur Messages postés 201 Date d'inscription mercredi 25 septembre 2002 Statut Membre Dernière intervention 10 novembre 2007
11 janv. 2003 à 21:38
Pour convertir un nombre décimal positif en binaire:


Public Function Nbin(Ndec)
Dim N, Reste
N = 0
Reste = 0
Nbin = ""

Do Until Ndec = 0
N = N + 1
Reste = Ndec Mod 2 ^ N
Nbin IIf(Reste 2 ^ (N - 1), "1", "0") & Nbin
Ndec = Ndec - Reste
Loop
End Function
ATH|500| Messages postés 155 Date d'inscription mardi 7 août 2001 Statut Membre Dernière intervention 30 janvier 2008
5 janv. 2003 à 16:42
merci pour le code nektanebos
cs_legamer Messages postés 68 Date d'inscription mercredi 14 août 2002 Statut Membre Dernière intervention 8 août 2003
5 janv. 2003 à 11:39
Merci les gars, j'ai cherché cette fonction pendant des heures et je n'y arrivai guerre.
Quelqu'un serait faire l'inverse ?
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.