Conversion décimal -> binaire

Soyez le premier à donner votre avis sur cette source.

Vue 4 854 fois - Téléchargée 367 fois

Description

alors, voilà bien longtemps que j'avais pas posté une source, mais là, je viens de créer cette source permettant (uniquement dsl) de convertir des nombres décimaux compris entre 0 et 256 en binaire
je sais très bien que mon code peut être optimisé, mais j'ai quand meme voulu réaliser et poster cette source car la conversion entre décimal et binaire, et vice versa (que je n'ai pas inclu ds le prog) je l'ai vue ya de ça, 2/3 jours, voilà, essayez quand mm d'être un peu indulgents.

ps : pour ceux qui me critiquent quand je fais des progs "aussi simple", essayez voir d'arreter un peu, car si vous avez des idées de programmes, je suis preneur, voilà, ciao!!

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

cs_KAC
Messages postés
2
Date d'inscription
lundi 6 septembre 2004
Statut
Membre
Dernière intervention
20 septembre 2004
-
Merci pour ton exemple.

Voici la fonction que j'ai créée à partir de ton exemple.

Inumber est le nombre à convertir
iNbBit est le nombre de bit du résultat binaire.

Public Function ConvertIntBin(iNumber As Integer, iNbBit As Integer) As String
Dim sMot As String
Dim i As Integer
sMot = ""
i = iNbBit + 1

While i >= 0
If iNumber / (2 ^ i) < 1 Then sMot sMot & "0" Else sMot sMot & "1"
If iNumber / (2 ^ i) >1 Then iNumber iNumber - (2 ^ i)
i = i - 1
Wend
ConvertIntBin = sMot
End Function


Il y a certainement des choses plus simples.
J'avais besoin de cette conversion pour tester la valeur d'un bit précis d'un nombre. Je n'ai pas trouvé de fonctions standarts via un format ou un test binaire...

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.