Tuesday, 10 April 2012

Konversi Desimal Ke Biner dengan Delphi

mumpung masih ada gratisan internet..... manfaatin buat postingan ja.....
kali ini saya akan berbagi hasil praktek saya di kampus yaitu mengkonversi Desimal Ke Biner.
banyak se.... ada yang pake delphi, pascal, dan VB tapi kali ini saya akan kasik yang delphi dulu...

Ok lanjut.....

silahkan kalian desain program seperti ini :




ada 2 edit, 2 label, 1 button, dan 1 listbox (untuk menampilkan prosesnya)....

silahkan klik 2X pada tombol button,dan isi dengan kode seperti ini :


procedure TForm1.Button1Click(Sender: TObject);
var
  bin: String;
  desimal,des,sisa: Integer;
begin
  desimal:=StrToInt(eddesimal.Text);
  des:=desimal;
  ListBox1.Items.Add('          '+IntToStr(des));
  bin:='';
    repeat
      if (desimal and 1) = 1 then
        bin:='1'+bin
      else
        bin:='0'+bin;
        sisa:=desimal mod 2;
        ListBox1.Items.Add('  2 --------- '+IntToStr(sisa));
        desimal:= desimal shr 1;
        ListBox1.Items.Add('          '+IntToStr(desimal));

    until desimal= 0 or 1;
        edbiner.Text:='1'+bin;
        desimal:=0;
      repeat
        desimal:=desimal shl 1;
            if bin[1]='0' then
                desimal:=desimal or 0
            else
                desimal:=desimal or 1;
                delete(bin,1,1);
    until bin = '';
      eddesimal.SetFocus;
  end;


jangan lupa ganti propertise name pada masing2 komponen sesuai dengan kode di atas.
atau sesuaikan dengan punya anda.

terimakasih......
jangan lupa komentarnya !!!.....

3 comments:

Anonymous said...

untuk konversi bilangan basis lain seperti oktal dan hexa-desimal ada ngga sob?

Anonymous said...

bagaimana kalo yang di konfersi ke biner itu berupa string, kira kira bisa gak sobbbbbb.....????

mungkin stringnya dikonfersi dulu ke bil asc baru diubah menjadi biner...
begitu ya kira2 sobbbbb...

bagaiamana pendapat kang rahman..????
:)

UbaidRahman said...

>> insya Allah saya sudah pernah buat, nanti tak liat lagi Om.

>> diskusinya via fb saja om.hihihi..
https://www.facebook.com/ubaidrahman.partii

UbaidRahman