Discussion :

[dispa]

Bonjour à tous:
Voilà j'ai un petit problème j'essaye de créer un programme qui permet de convertir du texte en code ASCII et vice versa.
(le button1 c'est le bouton servant à crypté le texte en ASCII et le button2 convertit le code ASCII en texte normal)
le principe c'est que l'on écrit dans le texbox1 et qu'on le convertit en ASCII en passant par un textbox2 que l'on ne voit pas )
voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
    Public nbrChr, i As Short
    Public letter, ChrLetter As String
    Public ascLetter As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        nbrChr = TextBox1.Text.Length
        For i = 0 To nbrChr - 1
            letter = TextBox1.Text.Substring(i, 1)
            Try
                ascLetter = Asc(letter)
                TextBox2.Text = TextBox2.Text & ascLetter
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
 
 
        Next
 
        TextBox1.Text = ""
        TextBox1.Text = TextBox2.Text
        TextBox2.Text = ""
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        nbrChr = TextBox1.Text.Length
        For i = 0 To nbrChr - 1
            letter = TextBox1.Text.Substring(i, 1)
            Try
                ChrLetter = Chr(letter)
                TextBox2.Text = TextBox2.Text & ChrLetter
 
            Catch ex As Exception
                MsgBox(ex.ToString)
 
 
            End Try
 
        Next
        TextBox1.Text = ""
        TextBox1.Text = TextBox2.Text
        TextBox2.Text = ""
 
    End Sub
End Class

alors j'ai deux problèmes :
1) le passage entre le texte et l'ASCII marche mais pas de L'ASCII vers le texte, si je rentre " 65656565656565" normalement je devrais obtenir AAAAAAAA mais j'obtiens quelque chose de ce style la : "IIIIIIII" ( sa ressemble a des I majuscule gras collé les uns au autres)
Que puis je faire?

2) j'aimerais ne pas devoir passer par un textbox2 , comment puis je faire?


Merci d'avance, Toute aide est la bien venue
Si vous avez des questions, posez les :p (je sais que je suis pas trop clair)

Bonne soirée

[Poulain]

Le problème quand tu décriptes, c'est que tu n'utilises qu'un seul chiffre à la fois, du ascii, c'est un couple de deux chiffres.
donc il faut que tu te débrouilles, pour que letter contienne deux caractère, et après, il faut que tu sautes 2 caractères par deux caracteres, je crois qu'il faut que tu ajoutes step 2 à ton for.

[Aspic]

Il faut que tu sautes 2 caractères par deux caracteres, je crois qu'il faut que tu ajoutes step 2 à ton for.

Je confirme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i as integer = Debut to Fin Step Saut
 
Next

[Totanne]

Un code Ascii n'est pas forcement composé de 2 chiffres.
Ca peut être 8 ou 9 ou 65 ou 122 ...
Si tu veux rentrer directement de l'ascii dans ta TextBox, il faut bien d'une manière ou d'une autre indiquer à ton programme ou termine l'un et ou commence l'autre.
65656565 peut etre interprété comme 6 puis 56 puis 5 puis 65 ...
65 65 65 65 est par contre sans equivoque.
Le mieux est peut-etre donc d'utiliser l'espace comme séparateur
Tu fais un Tableau() as string = TextBox.Text.split(" ") et tu converti chaque élément du tableau.

[Poulain]

Et, donc quand tu convertis en ascii, tu met un espace entre chaque caractère.

[dispa]

j'ai testé ce code mais il me met une erreur voici le code , je me doute que il y a une grosse faute dedans. Et que fait la fonction Split?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Public nbrChr, i As Short
    Public letter, ChrLetter As String
    Public ascLetter, Numspace As Integer
 
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        nbrChr = TextBox1.Text.Length
        For i = 0 To nbrChr - 1
            letter = TextBox1.Text.Substring(i, 1)
            Try
                ascLetter = Asc(letter)
                TextBox2.Text = TextBox2.Text & ascLetter & Chr(32)
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
 
 
        Next
 
        TextBox1.Text = ""
        TextBox1.Text = TextBox2.Text
        TextBox2.Text = ""
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim Tableau() As String = TextBox1.Text.Split(" ")
 
        For i = 0 To UBound(Tableau)
            ascLetter = Tableau(i)
            letter = Chr(ascLetter)
 
            Try
                TextBox2.Text = TextBox2.Text & letter
            Catch ex As Exception
                MsgBox(ex.ToString)
 
            End Try
 
 
        Next
 
 
        TextBox1.Text = ""
        TextBox1.Text = TextBox2.Text
        TextBox2.Text = ""
 
 
    End Sub
End Class

Toute aide est la bienvenue
Merci d'avance et bonsoir