É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

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
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
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
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 ?
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