Membuat Program Penjualan Rumah Diprogram Delphi7

A’ASALAMU’ALAIKUM WR. WB.

          Baiklah sob dalam pertemuan kali ini saya akn membagikan bagaiman cara membuat program penjualan rumah di delphi7,,,,,

LANGKAHNYA ADALAH:

  1.Rancang lah form seperti gambar dibawah ini :

KETERANGAN PEMBUATAN FORMNYA

KODE PROGRAMNYA

1.KLIK2 KALI PADA ( RST . RS . RSS )DAN MASUKAN KODE PROGRAM NYA

(RST)

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

edit1.Text := '150000000';

edit2.Text := '14';

end;

(RS)

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

edit1.Text := '90000000';

edit2.Text := '12';

end;

(RSS)

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

EDIT1.Text := '62000000';

EDIT2.Text := '10'

end;

2.KLIK2 KALI PADA ( HITUNG )DAN TULIS PROGRAMNYA

procedure TForm1.Button2Click(Sender: TObject);

var f1,f2,f3,f4,ft:integer;

begin

if checkbox1.Checked = true then

f1 := 5000000 else f1 :=0;

if checkbox2.Checked = true then

f2 := 4500000 else f2 :=0;

if checkbox3.Checked = true then

f3 := 3500000 else f3 :=0;

if checkbox4.Checked = true then

f4 := 1500000 else f4 :=0;

//menhitung fasilitas tambahan

ft:=f1+f2+f3+f4;

edit4.Text := inttostr(ft);

//menhitung hutang

edit5.Text := inttostr(strtoint(edit1.Text) - strtoint(edit3.Text)+ strtoint(edit4.Text));

//menhitung bunga

edit6.Text :=currtostr(strtocurr(edit5.Text)*strtoint(combobox1.Text)*(strtocurr(edit2.Text)/100));

//menhitung total hutang

edit7.Text := inttostr(strtoint(edit5.Text)+strtoint(edit6.Text));

//menhitung anggsuran

edit8.Text:= currtostr(strtocurr(edit7.Text)/(strtocurr(combobox1.Text)*12));

end;

3.KLIK2 KALI PADA ( CLEAR/HAPUS)DAN  TULIS PROGRAMNYA.

procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit4.Clear;

edit5.Clear;

edit6.Clear;

edit7.Clear;

edit8.Clear;

combobox1.Text :='pilih';

end;

4.KLIK2 KALI PADA ( CLOSE/KELUAR )DAN  TULIS PROGRAMNYA.

procedure TForm1.Button3Click(Sender: TObject);

begin

 close

end;

Posted by Unknown

Tweet