BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019
-
14 oct. 2004 à 00:58
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 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.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 29 juin 2008 à 21:27
qu'as tu tenté de faire ?
sylvoc69
Messages postés2Date d'inscriptionsamedi 28 juin 2008StatutMembreDernière intervention29 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és17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 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és9Date d'inscriptionlundi 6 juin 2005StatutMembreDernière intervention31 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és1491Date d'inscriptiondimanche 19 novembre 2000StatutModérateurDerniè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és4Date d'inscriptionjeudi 23 décembre 2004StatutMembreDernière intervention24 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és1Date d'inscriptiondimanche 14 décembre 2003StatutMembreDernière intervention29 octobre 2004 29 oct. 2004 à 01:34
Claire, net, simple et précis
merci
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 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és1491Date d'inscriptiondimanche 19 novembre 2000StatutModérateurDernière intervention 7 juillet 2014 15 oct. 2004 à 01:24
Urgo> C'est simple à faire, pourquoi faire ?
cs_Urgo
Messages postés780Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention16 avril 20091 14 oct. 2004 à 23:43
Il est ou l'octal?
cs_max12
Messages postés1491Date d'inscriptiondimanche 19 novembre 2000StatutModérateurDerniè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és21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 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.
29 juin 2008 à 21:27
29 juin 2008 à 20:24
je l'ai copier dans VB6 mais ça ne marche pas
19 mai 2006 à 13:13
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
11 août 2005 à 14:47
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.
23 déc. 2004 à 20:50
@+
23 déc. 2004 à 16:12
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
29 oct. 2004 à 01:34
merci
15 oct. 2004 à 10:06
15 oct. 2004 à 01:24
14 oct. 2004 à 23:43
14 oct. 2004 à 03:09
@+
14 oct. 2004 à 00:58
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...