Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Konversi Biner Desimal dengan Delphi #169

Jika menemukan kucing menggonggong maka kamu fix gelo

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.

konversi biner desimal dengan delphi
hasil

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

Related Articles

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button