Source Code Mengubah Angka Biner ke Desimal Dan Sebaliknya

apakah anda pernah berfikir untuk membuat sebuah program sederhana dengan visual basic 2010 untuk mengkonversi dari biner ke desimal atau sebaliknya?, kali ini saya akan membagikan source codenya secara .cuma-cuma hanya untuk anda. silahkan lihat dibawah ini. semoga bermanfaat.

 

 

Public Class FrmBiner

    'Array
    Dim Urutan As Integer() = {128, 64, 32, 16, 8, 4, 2, 1}

    Function BinerToDesimal(ByVal Biner As TextBox)
        'Apabila Terjadi Error Liwati Saja
        On Error Resume Next

        'Membuat Variabel Hasil Untuk Menyimpan Jumlah Desimal
        Dim Desimal As Integer = 0

        'Looping
        For i As Integer = 0 To 7
            'Memilih Satu Angka Dari Depan
            Dim AngkaTerpilih As Integer = Mid(Biner.Text, i + 1, 1)

            'Mengecek Angka Pilihan Apabila = 1 maka akan dijumlahkan
            If AngkaTerpilih = 1 Then
                Desimal = Desimal + Urutan(i)
            End If
        Next

        'Mengembalikan Hasil
        Return Desimal
    End Function

    Function DesimalToBiner(ByVal Desimal As String)
        'Apabila Terjadi Error Liwati Saja
        On Error Resume Next

        'Membuat Variabel Hasil Untuk Menyimpan Jumlah Desimal
        Dim Biner As String = ""

        'Looping
        Do Until Desimal = 0
            If Desimal Mod 2 = 0 Then
                Desimal = Val(Desimal) / 2
                Biner = "0" & Biner
            Else
                Biner = "1" & Biner
                Desimal -= 1
                Desimal = Val(Desimal) / 2
            End If
        Loop

        'Mengembalikan Hasil
        Return Biner
    End Function

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        'Setelah Dienter langsung di ubah
        If e.KeyCode = Keys.Enter Then
            TextBox2.Text = BinerToDesimal(TextBox1)
        End If
    End Sub

    Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
        'Setelah Dienter langsung di ubah
        If e.KeyCode = Keys.Enter Then
            If TextBox2.Text >= 225 Or TextBox2.Text <= 0 Then
                MsgBox("Angka Desimal harus berada di antar 0 - 255")
            Else
                TextBox1.Text = DesimalToBiner(TextBox2.Text)
            End If
        End If
    End Sub
End Class

By Franky So

Posted in: Contoh Proyek,Source Code,Visual Basic 2010