Konversi Octal Binary dengan Delphi #172

Semua ikan berenang di air

Andry Fadrie K Mei 6, 2012

0 287 Less than a minute

andrypein.net : Konversi octal binary dengan delphi adalah rangkaian series postingan aing yang isinya konversi-konversian.

Lumayan nyampah, nyampah yang bermanfaat sekaligus bisa dijadikan ajang menambah koleksi source code.

And yes ini adalah penampakannya :

konversi octal binary dengan delphi — this

oke lanjut . . . .

form nya seperti ini saja :

lalu ini adalah fungsi untuk konversi nya :

function OctToBin(OctStr: string): string;

  function DecToBinStr(N: Integer): string;
  var
    S: string;
    i: Integer;
  begin
    if N<>0 then
      for i:=1 to SizeOf(N)*8 do
      begin
        if N<0 then s:=S+'1' else 
		  n:=N shl 1; 
		end ; 
		delete(s, 1,pos('1', s)-1); 
		case length(s) mod 3 of 1: +s; 
		  2: end; 
		result:=S;
	end;

 var i: integer; 
  begin for to length(octstr) do 
   begin 
    if not(octstr[i] in ['0','1','2','3','4','5','6','7']) 
     showmessage('bukan bilangan oktal!!!'); 
	 break; 
	 while (result[1] =0 )and(length(result)>1) do
       Delete(Result, 1, 1);
  end;

end;

Sekilas fungsi diatas adalah merupakan fungsi

LMAO Skip kemudian pada event edit OnKeyPress masukan kode ini :

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

Terakhir pada Button OnClick, dengan kode nya :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.Text <> '' then
    lblhasil.Caption:='Hasil Konversi : '+OctToBin(edit1.Text)
  else
    showmessage('isi bro jgn kosong');
end;