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

Signaler
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
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

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
qu'as tu tenté de faire ?
Messages postés
2
Date d'inscription
samedi 28 juin 2008
Statut
Membre
Dernière intervention
29 juin 2008

comment il faut faire pour utiliser sur code ?
je l'ai copier dans VB6 mais ça ne marche pas
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
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
Messages postés
9
Date d'inscription
lundi 6 juin 2005
Statut
Membre
Dernière intervention
31 août 2005

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.
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

Tu peux utiliser CDBL et CSTR pour convertir dans le bon type de variable.

@+
Messages postés
4
Date d'inscription
jeudi 23 décembre 2004
Statut
Membre
Dernière intervention
24 décembre 2004

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
Messages postés
1
Date d'inscription
dimanche 14 décembre 2003
Statut
Membre
Dernière intervention
29 octobre 2004

Claire, net, simple et précis
merci
Messages postés
14770
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
27 février 2021
151
J'en est fait un, sur 5 bases, je prépare un exemplaire beaucoup plus performant encore. mais l'idée est bonne.
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

Urgo> C'est simple à faire, pourquoi faire ?
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1
Il est ou l'octal?
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

En posant cette source je fais une pierre deux coups ;) Je t'en reparlerai.

@+
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
27
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...