Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 659
Nombre de snippets : 2085
Connexion

Convertir un nombre en chaîne de représentation binaire (base10 vers base2)

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 07/01/2008 00:40:49 et initié par PCPT [Liste]
Date de mise à jour : 07/01/2008 19:12:55
Vue : 12306
Catégorie(s) : Maths, Algorithme, Divers
Langages dispo pour ce code :
- VB6, VBA
- Javascript
- VB 2005, VB.NET 1.x
- Delphi 5
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 07/01/2008
Posté par PCPT [Liste]
Function ConvertBase10ToBase2(ByVal Value As Long) As String
    Dim lQuotien As Long, lRest As Long
    
'   valeur  positive
    ConvertBase10ToBase2 = vbNullString
    Value = Abs(Value)
'   crée la  chaîne
     Do
        lQuotien = Value \ 2
        lRest = Value - (lQuotien * 2)
        ConvertBase10ToBase2 = CStr(lRest) & ConvertBase10ToBase2
        Value = lQuotien
     Loop Until lQuotien = 0
End Function
Remarque :
MsgBox Format$(ConvertBase10ToBase2(66666), "0000000000000000")
MsgBox Format$(ConvertBase10ToBase2(666), "00000000")
Langage : Javascript
Date ajout : 07/01/2008
Posté par FraGag [Liste]
 function convertToBase2(number) {
     return number.toString(2); // 2 peut être remplacé par n'importe quel nombre entre 2 et 36
 }
 
 alert(convertToBase2(1337));
Langage : VB.NET 1.x , VB 2005
Date ajout : 07/01/2008
Posté par PCPT [Liste]
DateMAJ : 07/01/2008 

Function ConvertBase10ToBase2(ByVal Value As Long) As String

Dim lQuotien As Long, lRest As Long

Dim sRet As String = String.Empty 

    ' valeur positive

    Value = Math.Abs(Value)

    ' crée la chaîne

    Do

        lQuotien = Value \ 2

        lRest = Value - (lQuotien * 2)
        sRet = String.Concat(lRest.ToString, sRet) 
        Value = lQuotien
    Loop Until lQuotien = 0 
    Return sRet 
End Function
Remarque :
MessageBox.Show(ConvertBase10ToBase2(666))
Langage : Delphi 5
Date ajout : 19/01/2008
Posté par f0xi [Liste]
voir le snippet :
 
 Codyx - Convertion donnée vers chaine binaire 
 Fonctionne pour tout.

Snippets en rapport avec : Convertir, Numérique, Binaire, Base10, Base2

05/02/2010 - CONVERTION UNITE DE VITESSE

11/11/2008 - Convertir un texte en sa representation binaire et inversement

05/07/2008 - Binaire vers Hexa (BinToHex) et Hexa vers Binaire (HexToBin)

22/06/2008 - Convertir une chaine en un tableau de chaine (en tenant compte des retours chariot)

15/03/2008 - huffman : arbre et chaine de binaire

05/11/2007 - Convertir un tableau de bytes en image

25/09/2007 - Transformer un tableau de boolean en un tableau de byte

23/08/2007 - Format html (url) vers format chaîne ascii

04/03/2007 - Convertion toutes données vers chaine representation binaire

02/12/2006 - Convertir la taille d'un objet StdPicture



Codes sources en rapport avec : Convertir, Numérique, Binaire, Base10, Base2

{Visual Basic, VB6, VB.NET, VB 2005} CONVERTISSEUR BINAIRE
Bonjour. J'ai lutter pour pouvoir convertir un buffer(Byte) en Bits avec la fontion BitConverter...

{C / C++ / C++.NET} OBTENIR L'ETAT DES BITS QUI COMPOSENT UN OCTET (CONVERSION XX->BINAIRE)
J'ai regardé très rapidement si la source n'existait pas et je ne l'ai pas trouvé. Je précise que c...

{ASP / ASP.NET} ASP.NET - FONCTION DE PASSAGE D'UN FICHIER BINAIRE VERS UN TABLEAU DE BYTE
Dans le cas d'utilisation de Classe d'objet complexe, certains paramêtres peuvent être des fichiers ...

{Visual Basic, VB6, VB.NET, VB 2005} CONVERTISSEURS ASCII-HEXA-BINAIRE-TEXTE + CRYPTAGE, UTILE POUR DÉBUTANT
Etant débutant sur tout ce qui concerne le codage j'ai cherché en vain une source qui résumait un pe...

{C / C++ / C++.NET} CONVERSION DES CHIFFRES EN LETTRES
C'est un petit programme pour convertir des chiffres(int ) en lettres....

{Visual Basic, VB6, VB.NET, VB 2005} CONVERTISSEUR BINAIRE/DÉCIMALE ET DÉCIMALE/BINAIRE
Petit programme à emmener partout surtout lorsqu'il y a lieu de faire une mise au point pour décoder...

{Visual Basic, VB6, VB.NET, VB 2005} SÉRIALISTION - DÉSERIALISATION DE TABLEAUX ET COLLECTIONS
Après la source pour la sérialisation - désérialisation d'une LameGrid (que j'ai amélioré d'ailleurs...

{Visual Basic, VB6, VB.NET, VB 2005} [LAMEGRID] SÉRIALISATION - DÉSERIALISATION
Classe permettant la sérialisation - désérialisation d'une LameGrid. Accompagnée d'un exemple d'util...

{PHP} CHIFFRES EN LETTRES
cette source converti des chiffres en des chaines de caractère en toute lettre supporte jusqu'à 999...

{Delphi} CONVERTISSEUR D'UN NOMBRE DÉCIMAL EN BINAIRE ET HEXADECIMAL
Petit programme très simple qui convertit un nombre décimal que l'utilisateur saisi lui-même en nomb...