KONVERSI BILANGAN DESIMAL KE HEXADESIMAL

Konversi Desimal ke Heksadesimal

5 Juni 2009

Bilangan desimal tersusun atas 10 digit yaitu : 0,1,2,3,4,5,6,7,8,9, sedangkan bilangan heksadesimal tersusun atas 16 digit yaitu : 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F. Kita perhatikan bahwa 10 digit pertama bilangan heksadesimal merupakan bilangan desimal. Dapat dikatakan bahwa bilangan desimal merupakan himpunan bagian dari bilangan heksadesimal.
Dari sisi pemrograman bilangan desimal berlaku secara umum; sedangkan bilangan heksadesimal umumnya digunakan untuk mempersingkat penulisan bilangan desimal atau biner. Implementasi bilangan heksadesimal banyak terlihat dalam pengelamatan memori komputer.
Desimal Heksadesimal

0              0
1              1
2              2
3              3
4              4
5              5
6              6
7              7
8              8
9              9
10            A
11            B
12            C
13            D
14            E
15            F

Untuk melakukan pengubahan bilangan desimal ke heksadesimal adalah dengan membagikan bilangan desimal dengan angka 16 sebagai basis bilangan heksadesimal. Sebagai contoh misalkan terdapat bilangan desimal 9 maka bilangan heksadesimalnya adalah:
9 : 16 = 0 sisa 9
maka bilangan heksadesimal adalah 9
Misalkan terdapat bilangan desimal 25 maka bilangan heksadesimalnya adalah:
25 : 16 = 1 sisa 9
1 : 16 = 0 sisa 1
sehingga bilangan heksadeimalnya adalah 19
Algoritma:
0. Mulai
1. Tentukan bilangan desimal, mis N
2. Selama N>16 kerjakan
Hasil = N Div 16
Sisa = N Mod 16
N = Hasil
Heksa=Heksa + Sisa
3. Ulangi ke 2
4. Cetak Heksa
5. Selesai
Implementasi

Private Sub Form_Activate()
  Dim N,Hasil,Sisa As Byte
  Dim Heksa As String
  Heksa=""
  While N>16
    Hasil=N Div 16
    Sisa = N Mod 16
    N = Hasil
    Heksa=Heksa+Sisa
  Wend
   Print Heksa
End Sub

SUMBER:http://prodisi.wordpress.com/