[ TUTORIAIS VB.NET ] Conversor unicode

Add 1 Button , 2 TextBox e 2 Label..

Nomeie

Button = Converter

Label1 = Entrada Normal

Label2 = Saida Unicode

Designer

So Colar O Codigo Agora

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox2.Text = TextBox1.Text

        TextBox2.Text = Replace(TextBox2.Text, "a", "ʎ̶")

        TextBox2.Text = Replace(TextBox2.Text, "b", "в")

        TextBox2.Text = Replace(TextBox2.Text, "c", "c")

        TextBox2.Text = Replace(TextBox2.Text, "d", "δ")

        TextBox2.Text = Replace(TextBox2.Text, "e", "Ә")

        TextBox2.Text = Replace(TextBox2.Text, "f", "ғ")

        TextBox2.Text = Replace(TextBox2.Text, "g", "g")

        TextBox2.Text = Replace(TextBox2.Text, "h", "ђ")

        TextBox2.Text = Replace(TextBox2.Text, "i", "ι")

        TextBox2.Text = Replace(TextBox2.Text, "j", "ป")

        TextBox2.Text = Replace(TextBox2.Text, "k", "ʞ")

        TextBox2.Text = Replace(TextBox2.Text, "l", "ł")

        TextBox2.Text = Replace(TextBox2.Text, "m", "м")

        TextBox2.Text = Replace(TextBox2.Text, "n", "л")

        TextBox2.Text = Replace(TextBox2.Text, "ñ", "ñ")

        TextBox2.Text = Replace(TextBox2.Text, "o", "ø")

        TextBox2.Text = Replace(TextBox2.Text, "p", "ρ")

        TextBox2.Text = Replace(TextBox2.Text, "q", "q")

        TextBox2.Text = Replace(TextBox2.Text, "r", "я")

        TextBox2.Text = Replace(TextBox2.Text, "s", "ƨ")

        TextBox2.Text = Replace(TextBox2.Text, "t", "†")

        TextBox2.Text = Replace(TextBox2.Text, "u", "µ")

        TextBox2.Text = Replace(TextBox2.Text, "v", "√")

        TextBox2.Text = Replace(TextBox2.Text, "w", "ฬ")

        TextBox2.Text = Replace(TextBox2.Text, "x", "ẋ")

        TextBox2.Text = Replace(TextBox2.Text, "y", "ч")

        TextBox2.Text = Replace(TextBox2.Text, "z", "ƶ")

        TextBox2.Text = Replace(TextBox2.Text, "A", "ʎ̶")

        TextBox2.Text = Replace(TextBox2.Text, "B", "в")

        TextBox2.Text = Replace(TextBox2.Text, "C", "c")

        TextBox2.Text = Replace(TextBox2.Text, "D", "δ")

        TextBox2.Text = Replace(TextBox2.Text, "E", "Ә")

        TextBox2.Text = Replace(TextBox2.Text, "F", "ғ")

        TextBox2.Text = Replace(TextBox2.Text, "G", "g")

        TextBox2.Text = Replace(TextBox2.Text, "H", "ђ")

        TextBox2.Text = Replace(TextBox2.Text, "I", "ι")

        TextBox2.Text = Replace(TextBox2.Text, "J", "ป")

        TextBox2.Text = Replace(TextBox2.Text, "K", "ʞ")

        TextBox2.Text = Replace(TextBox2.Text, "L", "ł")

        TextBox2.Text = Replace(TextBox2.Text, "M", "м")

        TextBox2.Text = Replace(TextBox2.Text, "N", "л")

        TextBox2.Text = Replace(TextBox2.Text, "Ñ", "ñ")

        TextBox2.Text = Replace(TextBox2.Text, "O", "ø")

        TextBox2.Text = Replace(TextBox2.Text, "P", "ρ")

        TextBox2.Text = Replace(TextBox2.Text, "Q", "q")

        TextBox2.Text = Replace(TextBox2.Text, "R", "я")

        TextBox2.Text = Replace(TextBox2.Text, "S", "ƨ")

        TextBox2.Text = Replace(TextBox2.Text, "T", "†")

        TextBox2.Text = Replace(TextBox2.Text, "U", "µ")

        TextBox2.Text = Replace(TextBox2.Text, "V", "√")

        TextBox2.Text = Replace(TextBox2.Text, "W", "ฬ")

        TextBox2.Text = Replace(TextBox2.Text, "X", "ẋ")

        TextBox2.Text = Replace(TextBox2.Text, "Y", "ч")

        TextBox2.Text = Replace(TextBox2.Text, "Z", "ƶ")

    End Sub

End Class

Espero Que Gostem. xD

Share on Google Plus

About нσa×єя