CONVERSION DÉCIMAL <=> BINAIRE, HEXADÉCIMAL <=> BINAIRE, BINAIRE <=> HEXADÉCIMAL

BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019 - 14 oct. 2004 à 00:58
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 29 juin 2008 à 21:27
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/26805-conversion-decimal-binaire-hexadecimal-binaire-binaire-hexadecimal

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
29 juin 2008 à 21:27
qu'as tu tenté de faire ?
sylvoc69 Messages postés 2 Date d'inscription samedi 28 juin 2008 Statut Membre Dernière intervention 29 juin 2008
29 juin 2008 à 20:24
comment il faut faire pour utiliser sur code ?
je l'ai copier dans VB6 mais ça ne marche pas
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
19 mai 2006 à 13:13
ta fonction DecToBin est fausse (pas testé les autres)

en voici un correctif :

Public Function DecToBin(ByVal DecVal As Long) As String
Dim a As Long
a = DecVal
Do
DecToBin = CStr(a Mod 2) & DecToBin
a = a \ 2
Loop While a > 0
End Function
najjarn Messages postés 9 Date d'inscription lundi 6 juin 2005 Statut Membre Dernière intervention 31 août 2005
11 août 2005 à 14:47
Bonjour,
je viens de tester ton code.Il va super bien sauf qu'il y a division par zéro dans la fonction DecToHex.
Il suffit de faire un test après avoir affecté a, selon:
If a = 0 Then
DecToHex = "0"
Exit Function
End If
Voilà tout.
Nadim.
cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
23 déc. 2004 à 20:50
Tu peux utiliser CDBL et CSTR pour convertir dans le bon type de variable.

@+
kmak Messages postés 4 Date d'inscription jeudi 23 décembre 2004 Statut Membre Dernière intervention 24 décembre 2004
23 déc. 2004 à 16:12
Salut , je suis a la fois un nouveau sur ce forum et en prog vb alors merci d'avance pour votre indulgence.


Sur la fonction BintoDec , j'ai un message d'erreur : "Incompatibilité de type" a la ligne:
TotalDec = (TotalDec * 2)+ Mid(Bin,a,1)

Ce qui ne me choque pas etant donné que :

TotalDec est un Double et que Bin est un string

Merci d'avance pour vos précisions a cette question
cs_aas Messages postés 1 Date d'inscription dimanche 14 décembre 2003 Statut Membre Dernière intervention 29 octobre 2004
29 oct. 2004 à 01:34
Claire, net, simple et précis
merci
NHenry Messages postés 15116 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 9 mai 2024 159
15 oct. 2004 à 10:06
J'en est fait un, sur 5 bases, je prépare un exemplaire beaucoup plus performant encore. mais l'idée est bonne.
cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
15 oct. 2004 à 01:24
Urgo> C'est simple à faire, pourquoi faire ?
cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 1
14 oct. 2004 à 23:43
Il est ou l'octal?
cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
14 oct. 2004 à 03:09
En posant cette source je fais une pierre deux coups ;) Je t'en reparlerai.

@+
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
14 oct. 2004 à 00:58
Salut,

MS investit beaucoup dans la recherche sur l'optimisation du compilo C/C++ en code natif, je le sais pour l'avoir vu sur place, donc je te rassure pas de suppression du C++ en vue. Le framework .net entre par contre en concurrence direct avec MFC et c'est plutot de ce cote qu'il faudra surveiller le defunt possible.

ciao...
Rejoignez-nous