begin process at 2012 02 11 23:40:48
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Tutoriaux

 > CALCULER LA VALEUR BINAIRE D'UN NOMBRE

CALCULER LA VALEUR BINAIRE D'UN NOMBRE


 Information sur la source

Note :
8 / 10 - par 4 personnes
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Tutoriaux Niveau :Débutant Date de création :03/11/2003 Vu / téléchargé :16 944 / 326

Auteur : ICIoBRa

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
J'ai fait ce petit programme en 2 minutes grâce aux explications suivantes trouvés sur un site expliquant comment marche le language binaire :



Comment calculer la valeur binaire d'un nombre ?

Prenons au hasard le nombre 247

247/2 = 123 ->1

123/2 = 61 ->1

61/2 = 30 ->1

30/2 = 15 ->0

15/2 = 7 ->1

7/2 = 3 ->1

3/2 = 1 ->1

1/2 = 0 ->1



Avant de commencer a le vérifier le nombre se lit de la droite vers la gauche, ce qui donne:11110111.Ensuite il faut le

décomposer en puissance de 2:

1x2^0 + 1x2^1 + 1x2^2+ 1x2^3 + 0x2^4 + 1x2^5 + 1x2^6 + 1x2^7

1+2+4+16+0+32+64+128,ce qui nous fais un total de 247 le compte est donc bon.



Vous désirez plus de précision pour être sur de ne pas vous tromper?

Prenons le nombre 102,on le divise donc par deux pendant 8 fois

102/2 = 51 , on a la un nombre pair ca nous donne 0

51/2 = 25,5 on a la un nombre a virgule ca nous donne 1

25/2 = 12,5 on a la un nombre a virgule ca nous donne 1

12/2 = 6,on a la un nombre paire ca nous donne 0

6/2 = 3,on a la un nombre paire ca nous donne 0

3/2 = 1,5 on a la un nombre a virgule ca nous donne 1

1/2 = 0,5 on a la un nombre a virgule ca nous donne 1

0,5 /2 = 0 car en calcule binaire tout nombre a diviser par zero donne zero



Ce qui nous donne:01100110

En le mettant dans le bon sens:01100110

(en binaire un nombre se lit de la droite vers la gauche)

Vérifions:

0x2^0+1x2^1+1x2^2+0x2^3+0x2^4 +1x2^5+1x2^6+0x2^7 soit 102

Source

  • 'Si on en fait une fonction cela donne :
  • Public Function Binaire(NBorCar As String) As String
  • Dim NB As Single
  • Dim i As Integer
  • For i = 1 To 8 '8 bits
  • If InStr(1, NBorCar / 2, ",") <> 0 Then Binaire = Binaire & "1" Else: Binaire = Binaire & "0"
  • NBorCar = Int(NBorCar / 2)
  • Next i
  • Binaire = StrReverse(Binaire)
  • End Function
'Si on en fait une fonction cela donne :

Public Function Binaire(NBorCar As String) As String
Dim NB As Single
Dim i As Integer
For i = 1 To 8 '8 bits
If InStr(1, NBorCar / 2, ",") <> 0 Then Binaire = Binaire & "1" Else: Binaire = Binaire & "0"
NBorCar = Int(NBorCar / 2)
Next i
Binaire = StrReverse(Binaire)
End Function

 Conclusion

N'héZitez pas a me corriger si j'ai fait une erreur.
Bonne prog' a tous ;o)

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture ENVOI N'IMPORTE QUEL FICHIER PAR WINSOCK (EXPLICATIONS)
Source avec Zip Source avec une capture 117 RADIOS SUR LE NET
Source avec Zip Source avec une capture RECUPERER LE CODE RGB D'UN PIXEL D'UNE IMAGE GRACE A L'API G...
Source avec Zip Source avec une capture QUELQUES FONCTIONS DE TEXTE UTILES
Source avec Zip Source avec une capture A DEL

 Sources de la même categorie

Source avec Zip DLL PERSONNALISÉ AVEC ÉVÈNEMENTS ET PROPRIÉTÉS EN VB6. par Number7
Source avec Zip Source .NET (Dotnet) EXEMPLE DU TUTORAIL "CLASSES MÉTIER" par Adn56
Source avec Zip Source avec une capture Source .NET (Dotnet) GESTION DES LISTES : RANGEMENT (LIST.SORT) ET FILTRAGE (LIST... par kbalist
Source avec Zip EXEMPLE SUR LES MENUS POUR AIDER LES DÉBUTANTS COMME MOI ;-) par viragoloco
LES OPÉRATIONS DE LA LISTE CHAINÉE par smaili

Commentaires et avis

Commentaire de Urgo le 03/11/2003 22:17:12

lol
C'est assez bien expliqué ton truc, mais est-ce vraiment utile comme source ?
Toute personne se servant d'un ordinateur et s'intéressant un minimun à la programmation devrait connaître ça.

En clair, cette source convient parfaitement aux débutants et aux petits, et vu que t'as l'air d'avoir prit du plaisir à faire ça je te met un 7, je suis gentil. :p

Commentaire de Renfield le 03/11/2003 22:22:06 administrateur CS

Public Function Binaire(ByVal Dec As Variant) As String
    Dim Ret As String
    If Dec = 0 Then Ret = "0"
    While Dec &gt; 0
        Ret = (Dec And 1) & Ret
        Dec = Dec  2
    Wend
    Binaire = Format(Ret, String(8 * (1 + Len(Ret)  8), "0"))
End Function

L'avantage, c'est qu'on ne se base pas sur le symbole virgule, qui peut changer d'un systeme a un autre.
de plus, une simpe comparaison binaire est plus rapide qu'un Instr
Enfin, ca prends en compte des nombres plus grands que 65535...

Commentaire de dead33 le 10/06/2006 16:08:07

donne moi le site ou te trouver ca
(svp)
A+

Commentaire de Renfield le 10/06/2006 16:19:18 administrateur CS

pardon ?

Commentaire de dead33 le 11/06/2006 14:11:15

svp ICIoBRa donne moi le nom de ce site
mais un commentaire ecrie de dedans le nom du site
!!!!!!!!!!!!!!!!!!!!!!!svp svp!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!svp svp!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Commentaire de Renfield le 11/06/2006 22:24:35 administrateur CS

demandes plutot a google ^^

http://www.commentcamarche.net/base/binaire.php3

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,374 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales