begin process at 2008 08 08 21:30:54
1 223 607 membres
365 nouveaux aujourd'hui
14 230 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONVERSION BINAIRE VERS DECIMAL / DECIMAL VERS BINAIRE


Information sur la source

Catégorie :Divers Niveau : Débutant Date de création : 24/06/2003 Date de mise à jour : 24/06/2003 15:07:18 Vu / téléchargé: 2 934 / 186

Note :
7 / 10 - par 1 personne
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

Description

Exemple :
toto=dec2bin(78)
toto vaudra alors  1001110

toto=bin2dec(1001110)
toto vaudra alors 78

Source

  • Public Function dec2bin(nombre As Long) As Long
  • i = 0: dec2bin = 0
  • Do While (nombre / 2 > 0)
  • dec2bin = dec2bin + (nombre Mod 2) * (10 ^ i)
  • nombre = Int(nombre / 2)
  • i = i + 1
  • Loop
  • End Function
  • Public Function bin2dec(nombre As Long) As Long
  • i = 0: bin2dec = 0
  • Do While (nombre >= 1)
  • bin2dec = bin2dec + (nombre Mod 10) * (2 ^ i)
  • nombre = Int(nombre / 10)
  • i = i + 1
  • Loop
  • End Function
Public Function dec2bin(nombre As Long) As Long
i = 0: dec2bin = 0
Do While (nombre / 2 > 0)
    dec2bin = dec2bin + (nombre Mod 2) * (10 ^ i)
    nombre = Int(nombre / 2)
    i = i + 1
Loop
End Function

Public Function bin2dec(nombre As Long) As Long
i = 0: bin2dec = 0
Do While (nombre >= 1)
    bin2dec = bin2dec + (nombre Mod 10) * (2 ^ i)
    nombre = Int(nombre / 10)
    i = i + 1
Loop
End Function 

Conclusion

Attention pour dec2bin, le paramètre d'entrée doit être inferieur à 1024
pour bin2dec, le paramètre d'entrée doit être inferieur à 11 1111 1111
Ceci est du à la limite du format Long
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    Commentaire de laestrella le 24/06/2003 14:00:19

    C'est bien tout ça mais dans un zip cela aurai été encore mieux
    Si tu peut en mettre un je te remercie d'avance

  • signaler à un administrateur
    Commentaire de TheSin le 25/06/2003 10:04:20

    pour ton bin2dec(nombre As Long), au lieu de mettre as long, prend plutôt une variable de type String, parce que le type long ne va permettre qu'un certain nombre de caractères, à savoir 10, si je ne me trompe.

  • signaler à un administrateur
    Commentaire de laestrella le 25/06/2003 15:17:30

    Je ne suis pas sur mais je crois que le type long permet de mettre plus de 10 caractères c'est pas de - à 2 147 483 648 ???
    Je ne sais plus mais je crois que c'est ça.

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS