ÉCRIRE DES NOMBRES EN BINAIRE !

Signaler
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
 sevmeek -
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5568-ecrire-des-nombres-en-binaire

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

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

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

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

Merci les gars, j'ai cherché cette fonction pendant des heures et je n'y arrivai guerre.
Quelqu'un serait faire l'inverse ?
Nektanebos
Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003

chiffre = Text1.Text
bi = 0
expo = 0
For i = Len(chiffre) To 1 Step -1
' pour i = dernié caractère jusque 1
If Val(Mid$(chiffre, i, 1)) > 1 Or Val(Mid$(chiffre, i, 1)) < 0 Then
'test si c'est bien du binaire
If MsgBox("La valeur " & Mid$(chiffre, i, 1) & " n'est pas du binaire", vbCritical + vbOKOnly, "Erreur") Then
Text2.Text = ""
Exit Sub
End If
End If
bi = bi + (Val(Mid$(chiffre, i, 1)) * (2 ^ expo)) ' fois base expensant en le rang
expo = expo + 1
'on incrémente le rang
Next i
Text2 = bi
End Sub
Nektanebos
Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003

Public Function bin(Number) As String
'Limité à long
If Abs(Number) > 1 Then
binaire = bin(Number 2) & CStr(Number Mod 2)
Else
binaire = CStr(Number)
End If
bin = binaire
End Function
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

L'idée est très bonne :D, Mais sa serais bien d'avoir un code