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
|
Public Class Form3
Dim dicochange1 As New Dictionary(Of Char, Char)
Dim translated As String = ""
dicochange1.Add("a", "@")
dicochange1.Add("b", "8")
dicochange1.Add("c", "©")
dicochange1.Add("d", "|)")
dicochange1.Add("e", "")
dicochange1.Add("f", "£")
dicochange1.Add("g", "G")
dicochange1.Add("h", "|-|")
dicochange1.Add("i", "!")
dicochange1.Add("j", "J")
dicochange1.Add("k", "|<")
dicochange1.Add("l", "1")
dicochange1.Add("m", "|V|")
dicochange1.Add("n", "N")
dicochange1.Add("o", "0")
dicochange1.Add("p", "|°")
dicochange1.Add("q", "Q")
dicochange1.Add("r", "|2")
dicochange1.Add("s", "$")
dicochange1.Add("t", "T")
dicochange1.Add("u", "µ")
dicochange1.Add("v", "V")
dicochange1.Add("w", "VV")
dicochange1.Add("x", "><")
dicochange1.Add("y", "Ψ")
dicochange1.Add("z", "Z")
dicochange1.Add(" ", " ")
dicochange1.Add("!", "!")
dicochange1.Add("?", "?")
dicochange1.Add(".", ".")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
For Each elt As Char In TextBox1.Text
translated += dicochange1(elt)
Next
TextBox2.Text = translated
Catch ex As Exception
MsgBox("Echec de translation", MsgBoxStyle.Information)
End Try
End Sub |
Partager