Konversi Biner Ke Desimal

Bilangan biner tersusun atas 2 digit yaitu 0 dan 1. Dari segi pemrograman komputer, bilangan biner memiliki peranan yang sangat berarti karena bilangan biner semua kode akan direpresentasikan dalam bentuk biner. Sebagai contoh angka A memiliki kode desimal 65 dalam iplementasi mesinnya akan diterjemahkan kedalam bilangan biner 01000001. Kode yang tersusun atas rangkaian 0 dan 1 tentu akan menyulitkan untuk memahaminya. Untuk itu adakalanya kita merubah kode biner tersebut kedalam desimal.
Misalkan terdapat kode biner 01000001 maka tiap digit dapat kita representasikan dalam desimal seperti berikut:

128    64   32   16   8     4      2     1

  0       1     0      0   0     0      0      1

Setiap angka 1 kita jumlahkan representasi desimalnya sehingga diperoleh:
64 + 1 = 65
Representasi tersebut diperoleh melalui rumus seperti berikut:
1 X 2^0 = 1
1 X 2^1 = 2
1 X 2^2 = 4
1 X 2^3 = 8
1 X 2^4 = 16
1 X 2^5 = 32
1 X 2^6 = 64
1 X 2^7 = 128
Algoritma
0.Mulai
1.Tentukan bilangan biner, Bin
2.Tentukan panjang Bil mis N
3.Tentukan Hasil=0
4. Ulangi I = 0 To N-1 Step 1
Hasil=Hasil + Bil(I) * 2 ^ I
5. Ulangi I
6. Cetak Hasil
7. Selesai
Implementasi

Private Sub Form_Activate()
  Dim I,N,Hasil As Byte
  Bin="01000001"
  N=Len(Bin)
  Hasil=0
  For I = 0 To N-1 Step 1
    Hasil = Hasil + Bil(I) * 2 ^ I
  Next I
  Print Bin;" Adalah : ";Hasil
End Sub




sumber : 

http://prodisi.wordpress.com/category/perancangan-sistem/konversi-biner-ke-desimal/