[Tutorial]Conversor .

por **schnaidinha** Sáb Mar 17, 2012 1:14 pm

Olá pessoal, este é meu segundo tutorial que ira te ensinar a fazer um Conversor. :nossa:
O que tem neste conversor?

#Converte .BIN para .TXT
#Converte .TXT para .BIN

Requerimentos:
Visual Basic 2008
Crie uma nova Aplicação com o nome que quiser, no seu Form1 coloque um título bonito...
Agora você terá que colocar:

#2 TextBox
#3 Botões
Coloque a textbox1 acima da textbox2, ou seja a textbox1 vai ser a qual você colocará números binários ou textos "ASCII"

Então mãos a obra.. Coloque as TextBox com MultiLine do tamanho a desejar..
No Button1 você renomeia para: .TXT para .BIN
E coloca este code:

Código:: Dim Val As String = Nothing Dim Result As New System.Text.StringBuilder For Each Character As Byte In System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text) Result.Append(Convert.ToString(Character, 2).PadLeft(8, "0")) Result.Append(" ") Next Val = Result.ToString.Substring(0, Result.ToString.Length - 1) TextBox2.Text = Val

Agora está pronto o você pode digitar e ele ira gerar o código ASCII em Binário..
No Button2 você renomeia para: .BIN para .TXT
E coloca este code:

Código:: Dim Val As String = Nothing Dim Characters As String = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "[^01]", "") Dim ByteArray((Characters.Length / 8) - 1) As Byte For Index As Integer = 0 To ByteArray.Length - 1 ByteArray(Index) = Convert.ToByte(Characters.Substring(Index * 8, 8), 2) Next Val = System.Text.ASCIIEncoding.ASCII.GetString(ByteArray) TextBox2.Text = Val

No Button3 você renomeia ele por: Fechar e então coloca o código: