Bonjour, j'ai écris un programme de traduction Al Bhed (langage utilisé dans un jeu vidéo, qui remplace les lettres par d'autres), mais ça ne marche pas comme il faudrait... 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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Public Class Form1
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim s As String
s = RichTextBox3.Text
s = s.Replace("e", "a")
s = s.Replace("p", "b")
s = s.Replace("s", "c")
s = s.Replace("t", "d")
s = s.Replace("i", "e")
s = s.Replace("w", "f")
s = s.Replace("k", "g")
s = s.Replace("n", "h")
s = s.Replace("u", "i")
s = s.Replace("v", "j")
s = s.Replace("g", "k")
s = s.Replace("c", "l")
s = s.Replace("l", "m")
s = s.Replace("r", "n")
s = s.Replace("y", "o")
s = s.Replace("b", "p")
s = s.Replace("x", "q")
s = s.Replace("h", "r")
s = s.Replace("m", "s")
s = s.Replace("d", "t")
s = s.Replace("o", "u")
s = s.Replace("f", "v")
s = s.Replace("z", "w")
s = s.Replace("q", "x")
s = s.Replace("a", "y")
s = s.Replace("j", "z")
RichTextBox4.Text = s
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String
a = RichTextBox2.Text
a = a.Replace("a", "e")
a = a.Replace("b", "p")
a = a.Replace("c", "s")
a = a.Replace("d", "t")
a = a.Replace("e", "i")
a = a.Replace("f", "w")
a = a.Replace("g", "k")
a = a.Replace("h", "n")
a = a.Replace("i", "u")
a = a.Replace("j", "v")
a = a.Replace("k", "g")
a = a.Replace("l", "c")
a = a.Replace("m", "l")
a = a.Replace("n", "r")
a = a.Replace("o", "y")
a = a.Replace("p", "b")
a = a.Replace("q", "x")
a = a.Replace("r", "h")
a = a.Replace("s", "m")
a = a.Replace("t", "d")
a = a.Replace("u", "o")
a = a.Replace("v", "f")
a = a.Replace("w", "z")
a = a.Replace("x", "q")
a = a.Replace("y", "a")
a = a.Replace("z", "j")
RichTextBox1.Text = a
End Sub
End Class
Si vous voyez quelque chose, aidez moi svp...