Selasa, 06 Mei 2014
kali ini saya mau share tentang script program cara membuat bilangan konversi bilangan desimal ke hexadesimal menggunakan pascal dan delphi.
saya di berikan kuis untuk membuat program,ya lumayan mudah deh script nya ^_^ untung aja mudah hehehe...
oke langsung aja sikat gan/sis xD
Heksadesimal atau sistem bilangan basis 16 adalah
sebuah sistem bilangan yang menggunakan 16 simbol. Berbeda
dengan sistem bilangan desimal, simbol yang digunakan dari sistem ini
adalah angka 0 sampai 9, ditambah dengan 6 simbol lainnya dengan menggunakan
huruf A hingga F. Sistem bilangan ini digunakan untuk menampilkan nilai
alamat memori dalam pemrograman komputer.
Heksadesimal = 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F. heksadesimal
memiliki 16 bilangan di dalamnya, jadi untu penulisannya menjadi 8B16
Desimal ke heksadesimal
Kalo bilangan kesa itu dari 0-9 terus A-F Terus, untuk
konversi bilangan desimal ke heksadesimal, angka desimalnya di bagi 16.
ini contoh source programnya menggunakan pascal :
Uses crt;
Var
desi , desi : integer;
jawaban : char;
procedure heksa(des, desi : integer);
var heks : string;
h : integer;
begin
Heks:='';
repeat
h:=des mod 16;
case h of
0: heks:= '0' + Heks;
1: heks:= '1' + Heks;
2: heks:= '2' + Heks;
3: heks:= '3' + Heks;
4: heks:= '4' + Heks;
5: heks:= '5' + Heks;
6: heks:= '6' + Heks;
7: heks:= '7' + Heks;
8: heks:= '8' + Heks;
9: heks:= '9' + Heks;
10: heks:= 'A' + Heks;
11: heks:= 'B' + Heks;
12: heks:= 'C' + Heks;
13: heks:= 'D' + Heks;
14: heks:= 'E' + Heks;
15: heks:= 'F' + Heks;
end;
des:=des div 16;
until des=0;
writeln('(',desi,') desimal = ',heks,' (Heksadesimal)');
end;
begin
repeat
clrscr;
writeln('*******************************************');
writeln('Program Konversi Desimal ke Heksadesimal');
writeln('Created by : Ridho Amdeni');
writeln('*******************************************');
writeln;
Write('Masukkan Suatu Bilangan Desimal : ');Readln(des);
desi:=des;
heksa(des,desi);
writeln;writeln;
write('Mau coba lagi [Y/T]? : ');readln(jawaban);
until upcase(jawaban)<>'Y';
end.
nahh kalau program delphi nya gimana ? :/
sabar sabar.. haha "jangan buru-buru" sesuatu hal yang buru-buru itu tidak baik xD
Pertama kita buat di form1nya
3 label,2 menu edit, dan 1 command button
terus kita letakin tabel 1 nya dan ganti caption nya : Bilangan Konversi Desimal ke Hexadesimal
next 2 tabel lagi letakin di bawahnya. tabel ke 2 ganti caption nya dengan = Bilangan Desimal, dan tabel 3 kita ganti caption nya dengan = Bilangan Heksadesimal. di bawahnya kita letakin menu edit 1 dan edit 2 dan dibawahnya kita letakin command button :
nah buat command button ini source programnya :
procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..99] of word;
i,k,d:word;
c:shortstring;
begin
edit2.Clear;
d:=strtoint(edit1.Text);
k:=0;
While d>=16 do begin
k:=k+1;
a[k]:=d mod 16;
d:=d div 16;
end;
k:=k+1;
a[k]:=d;
for i:=k downto 1 do begin
case a[i] of
10:c:='A';
11:c:='B';
12:c:='C';
13:c:='D';
14:c:='E';
15:c:='F';
16:c:='G';
else c:=inttostr(a[i]);
end;
edit2.Text:=edit2.Text+c;
end;
end;
end.
oke sekian. mudah mudahan bermanfaat :) makasih kunjungannya...
http://fajardelphiscript.blogspot.com/2009/07/konversi-bilangan-dengan-delphi.html
http://klik-4j4.blogspot.com/2011/07/program-konversi-desimal-ke-bineroktal.html
