Komponen VB 2010 :

1) 2 textbox
2) 2 button
==========
1) Susunlah komponen tersebut seperti gambar berikut :
[You must be registered and logged in to see this image.]

2) Setelah itu klik 2 kali Button1 dan masukkan scripts berikut :

Code:

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

3) klik 2 kali Button2 dan masukkan scripts berikut :

Code:

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)
            Val = System.Text.ASCIIEncoding.ASCII.GetString(ByteArray)
            TextBox2.Text = Val

        Next

:cheers: :cheers: :smilbeer:

habis itu tekan F5 (Debug)

setelah itu stop debugging dengan cara tekan CTRL+ALT+Break..abis itu save all (CTRL+S+SHIFT)

kasih nama terserah mu

kasih Cendol ya..dah capek nulis nih

Credit : Kurohige

Special Credit : Rieqyns13