OVH Cloud OVH Cloud

Numériser un texte

6 réponses
Avatar
garnote
Bonjour,

Que signifie au juste "transformer un texte en une suite de 0 et de 1" ?
Est-ce que je dois convertir en binaire le code ASCII de chaque caractère
du texte ou ... ?

Serge

6 réponses

Avatar
isabelle
salut serge,

je pense bien que c'est très cela,

voie sur ce lien ( au bas de la page ) :

http://www.tableascii.com/

bisou
isabelle


Bonjour,

Que signifie au juste "transformer un texte en une suite de 0 et de 1" ?
Est-ce que je dois convertir en binaire le code ASCII de chaque caractère
du texte ou ... ?

Serge




Avatar
garnote
Salut Isabelle,

J'ai pensé à mettre mes codes ASCII en binaire par
paquet de 8 en utilisant DECBIN(nombre,8).
Mais je dois utiliser cette formule dans une feuille
de calcul. En VBA, comment transformer un nombre
de 1 à 255 en binaire par paquet de 8 ?

Le printemps vous a-t-il atteint ? À Québec, c'est extra.
A+

Serge


"isabelle" a écrit dans le message de news:
%
salut serge,

je pense bien que c'est très cela,

voie sur ce lien ( au bas de la page ) :

http://www.tableascii.com/

bisou
isabelle


Bonjour,

Que signifie au juste "transformer un texte en une suite de 0 et de 1" ?
Est-ce que je dois convertir en binaire le code ASCII de chaque caractère
du texte ou ... ?

Serge




Avatar
Clément Marcotte
Bonjour,

Que signifie au juste "transformer un texte en une suite de 0 et de 1" ?
Est-ce que je dois convertir en binaire le code ASCII de chaque caractère
du texte ou ... ?


J'dis pas non, mais ce serait bien plus "drôle" si tu te faisais ton code à
toi, quelque chose du genre:

a = 000000000000000000000000010
A = 000000000000000000000000011
b = 000000000000000000000000100
B = 000000000000000000000000101
c= 000000000000000000000001000
C0000000000000000000001001

etc..

"garnote" a écrit dans le message de news:
%
Bonjour,


Serge



Avatar
JB
Bonjour,

http://cjoint.com/?dCvMmXJkTQ

Function Base(b, n)
Do While n >= b
result = Mid("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", IIf(n Mod b >
0, (n Mod b) + 1, 1), 1) & result
n = n b
Loop
Base = Mid("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", IIf(n Mod b > 0,
(n Mod b) + 1, 1), 1) & result
End Function

Sub essai()
MsgBox Base(2, Asc("C"))
End Sub

Sub essai2()
mot = "CECI EST UN ESSAI"
For i = 1 To Len(mot)
temp = temp & CStr(Base(2, Asc(Mid(mot, i, 1))))
Next i
MsgBox temp
End Sub

Cordialement JB
Avatar
isabelle
bonjour d'un printemp qui chauffe la coinne !

as tu regardé l'exemple donnée par JB,

il ne faudrait pas oublier un code spécial pour la séparation des mots, la fin des phrases,
le début et fin de transmission et de réception (le cas échéant), l'adresse de stokage(pile et autre).

bonne amusement !
isabelle


Salut Isabelle,

J'ai pensé à mettre mes codes ASCII en binaire par
paquet de 8 en utilisant DECBIN(nombre,8).
Mais je dois utiliser cette formule dans une feuille
de calcul. En VBA, comment transformer un nombre
de 1 à 255 en binaire par paquet de 8 ?

Le printemps vous a-t-il atteint ? À Québec, c'est extra.
A+

Serge


"isabelle" a écrit dans le message de news:
%

salut serge,

je pense bien que c'est très cela,

voie sur ce lien ( au bas de la page ) :

http://www.tableascii.com/

bisou
isabelle



Bonjour,

Que signifie au juste "transformer un texte en une suite de 0 et de 1" ?
Est-ce que je dois convertir en binaire le code ASCII de chaque caractère
du texte ou ... ?

Serge









Avatar
garnote
Lorsque que je vis cette fonction, elle me plût et m'épatät.
Ne me reste plus qu'à saisir tous ses tenants et aboutissants!
Super.
Un fois que j'aurai compris, je vais tenter de faire écrire ces
ASCII en base 2 avec 8 chiffres plutôt que 7.

10011011000101101001010000111001001
Serge


"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?dCvMmXJkTQ

Function Base(b, n)
Do While n >= b
result = Mid("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", IIf(n Mod b >
0, (n Mod b) + 1, 1), 1) & result
n = n b
Loop
Base = Mid("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", IIf(n Mod b > 0,
(n Mod b) + 1, 1), 1) & result
End Function

Sub essai()
MsgBox Base(2, Asc("C"))
End Sub

Sub essai2()
mot = "CECI EST UN ESSAI"
For i = 1 To Len(mot)
temp = temp & CStr(Base(2, Asc(Mid(mot, i, 1))))
Next i
MsgBox temp
End Sub

Cordialement JB