CONVERTIR UN NOMBRE DÉCIMAL EN BINAIRE ET INVERSE
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
28 juil. 2004 à 18:14
Utilisateur anonyme - 29 juil. 2004 à 00:36
Utilisateur anonyme - 29 juil. 2004 à 00:36
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/24966-convertir-un-nombre-decimal-en-binaire-et-inverse
https://codes-sources.commentcamarche.net/source/24966-convertir-un-nombre-decimal-en-binaire-et-inverse
29 juil. 2004 à 00:36
28 juil. 2004 à 19:35
Private Function BinàDec(ByVal bin As String) As Long
longueur = Len(bin)
For i = 1 To longueur
BinàDec = BinàDec + CLng(Mid(bin, i, 1)) * 2 ^ (longueur - i)
Next i
End Function
Private Function DecàBin(ByVal dec As Long) As String
Do
DecàBin ("1" And dec Mod 2 1) & DecàBin
dec = dec \ 2
Loop Until dec = 0
End Function
28 juil. 2004 à 18:14
Argument passés pa référence modifiés...
Valeur retournée dans une variable globale (pourquoi pas par la fonction ?)
utilisation répétée de la fonction puissance (lente et inutile ;) )
de plus, le typage des variables n'aide pas a la lecture...