Membuat Desimal ke Biner dengan Delphi

A. Aplikasi Menenghitung Desimal ke Biner

1. Rancangan GUI

2. Daftar Komponen GUI

No.	Nama Komponen	Properties	Value
1	Label1	Caption	Deskripsi : Program Konversi dari Desimal ke biner
		Name	Label1
2	Label2	Caption	Masukkan Angka Decimal
		Name	Label2
3	Label3	Caption	Hasil
		Name	Label3
4	Edit1	Name	Edit1
		Text	""
5	Edit2	Name	Edit2
		Text	""
6	Button1	Caption	Konversi
		Name	Button1

3. Event

3.1.Event pada button1 (button Konversi)

Berfungsi untuk menghitung Konversi dari Edit1.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

function konversi(n:integer):string;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.konversi(n:integer):string;

begin

if(n=1) then

begin

result:= inttostr(1);

end

else

result:= konversi(n div 2) + inttostr(n mod 2)

end;

procedure TForm1.Button1Click(Sender: TObject);

var n:integer;

begin

n:=strtoint(edit1.Text);

edit2.Text:= konversi(n);

end;

end.

4. Review Program

Jika ada yang Kurang jelas bisa langsung ditanyakan. Fast Respawn!

BISA CREATIVE

Membuat Desimal ke Biner dengan Delphi