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 Octal dengan Delphi #171

Tidak Berenang akan membuat badanmu tidak basah

andrypein.net : Masih dalam acara konversi biner dan yang terakhir juga, kali ini konversi biner octal dengan delphi.

Skrinsut nya seperti dibawah ini :

konversi biner octal dengan delphi
yoman

Jangan lupa tambahkan uses math terlebih dahulu agar fungsi dibawah ini bisa berjalan.

function BinToOct(BinStr: string): string;
var
  i: Integer;
  OctPart: Real;
  LastPart, OctStr: string;
  Error: Boolean;
begin
  Error:=False;
  OctStr:='';
  case Length(BinStr) mod 3 of
    1: BinStr:='00'+BinStr;
    2: BinStr:='0'+BinStr;
  end;

  while Length(BinStr)>0 do
  begin
    LastPart:=Copy(BinStr, Length(BinStr)-2, 3);
    Delete(BinStr, Length(BinStr)-2, 3);
    OctPart:=0;
    for i:=1 to 3 do
      if not (LastPart[i] in ['0', '1']) then
      begin
        ShowMessage('This is not binary number');
        Error:=True;
        Break;
      end
      else
        OctPart:=OctPart+StrToInt(LastPart[i])*Power(2, 3-i);
    OctStr:=OctStr+FloatToStr(OctPart);
  end;
  Result:='';
  if Error<>True then
  begin
    for i:=1 to Length(OctStr) do
      Result:=Result+OctStr[Length(OctStr)-i+1];
    while (Result[1]='0') and (Length(Result)>1) do
      Delete(Result, 1, 1);
  end;
end;

Pada edit text nya seperti biasa, beri event OnKeyPress dan masukan kode :

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

Terakhir tampilkan hasil konversinya pada event button click.

procedure TForm1.Button1Click(Sender: TObject);
begin
 if edit1.Text = '' then
  showmessage('jangan kosong')
 else
  lblhasil.Caption:='hasil konversi = '+BinToOct(edit1.Text);
end;

Done silahken dicoba dijalankan.

Biasa, apps konversi biner octal dengan delphi nya sudah pasti aing share dengan tanpa ads ads bullshit.

Download

*AFK

 

Related Articles

Tinggalkan Balasan

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

Back to top button