ÉCRIRE DES NOMBRES EN BINAIRE !
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
5 janv. 2003 à 05:02
sevmeek - 15 févr. 2013 à 18:58
sevmeek - 15 févr. 2013 à 18:58
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
https://codes-sources.commentcamarche.net/source/5568-ecrire-des-nombres-en-binaire
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