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

Gajah memiliki belalai baik jantan atau betina

andrypein.net : Ronde selanjutnya tentang apps konversi octal decimal dengan delphi sebelum last post ke hexadecimal nya.

Penampakan hasil akhir seperti ini gan :

konversi octal decimal dengan delphi
dor

Ok lanjut buat form seperti penampakan diatas dan jangan lupa tambahkan uses math nya, lalu masukan skrip fungsi untuk konversi Octal ke desimal.

function OctToDec(OctStr: string): string;
var  DecNum: Real;  
     i: Integer;  
     Error: Boolean;
begin  
 DecNum:=0;  
 Error:=False;  
 for i:=Length(OctStr) downto 1 do  
  begin    
   if not (OctStr[i] in ['0','1','2','3','4','5','6','7']) then    
    begin      
     Error:=True;      
     ShowMessage('Bukan bilangan Oktal');      
     Break;    
    end;    
    DecNum:=DecNum+StrToInt(OctStr[i])*Power(8, Length(OctStr)-i);  
  end;  
 if not Error then    
  Result:=FloatToStr(DecNum)  
 else    
  Result:='';
end;

4. beri event pada button click

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

Terakhir event edit keypress

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin  
 case key of
  'a'..'z','A'..'Z': key:=#10;  
 end;
end;
Done, finish tinggal dicoba di run apps nya dan unduh gan projekan konversi octal decimal dengan delphi nya di aing.

Download

*AFK

Related Articles

Tinggalkan Balasan

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

Back to top button