Program Koversi Biner Ke Desimal (FUNCTION DAN PROCEDURE)

Ass.Wr.Wb

kembali posting teman-teman...semooga bukan yang terakhir.. heheh
program selanjutnya yang saya posting ini tentang konverter biner ke desimal..
agak rumit ya menurut saya...karena error terus dari kemaren...pusing juga :D

okelah lanjut saja, buat form seperti ini ya kakak ;) ::

untuk edit2.text di bawah label masukkan bilangan biner dan edit1.text di bawah label hasil bilangan desimal..oke ;)

1. pertama, masukan uses Math terlebih dahulu pada script usesnya..

2. kemudian ketik ini :: (di bawahnya Public declarations)
   //disini untuk membuat function BinaryToDecimal
    function BinaryToDecimal (str:string):integer;

3.sesudah itu tulis script functionnya di bawah implementation ya .., berikut scriptnya :)
   function BinaryToDecimal(str:string):integer;
var Len, Res, i:integer; Error:boolean;

 begin
 Error:= False;
 Len:=Length(str);
 Res:=0;
 for i:=1 to Len do
 if (str[i]='0') or (str[i]='1') then
 Res:=Res+round(Power(2,Len-i))*strtoint(str[i])
 else
 begin
 MessageDlg('Bukan Angka Biner', mtInformation, [mbOK], 0);
 Error:=True;
 Break;
 end;

 if Error = True then
 Result:=0
 else
 Result:=Res;
 end;

4. selanjutnya ke Button click, seperti biasanya...klik dua kali pada buttonnya lalu tulis script berikut ini ::
    procedure TForm1.Button1Click(Sender: TObject);
begin
 if edit2.Text <> '' then
 edit1.text:=inttostr(BinaryToDecimal(edit2.text));
 end;

Nih listing program ku ::

sudah beres semua, jangan lupa tekan F9 ya , running deehhh.. ::

mau tau hasil convertnya ?? yuk disimak yang ini ;)

jeng jeng jeeeeengg....bisa di cek deh pake manual...




sekian ya teman-teman, Wass War Wab :*