cs_Maryse
Messages postés5Date d'inscriptionlundi 28 avril 2003StatutMembreDernière intervention27 juin 2003
-
27 juin 2003 à 13:10
Manu_12
Messages postés11Date d'inscriptionvendredi 2 janvier 2004StatutMembreDernière intervention22 octobre 2007
-
13 févr. 2004 à 00:38
je cherche à convertir un nombre décimal en binaire.
- Y-a-t il une syntaxe particulière pour les nbes binaires ?
(pour l'hexa c'est &HHHH&)
- Y-a-til une fonction toute pr^te qui me le convertisse, comme sous LabVIEW ?
Nargzul
Messages postés438Date d'inscriptionvendredi 9 mai 2003StatutMembreDernière intervention26 juillet 20074 27 juin 2003 à 13:25
je sais pas si ya des focnion particulière... pour l'héxa, c assez spécial, tu pourrais le stocker kom ca:HHHH, mais c kan tu veux l'utiliser kaprès t emmerdé... pour le binaire, je vois pas keske tu veux faire...
ya bien
ChrB Renvoie une chaîne binaire contenant un octet spécifique.
cs_Maryse
Messages postés5Date d'inscriptionlundi 28 avril 2003StatutMembreDernière intervention27 juin 2003 27 juin 2003 à 13:49
en fait j'aurais voulu savoir si yavait un moyen de manipuler des nombre binaires autrement que par de la bidouille...en tant que nombre binaire quoi !
(pour l'instant j'en suis réduite à convertir un nombre décimal en une chaîne de caractères formée de 0 et de 1...)
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 27 juin 2003 à 14:30
Bonjour
Un nombre (entier) est un nombre !
Décimal, hexadécimal, octal, binaire ne sont que des représentations du nombre.
Une conversion de représentation décimal -> binaire :
Une TextBox Text1 dans laquelle tu entres ton nombre en décimal
Un Label Label1 où s'affichera ton nombre en binaire
Une fonction de conversion :
Private Function decimal_binaire(dec As Long) As String
Do decimal_binaire ("1" And dec Mod 2 1) & decimal_binaire
dec = dec \ 2
If dec = 0 Then Exit Do
Loop
End Function
Un bouton Command1 pour lancer l'affichage :
Private Sub Command1_Click()
Label1.Caption = decimal_binaire(CLng(Text1.Text))
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_Maryse
Messages postés5Date d'inscriptionlundi 28 avril 2003StatutMembreDernière intervention27 juin 2003 27 juin 2003 à 15:33
C'est bien ce que j'ai fait, et ensuite, je le mets en chaîne de caractère (car j'en ai besoin après...) mais je voulais savoir si yavait pas un truc otomatik ...