Nama : Rodiah
NIM :
150206008
Prodi :
Manajemen Informatika
Semester :
IV (Empat)
Mata
Kuliah : Pemrograman Visual III
(Delphi)
Dosen Pengampu :
Nofri Wandi Al-Hafiz, S.Kom., M.Kom.
Hari/Tgl :
Senin, 17 April 2017
PROGRAM PENJUALAN RUMAH
Berikut Ketentuan Penjualan Rumah
1. Type rumah RST Rp.150.000.000 Suku bunga 14%
2. Type rumah RS Rp. 90.000.000 Suku bunga 12%
3. Type rumah RSS Rp. 62.000.000 Suku bunga 10%
Jangka Kredit
5
Tahun
10
Tahun
15
Tahun
Fasilitas Tambahan
1. Kitchenset Rp.5.000.000
2. Garasi Rp.4.500.000
3. Pagar Rp.3.500.000
4. Teras Rp.1.500.000
Hitunglah :
1. Biaya tambahan
2. Hutang (Harga Rumah
- DP + Biaya Tambahan)
3. Hutang bunga (Hutang
– Jangka Kredit* Suku Bunga)
4. Total hutang (Hutang + Hutang Bunga)
5. Ansuran bulanan (Total Hutang / Jangka Kredit * 12)
1. MENDESAIN FORM
Sama dengan membuat program Penjualan mobil dan penjualan tiket
travel, kita membutuhkan
sebuah form. Namun
kita juga bias membuatnya bersama proyek yang baru.
Kemudian anda masukan beberapa komponen diantaranya Label sebanyak 11 buah,
Edit sebanyak 8 buah,groupbox sebanyak 3 buah,didalam groupbox1 di isi dengan
radiobutton sebanyak 3 buah,sedangkan di groupbox2 diisi dengan combobox
sebanyak satu buah dan satu buah label,groupbox3 diisi dengan checkbox sebanyak
4 buah.dan button sebanyak buah didalam nya. Anda atur posisinya sehingga
terlihat seperti pada Gambar 3.1 dibawah.
Gambar 3.1. Jendela Desain Form.
2. MENGUBAH PROPERTI
Dengan menggunakan
Object Inspector, ubahlah properti dari komponen yang ada dengan ketentuan
sebagai berikut :
Nama Objek
|
Properti Yang
Diubah
|
Nilai
|
Form1
: TForm1
Label1
: TLabel1
Label2
: TLabel2
Label3
: TLabel3
Label4
: TLabel4
Label5 : TLabel5
Label6 : TLabel6
Label7 : TLabel7
Label8 : TLabel8
Label9 : TLabel9
Label10 : TLabel10
Label11 : TLabel11
Edit1
: TEdit1
Edit2
: TEdit2
Edit3 : TEdit3
Edit4 : TEdit4
Edit5 : TEdit5
Edit6 : TEdit6
Edit7 : TEdit7
Edit8 : TEdit8
Groupbox1: TGroupbox1
Groupbox2: TGroupbox2
Groupbox3: TGroupbox3
Radiobuton1 : TRadiobuton1
Radiobuton2 : TRadiobuton2
Radiobuton3 : TRadiobuton3
Combobox1: TCombobox1
ChekBox1:TChekBox1
ChekBox2:TChekBox2
ChekBox3:TChekBox3
ChekBox4:TChekBox4
Button1 : TButton1
Button2 : TButton2
Button3 : TButton3
Panel1
Panel2
|
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Text
Text
Text
Text
Text
Text
Text
Text
Caption
Caption
Caption
Caption
Caption
Caption
Text
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
|
Aplikasi Penjualan Rumah
Perumahan Kota Indah
Harga Rumah
Suku Bunga
DP
Biaya Tambahan
Hutang
Hutang Bunga
Total Hutang
Angsuran Bulanan
Tahun
%
(Kosongkan)
(Kosongkan)
(Kosongkan)
(Kosongkan)
(Kosongkan)
(Kosongkan)
(Kosongkan)
(Kosongkan)
Type Rumah
Jangka Kredit
Fasilitas Tambahan
RST
RS
RSS
(Kosongkan)
Kitchenset
Garasi
Pagar
Teras
&Hitung
&Bersih
&Keluar
|
Cara
mengisi Combobox1 yaitu pada Object
Insepector
pilih Items seperti pada Gambar.1 dibawah ini, setelah itu klik Tstrings maka akan muncul kotak dialog String List Editor atau terlihat
pada Gambar.2
Gambar.1 Object Insepector
Gambar.2 Mengisi Items - Strings
MEMASUKAN
KODE
Agar desain program
yang telah kita buat bisa berfungsi sebagaimana mestinya, tentunya kita harus
memasukkan kode ke dalam objek tersebut. Berikut ini kode nya :
RadioButton1
procedure
TForm1.RadioButton1Click(Sender: TObject);
begin
Edit1.text:='150000000';
Edit2.text:='14';
end;
RadioButton2
procedure
TForm1.RadioButton2Click(Sender: TObject);
begin
Edit1.text:='90000000';
Edit2.text:='12';
end;
RadioButton3
procedure
TForm1.RadioButton3Click(Sender: TObject);
begin
Edit1.Text:='62000000';
Edit2.Text:='10';
end;
Form1
procedure TForm1.FormCreate(Sender:
TObject);
begin
Edit1.clear;
Edit2.clear;
Edit3.clear;
Edit4.clear;
Edit5.clear;
Edit6.clear;
Edit7.clear;
Edit8.clear;
end;
Button1/Hitung
procedure TForm1.Button1Click(Sender:
TObject);
var a1,a2,a3,a4,ab:integer;
begin
if
checkbox1.checked = true then
a1:=
5000000 else a1:=0;
if
checkbox2.checked = true then
a2:=
4500000 else a2:=0;
if
checkbox3.checked = true then
a3:=
3500000 else a3:=0;
if
checkbox4.checked = true then
a4:=
1500000 else a4:=0;
ab:=a1+a2+a3+a4;
edit4.text:=inttostr(ab);
edit5.text:=inttostr(strtoint(edit1.text)-strtoint(edit3.text)+strtoint(edit4.text));
edit6.Text:=currtostr(strtoint(edit5.Text)*(strtoint(combobox1.Text)*(strtoint(edit2.Text)/100)));
edit7.Text:=inttostr(strtoint(edit5.Text)+(strtoint(edit6.Text)));
edit8.Text:=currtostr(strtoint(edit7.Text)/(strtoint(combobox1.Text)*12));
end;
Button2/Bersih
procedure TForm1.Button2Click(Sender:
TObject);
begin
Edit1.clear;
Edit2.clear;
Edit3.text:='0';
Edit4.clear;
Edit5.clear;
Edit6.clear;
Edit7.clear;
Edit8.clear;
end;
Button3/Keluar
procedure TForm1.Button3Click(Sender:
TObject);
begin
Close;
end;
Sehingga kode lengkapnya akan terlihat seperti dibawah ini :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
ComboBox1: TComboBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
GroupBox3: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Label11: TLabel;
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure
TForm1.RadioButton1Click(Sender: TObject);
begin
Edit1.text:='150000000';
Edit2.text:='14';
end;
procedure
TForm1.RadioButton2Click(Sender: TObject);
begin
Edit1.text:='90000000';
Edit2.text:='12';
end;
procedure TForm1.RadioButton3Click(Sender:
TObject);
begin
Edit1.Text:='62000000';
Edit2.Text:='10';
end;
procedure TForm1.FormCreate(Sender:
TObject);
begin
Edit1.clear;
Edit2.clear;
Edit3.clear;
Edit4.clear;
Edit5.clear;
Edit6.clear;
Edit7.clear;
Edit8.clear;
end;
procedure TForm1.Button1Click(Sender:
TObject);
var a1,a2,a3,a4,ab:integer;
begin
if
checkbox1.checked = true then
a1:=
5000000 else a1:=0;
if
checkbox2.checked = true then
a2:=
4500000 else a2:=0;
if
checkbox3.checked = true then
a3:=
3500000 else a3:=0;
if
checkbox4.checked = true then
a4:=
1500000 else a4:=0;
ab:=a1+a2+a3+a4;
edit4.text:=inttostr(ab);
edit5.text:=inttostr(strtoint(edit1.text)-strtoint(edit3.text)+strtoint(edit4.text));
edit6.Text:=currtostr(strtoint(edit5.Text)*(strtoint(combobox1.Text)*(strtoint(edit2.Text)/100)));
edit7.Text:=inttostr(strtoint(edit5.Text)+(strtoint(edit6.Text)));
edit8.Text:=currtostr(strtoint(edit7.Text)/(strtoint(combobox1.Text)*12));
end;
procedure TForm1.Button2Click(Sender:
TObject);
begin
Edit1.clear;
Edit2.clear;
Edit3.text:='0';
Edit4.clear;
Edit5.clear;
Edit6.clear;
Edit7.clear;
Edit8.clear;
end;
procedure TForm1.Button3Click(Sender:
TObject);
begin
Close;
end;
end.
Hasil setelah program bisa dijalan
terlihat pada gambar dibawah ini.
Tidak ada komentar:
Posting Komentar