Konversi Biner Hexadecimal dengan Delphi #170

Jam tangan dipakai di tangan

Andry Fadrie K Mei 4, 2012

0 382 Less than a minute

andrypein.net : Lanjut untuk mode konversi2an nya, sekarang konversi biner hexadecimal dengan delphi.

Kata aing juga, selain untuk menuhin databes, post ini untuk kejar setoran saja, h3h3.

Langsung saja tanpa basa basi seperti ini penampakannya :

konversi biner hexadecimal dengan delphi — yomen

Buatlah fungsi dengan nama bebas lah yang dimana kode ini fungsinya untuk melakukan konversi.

function BinToHex(BinStr: string): string;
const
 BinArray: array[0..15, 0..1] of string =
  (('0000', '0'), ('0001', '1'), ('0010', '2'), ('0011', '3'),
  ('0100', '4'), ('0101', '5'), ('0110', '6'), ('0111', '7'),
  ('1000', '8'), ('1001', '9'), ('1010', 'A'), ('1011', 'B'),
  ('1100', 'C'), ('1101', 'D'), ('1110', 'E'), ('1111', 'F'));
var
 Error: Boolean;
 j: Integer;
 BinPart: string;
begin
 Result:='';
 
 Error:=False;
 for j:=1 to Length(BinStr) do
  if not (BinStr[j] in ['0', '1']) then
   begin
    Error:=True;
    ShowMessage('Bukan Angka Biner');
    Break;
   end;

  if not Error then
  begin
   case Length(BinStr) mod 4 of
    1: BinStr:='000'+BinStr;
    2: BinStr:='00'+BinStr;
    3: BinStr:='0'+BinStr;
   end;

  while Length(BinStr)>0 do
   begin
    BinPart:=Copy(BinStr, Length(BinStr)-3, 4);
    Delete(BinStr, Length(BinStr)-3, 4);
    for j:=1 to 16 do
     if BinPart=BinArray[j-1, 0] then
      Result:=BinArray[j-1, 1]+Result;
   end;
 end;
end;

Lalu tampilkan nilai fungsi nya pada button OnClick dan ketikan ini :

procedure TForm2.Button1Click(Sender: TObject);
begin
 lblhasil.Caption:=BinToHex(edit1.Text);
end;

Untuk edit text nya,beri event OnKeyPress dan masukan kode ini :

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

Selesai tinggal dicoba di Run saja untuk tes.