Mot en binaire

[Résolu]
Signaler
Messages postés
31
Date d'inscription
mardi 22 juillet 2008
Statut
Membre
Dernière intervention
20 décembre 2013
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Bonjour!
je fait un petit module pour changer un nombre/lettre en binaire (ex: y=10001001). j'y arrive avec un charactere.
Mais comment avec tout un mot/phrase?
ca me chauffe!!!!

Sengi Jonathan

6 réponses

Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
allez prends ça une form avec un bouton (button1) et 2 textbox( textbox1 et textbox2)

Public

Class Form1

Public
Function DecToBin(
ByVal DecVal
As
Double)
As
String

Dim a
As
Doublea = DecVal

For b = 1
To Int(Math.Log(DecVal) / Math.Log(2)) + 1DecToBin =

CDbl(a
Mod 2) & DecToBina =

CDbl(Int(a / 2))

Next b

End
Function

Private
Sub Button1_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Button1.Click

If IsNumeric(TextBox1.Text)
ThenTextBox2.Text = DecToBin(

CDbl(TextBox1.Text))

End
If

End
SubEnd

Class

bonjour chez vous!
< body>
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
ben tu traites chaque caractère dans une boucle
for x as integer = 0 to text.length


'ton traitemeny ici
next x














bonjour chez vous!
< body>
Messages postés
31
Date d'inscription
mardi 22 juillet 2008
Statut
Membre
Dernière intervention
20 décembre 2013

Merci bcp gillard !
mais en essayant avec au moin 2 char j'ai des 0 (ex: ah=0000000000000000)






Sengi Jonathan
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
c'est quoi ton code ?
un bout de code vaut mieux qu'un discours

bonjour chez vous!
< body>
Messages postés
31
Date d'inscription
mardi 22 juillet 2008
Statut
Membre
Dernière intervention
20 décembre 2013

Les voici:

Private

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>






       








       
Dim ascii AsInteger






        Dim
i AsInteger






      
 
Dim quotien AsInteger






       
Dim reste AsInteger






       
Dim TAB(0 To 7) AsInteger






 







       
For x AsInteger = 0 To TextBox1.Text.Length






           










           
If TextBox1.Text = "a"Then






                ascii = 97






           
End
If







           
If TextBox1.Text = "b"Then






                ascii = 98






           
End
If







            …..






           










           
For i = 0 To 7






                reste = ascii Mod 2






               

TAB(i) = reste






                quotien =
ascii
/ 2






               

ascii = quotien






                TextBox2.Text = TextBox2.Text & TAB(i) & ""






           
Next i






           










       
Next x






 






   
End
Sub




Sengi Jonathan
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
If TextBox1.Text = "a"Then
ascii = 97
End If
If TextBox1.Text = "b"Then
ascii = 98
End If
...

t'es un grand malade, toi ! la doc :

+++++++++++++++++
Public Shared Function Asc(ByVal String As Char) As Integer
Membre de Microsoft.VisualBasic.Strings

Résumé :
Retourne une valeur de type Integer qui représente le code de caractère correspondant à un caractère.

Paramètres :
String: Obligatoire. Toute expression Char ou String valide. Si String est une expression String, seul le premier caractère de la chaîne est utilisé pour l'entrée. Si String a la valeur Nothing ou ne contient aucun caractère, une erreur System.ArgumentException se produit.

Valeurs de retour :
Retourne une valeur de type Integer qui représente le code de caractère correspondant à un caractère.
++++++++++++++++++++++++++++


ou, au pire:

http://msdn.microsoft.com/fr-fr/library/595a8te7(VS.80).aspx