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
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.
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.
- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
68je 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
68en 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
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.
@+
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
merci
- Messages postés
-
14770
- Date d'inscription
- vendredi 14 mars 2003
- Statut
- Modérateur
- Dernière intervention
- 27 février 2021
151- Messages postés
-
780
- Date d'inscription
- lundi 16 décembre 2002
- Statut
- Membre
- Dernière intervention
- 16 avril 2009
1@+
- Messages postés
-
21042
- Date d'inscription
- jeudi 23 janvier 2003
- Statut
- Modérateur
- Dernière intervention
- 21 août 2019
27MS 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...