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
http://prodisi.wordpress.com/category/perancangan-sistem/konversi-desimal-ke-heksadesimal/
Tidak ada komentar:
Posting Komentar