Konversi Desimal ke Biner

5 Juni 2009

Bilangan desimal disusun atas 10 buah digit yakni 0,1,2,3,4,5,6,7,8,9. Karena digit penyusunnya sebanyak 10 maka disebut sebagai sistem bilangan berbasis 10. Bagaimana caranya agar sistem bilangan basis 10 dikonversi ke sistem bilangan biner yang berbasis 2 (0 da 1)? Hal ini dapat dilakukan dengan melakukan pembagian bilangan desimal dengan 2 hingga bilangan desimal tersebut lebih kecil dari 2. Bilangan biner adalah sisa hasil pembagian. Misalkan terdapat bilangan desimal 10 maka bilangan binernya adalah:
10 : 2 = 5 sisa 0
5 : 2 = 2 sisa 1
2 : 2 = 1 sisa 0
1 : 2 = 0 sisa 1

sehingga diperoleh bilangan biner adalah 1010.

Misalkan lagi terdapat bilangan desimal 65 maka konversinya ke bilangan biner adalah:
65 : 2 = 32 sisa 1
32 : 2 = 16 sisa 0
16 : 2 = 8 sisa 0
8 : 2 = 4 sisa 0
4 : 2 = 2 sisa 0
2 : 2 = 1 sisa 0
1 : 2 = 0 sisa 1

sehingga diperoleh binernya 1000001

Kita perhatikan bahwa bilangan setiap bilangan desimal dibagi 2. Sisa pembagian merupakan digit bilangan biner. Pembagian dilakukan terus menerus hingga hasil bagi lebih kecil dari 2. Bilangan biner disusun dari sisa pembagian yang terakhir.

Algoritma
0.mulai
1.Tentukan bilangan desimal, mis : N sebagai pembilang
2. Tentukan bilangan penyebut, mis X; Tentukan Biner=””
3. Ulangi Selama N> X kerjakan
Hasil = N Div X
Sisa = N Mod 2
N = Hasil
Biner = Biner + Sisa
4. Kembali ke 3
5. Cetak Biner
6. Selesai

Implementasi

Private Sub Form_Activate()
  Dim N,X,Sisa,I,Panjang As Byte
  Dim Biner As String
  N=65 'Bilangan Desimal
  Biner=""
  While N>X
    Hasil = N Div X
    Sisa = N Mod X
    Biner=Biner + Sisa
    N = Hasil 
  Wend
  Print Biner
End Sub
Iklan