Konversi Desimal ke Biner

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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: