Membuat Converter Text ke Bilangan Biner dan Bilangan Biner ke Text dengan VB.Net

Membuat Converter Text ke Bilangan Biner dan Bilangan Biner ke Text dengan VB.Net - Selamat malam para sahabat blogger semuanya, kembali lagi bersama saya guzko di tutorial yang sederhana ini. Semoga kedatangan para sahabat blogger ke blog saya ini bisa mendapatkan inspirasi dan manfaat.

Baiklah, kali ini saya akan membagikan tutorial seperti judul diatas yaitu Membuat Converter Text ke Bilangan Biner dan Bilangan Biner ke Text dengan VB.Net. Mungkin dari sahabat blogger ada yang sudah tau apa itu bilangan biner. Atau mungkin juga dari sahabat blogger ada yang belum tau apa itu bilangan biner. Saya akan jelasin sedikit apa itu bilangan biner?

Apa itu Bilangan Biner ?

Sistem bilangan biner atau juga yang dikenal dengan sistem bilangan baris dua adalah sebuah sistem penulisan angka dengan menggunakan dua simbol yaitu 1 dan 0. Sistem bilangan biner modern ditemukan oleh Gottfried Wilhelm Leibniz pada abad ke-17. Sistem bilangan biner ini merupakan dasar dari semua sistem bilangan berbasis digital. Dari sistem biner, kita dapat mengkonversinya ke sistem bilangan oktaf atau hexadecimal. Sistem ini juga dapat kita sebut dengan istilah bit atau Binary Digit. Pengelompokan biner dalam selalu berjumlah 8, dengan istilah 1 Byte/bita. Dalam istilah komputer, 1 Byte = 8 bit. Kode-kode rancang bangun komputer, seperti ASCII (American Standart Code for Information Interchange) menggunakan sistem peng-kodean 1 Byte.

Sumber:https://id.wikipedia.org/wiki/Sistem_bilangan_biner

oke sekian dulu penjelasan saya tentang apa itu bilangan biner. Sekarang kita akan membuat konverter dari text ke bilangan biner dan sebaliknya.

1. Buka Visual Studio
Pertama Buka Visual Studio sahabat bloger dan buat project baru. Design seperti gambar dibawah ini :

2. Kode Pada Button Convert Binary ke Text
Jika sudah membuat design seperti gambar tersebut, maka sekarang lakukan proses peng-codingan pada button "convert binary to text", inputkan kode dibawah ini :

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

3. Kode Pada Button Convert Text ke Binary
sekarang lanjutkan dengan membuat coding pada button "convert text to binary", inputkan kode seperti dibawah ini :

Dim value As String = Nothing
        Dim re As New System.Text.StringBuilder
        For Each Character As Byte In System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text)
            re.Append(Convert.ToString(Character, 2).PadLeft(8, "0"))
            re.Append(" ")

        Next
        value = re.ToString.Substring(0, re.ToString.Length - 0)
        TextBox2.Text = value

demikianlah tutorial saya tentang Membuat Converter Text ke Bilangan Biner dan Bilangan Biner ke Text dengan VB.Net. Semoga tutorial ini bisa memberikan sahabat blogger manfaat atau mungkin sahabat blogger bisa mengembangkan kembali kode ini. Silahkan sahabat blogger berkreativitas.

Kita jumpa lagi dilain waktu dengan tutorial yang berbeda. see....uuuuu