texte vers decimale vers binaire

Bonjour François,
François a écrit :

Bonjour,

J'ai besoin d'un petit coup de main pour cette formule !

J'ai un textbox dans lequel l'utilisateur entre un mot (ex: test) dans un
deuxième textbox, ce mot doit sortir en binaire.

Donc, "test" devien "t-e-s-t" qui devient "116-101-115-116" (ASCII) qui
finalement devien "1110100-1100101-1110011-1110100"

Est-ce que ce serais possible? et très compliquer?

Plusieurs méthodes :

http://www.developerfusion.co.uk/show/3570
http://vb.developpez.com/faq/?page=Routines#conversions

Par exemple avec la première méthode :

Private Sub Command1_Click()
Dim i As Integer
Dim s1 As String, s2 As String

s1 = Me.Text1.Text
For i = 1 To Len(s1)
s2 = s2 & cBIN(Asc(Mid(s1, i, 1)))
If i < Len(s1) Then s2 = s2 & "-"
Next
Me.Text2.Text = s2
End Sub

Public Function cBIN(ByVal iC As Integer) As String
Dim X As Long, Y As Long, bC As Byte

cBIN = ""
X = 256
For Y = 1 To 8
bC = 0
X = X / 2
If iC >= X Then
bC = 1
iC = iC - X
End If
cBIN = cBIN & bC
Next Y
End Function

--
Cordialement,

Jacques.

Merci à vous deux,

J'ai commencé à regarder la première méthode de Jacques93 en y apportant
quelques modification.

J'ai un champ texte opur chacune des valeur pour qu'on les voies. J'ai doc
rajouter une petite ligne pour voir le décimale.

J'ai aussi décider d'ajouter un champ hexa.

Je tente aussi de faire que le tout se calcule au fur et à mesure que l'ont
remplis le premier champ mais en ce momment il y à toujours un caractère de
ratard. (Je doit laissé un espace à la fin pour que tout les chiffre
apparaisse.

merci

"François" a écrit :

Bonjour,

J'ai besoin d'un petit coup de main pour cette formule !

J'ai un textbox dans lequel l'utilisateur entre un mot (ex: test) dans un
deuxième textbox, ce mot doit sortir en binaire.

Donc, "test" devien "t-e-s-t" qui devient "116-101-115-116" (ASCII) qui
finalement devien "1110100-1100101-1110011-1110100"

Est-ce que ce serais possible? et très compliquer?

Merci à tous,

François