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és530Date d'inscriptionlundi 3 juin 2002StatutMembreDernière intervention13 juin 2004 12 janv. 2003 à 15:08
bonne idée ! (en plus je V en avoir besoin, C kool)
boursicotteur
Messages postés201Date d'inscriptionmercredi 25 septembre 2002StatutMembreDernière intervention10 novembre 2007 11 janv. 2003 à 21:38
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és155Date d'inscriptionmardi 7 août 2001StatutMembreDernière intervention30 janvier 2008 5 janv. 2003 à 16:42
merci pour le code nektanebos
cs_legamer
Messages postés68Date d'inscriptionmercredi 14 août 2002StatutMembreDernière intervention 8 août 2003 5 janv. 2003 à 11:39
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és62Date d'inscriptionmercredi 4 décembre 2002StatutMembreDernière intervention27 avril 2003 5 janv. 2003 à 06:29
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és62Date d'inscriptionmercredi 4 décembre 2002StatutMembreDernière intervention27 avril 2003 5 janv. 2003 à 06:28
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és1491Date d'inscriptiondimanche 19 novembre 2000StatutModérateurDernière intervention 7 juillet 2014 5 janv. 2003 à 05:02
L'idée est très bonne :D, Mais sa serais bien d'avoir un code
15 févr. 2013 à 18:58
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
12 janv. 2003 à 15:08
11 janv. 2003 à 21:38
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
5 janv. 2003 à 16:42
5 janv. 2003 à 11:39
Quelqu'un serait faire l'inverse ?
5 janv. 2003 à 06:29
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
5 janv. 2003 à 06:28
'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
5 janv. 2003 à 05:02