Konversi BINER ke DECIMAL

Program sederhana ini hanya untuk mengonversi dari bilangan BINER ke DECIMAL.

Tambahkan fungsi berikut pada bagian implementation :

function BinerToDec(s:string):Integer;<br />var<br />i: Integer;<br />begin<br />Result:=0;<br />for i:=Length(s) downto 1 do<br />if s[i]='1' then<br />Result:=Result+(1 shl (Length(s)-i));<br />end;

Kemudian pada Edit1 even OnKeyPress ketik kode berikut :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);<br />begin<br />if not ((Key = #48) or (Key = #49)) then<br /> begin<br /> // Tahan karakter agar tidak dimunculkan<br /> Key := #0;<br /> end;<br />end;

Kode di atas untuk membatasi inputan yang diketik pada Edit1, yaitu hanya bisa diketik angka 1 dan 0 karena merupakan bilangan BINER.

Berikut potongan source code pada tombol Convert :

procedure TForm1.Button1Click(Sender: TObject);<br />begin<br />if Edit1.Text = '' then<br />begin<br />ShowMessage('Input Text First');<br />Edit1.SetFocus;<br />Exit;<br />end;<br /><br />// Convert BINER to DECIMAL =================<br /><br />Edit2.Text := IntToStr(BinerToDec(Edit1.Text));<br />end;

Source Code Lengkap :

unit Unit1;<br /><br />interface<br /><br />uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, StdCtrls;<br /><br />type<br /> TForm1 = class(TForm)<br /> Edit1: TEdit;<br /> Label1: TLabel;<br /> Label2: TLabel;<br /> Edit2: TEdit;<br /> Button1: TButton;<br /> Button2: TButton;<br /> procedure Edit1KeyPress(Sender: TObject; var Key: Char);<br /> procedure Button1Click(Sender: TObject);<br /> procedure FormCreate(Sender: TObject);<br /> procedure Button2Click(Sender: TObject);<br /> private<br /> { Private declarations }<br /> public<br /> { Public declarations }<br /> end;<br /><br />var<br /> Form1: TForm1;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br />function BinerToDec(s:string):Integer;<br />var<br />i: Integer;<br />begin<br />Result:=0;<br />for i:=Length(s) downto 1 do<br />if s[i]='1' then<br />Result:=Result+(1 shl (Length(s)-i));<br />end;<br /><br />procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);<br />begin<br />if not ((Key = #48) or (Key = #49)) then<br /> begin<br /> // Tahan karakter agar tidak dimunculkan<br /> Key := #0;<br /> end;<br />end;<br /><br />procedure TForm1.Button1Click(Sender: TObject);<br />begin<br />if Edit1.Text = '' then<br />begin<br />ShowMessage('Input Text First');<br />Edit1.SetFocus;<br />Exit;<br />end;<br /><br />// Convert BINER to DECIMAL =================<br /><br />Edit2.Text := IntToStr(BinerToDec(Edit1.Text));<br />end;<br /><br />procedure TForm1.FormCreate(Sender: TObject);<br />begin<br />Edit1.Clear;<br />Edit2.Clear;<br />end;<br /><br />procedure TForm1.Button2Click(Sender: TObject);<br />begin<br />FormCreate(Sender);<br />Edit1.SetFocus;<br />end;<br /><br />end.
Hasil Screenshot Program :

 
Program + Source Code dapat di download di SINI