DELPHI, UBAHSEGALANYA.BLOGSPOT.CO.ID - Pada kali ini saya akan membuat sebuah tutorial tentang konversi decimal ke biner, seperti tutorial sebelumnya Konversi Bilangan Desimal Ke Romawi Menggunakan Delphi dan Konversi Bilangan Hexadesimal ke Decimal Menggunakan Delphi. Kita ketahui bahwasanya bilangan biner merupakan sistem bilangan logika yang hanya menggunakan karakter 0 dan 1. Sistem bilangan ini termasuk sistem yang cukup unik dan sangat popular dipergunakan oleh pemrograman komputer, mengingat sistem bilangan dasar yang dipergunakan komputer adalah bilangan biner.
Untuk mengkonversi sistem bilangan desimal ke biner perlu dibuat sebuah fungsi khusus, mengingat Delphi tidak menyediakan fungsi ini secara default. Adapun fungsi tersebut dapat dilihat pada kode dibawah ini :
function IntToBin(Value : LongInt; Digits: Integer): string;
var
i : Integer;
begin
Result :='';
for i := Digits downto 0 do
if Value and (1 shl i)<>0 then
Result:= Result+'1'
else
Result:= Result+'0';
end;
Fungsi diatas akan melakukan proses perulangan untuk mendeteksi bilangan heksadesimal yang dimasukan untuk selanjutnya dikonversi menjadi bilangan desimal. Untuk lebih jelasanya anda bisa melihat pembuatan aplikasi dibawah ini :
- Buka Delphi
- Buat Project baru
- Tambahkan komponen dibawah ini :
No
|
Nama Komponen
|
Pallete
|
Jumlah
|
1
|
TGroupBox
|
Standard
|
1
|
2
|
TEdit
|
Standard
|
2
|
3
|
TLabel
|
Standard
|
2
|
4
|
TButton
|
Standard
|
1
|
- Setting komponen seperti dibawah ini :
No
|
Nama Komponen
|
Nama Properties
|
Value
|
1
|
GroupBox1
|
Caption
|
Halaman Convert
|
2
|
Edit1
|
Text
|
-
|
3
|
Edit2
|
Text
|
-
|
4
|
Label1
|
Caption
|
Bilangan Heksadesimal
|
5
|
Label2
|
Caption
|
Bilangan Desimal
|
6
|
Button1
|
Caption
|
Convert
|
- Buat function baru seperti kode dibawah ini :
function IntToBin(Value : LongInt; Digits: Integer): string;
var
i : Integer;
begin
Result :='';
for i := Digits downto 0 do
if Value and (1 shl i)<>0 then
Result:= Result+'1'
else
Result:= Result+'0';
end;
- Klik dua kali pada tombol Convert, dan masukan kode dibawah ini :
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := IntToBin(StrToInt(Edit1.Text),5);
end;
- Tekan tombol F9/Compile
- Selesai, selamat mencoba  |
| Ilustrasi Binner |
0 comments:
Post a Comment