Visual Basic 2008/2010 Binary Converter!

Hey One2xs!
Hier een TUT voor een binary Converter!

Wat is dit?
dit is een programma wat text vertaalt naar binary text, ik noem het een soort alien text ofzo, ik gebruik het om tegen me vrienden tepraten in een rare taal! altijd wel grappig, het kan binary to text en text to binary!

Wat heb je nodig?
Klein beetje hersens
Visual Basic 2008/2010 Express

Benodigheden
*Form1(Applicatie)
2 Textboxen
2 Buttons
1 Label

Ok, Lets Start!
Oke, Open een nieuw visual basic project,
Een windows form applicatie
Oke ga naar form1
Wat zet je er in??
2 Textboxen
2 Buttons
1 Label

Dezen design je zo: KIJK GOED NAAR DE FOTO!

Spoiler tonen

de texten:
button1 = To Binary
Button2 = To Text
Label1 = Converted:

Oke, nu gaan we coderen,
klik dubbel op button1;
zet daar in:

If TextBox1.Text <> "" Then
            Dim Result As New System.Text.StringBuilder
            Dim val As String = Nothing
            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
        Else
            MsgBox("Please enter the text string you wish to convert to binary.", MsgBoxStyle.Critical, "ERROR")
        End If

Oke, nu klik je button2,
daar in komt de code:

Try
            Dim Characters As String = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "[^01]", "")
            Dim ByteArray((Characters.Length / 8) - 1) As Byte
            Dim val As String = Nothing
            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

        Catch
            MsgBox("Malformed Binary- Please Try Again.", MsgBoxStyle.Critical, "Error")
            TextBox2.Text = ""
        End Try

oke, sla hem op,
en test hem!

convert dit maar eens: (binary to text)

01000100 01100001 01101110 01101011 01110101 01110111 01100101 01101100 00100000 01110110 01101111 01101111 01110010 00100000 01101000 01100101 01110100 00100000 01100111 01100101 01100010 01110010 01110101 01101001 01101011 01100101 01101110 00100000 01110110 01100001 01101110 00100000 01100100 01100101 00100000 01110100 01110101 01110100 00100001 00100000 01110110 01100101 01100101 01101100 00100000 01110000 01101100 01100101 01111010 01101001 01100101 01110010 00100000 01100101 01110010 01101101 01100101 01100101 00101100 00100000 00101101 01001010 01101111 01100101 01111001 01010101

-Joeyu

Heb je deze zelf gescherven? Zoja waarom is het dan engels

ik weet de nederandse vertaling van binary niet?

MsgBox("Please enter the text string you wish to convert to binary.", MsgBoxStyle.Critical, "ERROR")

Dat bedoel ik

Naar hoeveel bits vertaald deze converter??
En kan je ook ip adressen invullen?

@Freestyle,
Testumeens?

Heb je ook een download link, en hoeveel bits is dit??

geen idee,?

Oke, je maakt dus een script. En je weet er nog geen eens iets van
Dit is trouwens 8 bits
01000100 (staat ook gelijk aan: 68)

elk cijfer staat voor 1 bit. En die 8bits staan voor een cijfer of letter