Konversi Biner Desimal dengan Delphi #169

andrypein.net : Beberapa postingan selanjutnya akan memfokuskan bagaimana konversi bilangan dengan delphi, maklum buat menuhin databes doang lah ya.

Karena lumayan banyak kita mulai dengan konversi biner desimal dengan delphi, beginilah penampakannya.

Formnya disesuaikan saja seperti skrinsut diatas.

Pertama-tama tambahkan uses Math pada bagian Uses nya, lalu tambahkan fungsi untuk konversi nya seperti ini :

function BinToDec(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 cuy', mtInformation, [mbOK], 0);
    Error:=True;
    Break;
   end;
 if Error = True then
   Result:=0
 else
  Result:=Res;
end;

lalu pada edit text nya beri event OnKeyPress lalu masukan kode ini :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case key of
    '2'..'9' : key:=#10;
    'a'..'z','A'..'Z' : key:=#10;
  end;
end;

Kode diatas berguna untuk menghindari salah ketik dan hanya angka 1 dan nol yang diizinkan.

Terakhir pada button OnClick untuk menampilkan hasil ketikan ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.Text <> '' then
    lblhasil.Caption:='hasil konversi = '+IntToStr(BinToDec(edit1.Text))
  else
    showmessage('harap diisi');
end;

Allrite finish, dan untuk aplikasi konversi biner desimal dengan delphi bisa di sedot disini gan.

Download

*AFK