Aplikasi Hitung Bunga Saldo Dengan Delphi 7

Gambar ini adalah hasil dari tutorial dibawah ini

Yoi... ketemu lagi dengan tutorial blog saya.. hehehe.. ok langsung aja.. kali ini saya akan berbagi 

ilmu kepada kawan melalui aplikasi ini ... :D nih liat gambat dibawah ini : 

Silakan Design dulu ya form nya biar rapih dikit .. :D

nah... gambar diatas saya pakai 4 COMPONENT 

1.LABEL

2.EDIT

3.COMBOBOX

4.MEMO

Untuk COMBOBOX silakan kalian cari ITEM (STRING) pada PROPERTIES di OBJECT INSPETOR

setelah itu silakan isi ITEM (STRING) nya dari angka 1 sampai 12 bila sudah...

silakan klik 2 kali pada BUTTON ... dan silakan ketik koding nya seperti dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

saldo:currency;

bunga,i,bulan:integer;

begin

     if TryStrToCurr(Edit1.Text,saldo) and TryStrToint(Edit2.Text,bunga) and TryStrToInt(ComboBox1.Text,bulan) then

     begin

          for i:=1 to bulan do

          begin

               saldo:=saldo+(saldo*(bunga/100)*bulan);

               Memo1.LineS.Add('saldo bulan ke'+inttostr(i)+' = Rp.'+CurrToStrF(saldo,ffnumber,2));

           end;

     end;

end;

nah beres deh aplikasinya.. :D tinggal pencet F9 ... 

Create : Abednego,S.T