cs_Urgo
Messages postés780Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention16 avril 2009
-
3 nov. 2003 à 22:17
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
11 juin 2006 à 22:24
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
dead33
Messages postés29Date d'inscriptionvendredi 31 mars 2006StatutMembreDernière intervention 4 décembre 2007 11 juin 2006 à 14:11
svp ICIoBRa donne moi le nom de ce site
mais un commentaire ecrie de dedans le nom du site
!!!!!!!!!!!!!!!!!!!!!!!svp svp!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!svp svp!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 10 juin 2006 à 16:19
pardon ?
dead33
Messages postés29Date d'inscriptionvendredi 31 mars 2006StatutMembreDernière intervention 4 décembre 2007 10 juin 2006 à 16:08
donne moi le site ou te trouver ca
(svp)
A+
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 3 nov. 2003 à 22:22
Public Function Binaire(ByVal Dec As Variant) As String
Dim Ret As String
If Dec 0 Then Ret "0"
While Dec > 0
Ret = (Dec And 1) & Ret
Dec = Dec 2
Wend
Binaire = Format(Ret, String(8 * (1 + Len(Ret) 8), "0"))
End Function
L'avantage, c'est qu'on ne se base pas sur le symbole virgule, qui peut changer d'un systeme a un autre.
de plus, une simpe comparaison binaire est plus rapide qu'un Instr
Enfin, ca prends en compte des nombres plus grands que 65535...
cs_Urgo
Messages postés780Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention16 avril 20091 3 nov. 2003 à 22:17
lol
C'est assez bien expliqué ton truc, mais est-ce vraiment utile comme source ?
Toute personne se servant d'un ordinateur et s'intéressant un minimun à la programmation devrait connaître ça.
En clair, cette source convient parfaitement aux débutants et aux petits, et vu que t'as l'air d'avoir prit du plaisir à faire ça je te met un 7, je suis gentil. :p
11 juin 2006 à 22:24
http://www.commentcamarche.net/base/binaire.php3
11 juin 2006 à 14:11
mais un commentaire ecrie de dedans le nom du site
!!!!!!!!!!!!!!!!!!!!!!!svp svp!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!svp svp!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
10 juin 2006 à 16:19
10 juin 2006 à 16:08
(svp)
A+
3 nov. 2003 à 22:22
Dim Ret As String
If Dec 0 Then Ret "0"
While Dec > 0
Ret = (Dec And 1) & Ret
Dec = Dec 2
Wend
Binaire = Format(Ret, String(8 * (1 + Len(Ret) 8), "0"))
End Function
L'avantage, c'est qu'on ne se base pas sur le symbole virgule, qui peut changer d'un systeme a un autre.
de plus, une simpe comparaison binaire est plus rapide qu'un Instr
Enfin, ca prends en compte des nombres plus grands que 65535...
3 nov. 2003 à 22:17
C'est assez bien expliqué ton truc, mais est-ce vraiment utile comme source ?
Toute personne se servant d'un ordinateur et s'intéressant un minimun à la programmation devrait connaître ça.
En clair, cette source convient parfaitement aux débutants et aux petits, et vu que t'as l'air d'avoir prit du plaisir à faire ça je te met un 7, je suis gentil. :p