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 MOBIL
Berikut Ketentuan Penjualan Rumah
1. Type rumah Avanza Rp.157.000.000
Suku
bunga 0,5%
2. Type rumah Innova Rp. 90.000.000
Suku
bunga 0,6%
3. Type rumah Xenia Rp. 62.000.000 Suku bunga 0,5%
Fasilitas Tambahan
1. Audio Rp.5000.000
2. LCD Rp.4.500.000
3. Speaker Rp.3.500.000
4. Kaca Film Rp.1.500.000
Hitunglah :
Total vasilitas yang digunakan dan total harga dari setiap mobil yang dibeli.
Langkah Membuat Proyek
1. MENDESAIN FORM
Dari contoh persoalan diatas buat lah
program Penjualan mobil, Kamu membutuhkan
sebuah form. Namun
Kamu juga
bisa membuatnya bersama proyek yang baru. Kemudian Kamu
masukkan
beberapa komponen diantaranya:
Label sebanyak lima buah
Edit sebanyak empat buah
Groupbox
sebanyak dua buah, didalam groupbox1 di isi dengan radiobutton sebanyak tiga buah,
Sedangkan di
groupbox2 diisi dengan checkbox sebanyak empat buah
dan Button sebanyak tiga buah
Kemudian susunlah komponen desain seperti contoh dibawah
ini:
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
Edit1
: TEdit1
Edit2
: TEdit2
Edit3 : TEdit3
Edit4 : TEdit4
Groupbox1: TGroupbox1
Groupbox2: TGroupbox2
Radiobuton1 : TRadiobuton1
Radiobuton2 : TRadiobuton2
Radiobuton3 : TRadiobuton3
ChekBox1:TChekBox1
ChekBox2:TChekBox2
ChekBox3:TChekBox3
ChekBox4:TChekBox4
Button1 : TButton1
Button2 : TButton2
Button3 : TButton3
Panel1
Panel2
|
Caption
Caption
Caption
Caption
Caption
Caption
Text
Text
Text
Text
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
|
Program Penjualan Mobil
WANDI AUTO CAR
Harga
Diskon
Total Vasilitas
Total Harga
(Kosongkan)
(Kosongkan)
(Kosongkan)
(Kosongkan
Type Mobil
Vasilitas
Avanza
Innova
Xenia
Audio
LCD
Speaker
Kaca Film
&Hitung
&Clear
&Exit
|
Setelah susunan desain form
terbentuk, selanjutnya merubah isi property desain tersebut, sehingga tampak
desain seperti dibawah ini:
3. 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 :
1.
RadioButton1
procedure
TForm1.RadioButton1Click(Sender: TObject);
begin
edit1.Text:=radiobutton1.Caption;
edit1.Text:='157000000';
edit2.Text:= currtostr
(strtoint(edit1.Text) * 0.05);
end;
2.
RadioButton2
procedure
TForm1.RadioButton2Click(Sender: TObject);
begin
edit1.Text:=radiobutton1.Caption;
edit1.Text:='300000000';
edit2.Text:= currtostr
(strtoint(edit1.Text) * 0.06);
end;
3.
RadioButton3
procedure
TForm1.RadioButton3Click(Sender: TObject);
begin
edit1.Text:=radiobutton1.Caption;
edit1.Text:='145000000';
edit2.Text:= currtostr
(strtoint(edit1.Text) * 0.05);
end;
4.
CheckBox1
procedure
TForm1.CheckBox1Click(Sender: TObject);
var
a, b, c, d :integer;
tb, dis :currency;
begin
if
checkbox1.Checked = true then
a:= 3000000 else a:=0;
if
checkbox2.Checked = true then
b:= 1000000 else b:=0;
if
checkbox3.Checked = true then
c:= 1000000 else c:=0;
if
checkbox4.Checked = true then
d:=
1500000 else d:=0;
tb
:=a+b+c+d;
edit3.Text:=
currtostr(tb);
end;
5.
CheckBox2
procedure
TForm1.CheckBox2Click(Sender: TObject);
var
a, b, c, d :integer;
tb, dis :currency;
begin
if
checkbox1.Checked = true then
a:= 3000000 else a:=0;
if
checkbox2.Checked = true then
b:= 1000000 else b:=0;
if
checkbox3.Checked = true then
c:= 1000000 else c:=0;
if
checkbox4.Checked = true then
d:=
1500000 else d:=0;
tb
:=a+b+c+d;
edit3.Text:=
currtostr(tb);
end;
6.
CheckBox3
procedure
TForm1.CheckBox3Click(Sender: TObject);
var
a, b, c, d :integer;
tb, dis :currency;
begin
if
checkbox1.Checked = true then
a:= 3000000 else a:=0;
if
checkbox2.Checked = true then
b:= 1000000 else b:=0;
if
checkbox3.Checked = true then
c:= 1000000 else c:=0;
if
checkbox4.Checked = true then
d:=
1500000 else d:=0;
tb
:=a+b+c+d;
edit3.Text:=
currtostr(tb);
end;
7.
CheckBox4
procedure
TForm1.CheckBox4Click(Sender: TObject);
var
a, b, c, d :integer;
tb, dis :currency;
begin
if
checkbox1.Checked = true then
a:= 3000000 else a:=0;
if
checkbox2.Checked = true then
b:= 1000000 else b:=0;
if
checkbox3.Checked = true then
c:= 1000000 else c:=0;
if
checkbox4.Checked = true then
d:=
1500000 else d:=0;
tb
:=a+b+c+d;
edit3.Text:=
currtostr(tb);
end;
8.
Button1/Hitung
procedure
TForm1.Button1Click(Sender: TObject);
var
a1, a2, a3,a4, hr, th:integer;
fs, harga:integer;
total, dis:currency;
begin
if
checkbox1.Checked=true then
a1:=
3000000 else a1:=0;
if
checkbox2.Checked=true then
a2:=
1000000 else a2:=0;
if
checkbox3.Checked=true then
a3:=
1000000 else a3:=0;
if
checkbox4.Checked=true then
a4:=
1500000 else a4:=0;
fs:=a1+a2+a3+a4;
edit3.Text:=inttostr(fs);
edit4.Text:=inttostr(strtoint(edit1.Text)-
strtoint(edit2.Text)+ strtoint(edit3.Text));
end;
9.
Button2/Bersih
procedure
TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;
10.
Button3
procedure
TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.
Ada
10 komponen desain yang menggunakan coding. Sehingga kode lengkapnya akan terlihat
seperti dibawah ini :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
GroupBox2: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure
TForm1.RadioButton1Click(Sender: TObject);
begin
edit1.Text:=radiobutton1.Caption;
edit1.Text:='157000000';
edit2.Text:= currtostr (strtoint(edit1.Text) * 0.05);
end;
procedure
TForm1.RadioButton2Click(Sender: TObject);
begin
edit1.Text:=radiobutton1.Caption;
edit1.Text:='300000000';
edit2.Text:= currtostr (strtoint(edit1.Text) * 0.06);
end;
procedure
TForm1.RadioButton3Click(Sender: TObject);
begin
edit1.Text:=radiobutton1.Caption;
edit1.Text:='145000000';
edit2.Text:= currtostr (strtoint(edit1.Text) * 0.05);
end;
procedure TForm1.CheckBox1Click(Sender:
TObject);
var a, b, c, d :integer;
tb, dis :currency;
begin
if checkbox1.Checked = true then
a:= 3000000 else a:=0;
if checkbox2.Checked = true then
b:= 1000000 else b:=0;
if checkbox3.Checked = true then
c:= 1000000 else c:=0;
if checkbox4.Checked = true then
d:= 1500000 else d:=0;
tb :=a+b+c+d;
edit3.Text:= currtostr(tb);
end;
procedure TForm1.CheckBox2Click(Sender:
TObject);
var a, b, c, d :integer;
tb, dis :currency;
begin
if checkbox1.Checked = true then
a:= 3000000 else a:=0;
if checkbox2.Checked = true then
b:= 1000000 else b:=0;
if checkbox3.Checked = true then
c:= 1000000 else c:=0;
if checkbox4.Checked = true then
d:= 1500000 else d:=0;
tb :=a+b+c+d;
edit3.Text:= currtostr(tb);
end;
procedure TForm1.CheckBox3Click(Sender:
TObject);
var a, b, c, d :integer;
tb, dis :currency;
begin
if checkbox1.Checked = true then
a:= 3000000 else a:=0;
if checkbox2.Checked = true then
b:= 1000000 else b:=0;
if checkbox3.Checked = true then
c:= 1000000 else c:=0;
if checkbox4.Checked = true then
d:= 1500000 else d:=0;
tb :=a+b+c+d;
edit3.Text:= currtostr(tb);
end;
procedure TForm1.CheckBox4Click(Sender:
TObject);
var a, b, c, d :integer;
tb, dis :currency;
begin
if checkbox1.Checked = true then
a:= 3000000 else a:=0;
if checkbox2.Checked = true then
b:= 1000000 else b:=0;
if checkbox3.Checked = true then
c:= 1000000 else c:=0;
if checkbox4.Checked = true then
d:= 1500000 else d:=0;
tb :=a+b+c+d;
edit3.Text:= currtostr(tb);
end;
procedure TForm1.Button1Click(Sender:
TObject);
var a1, a2, a3,a4, hr, th:integer;
fs, harga:integer;
total, dis:currency;
begin
if checkbox1.Checked=true then
a1:= 3000000 else a1:=0;
if checkbox2.Checked=true then
a2:= 1000000 else a2:=0;
if checkbox3.Checked=true then
a3:= 1000000 else a3:=0;
if checkbox4.Checked=true then
a4:= 1500000 else a4:=0;
fs:=a1+a2+a3+a4;
edit3.Text:=inttostr(fs);
edit4.Text:=inttostr(strtoint(edit1.Text)- strtoint(edit2.Text)+
strtoint(edit3.Text));
end;
procedure TForm1.Button2Click(Sender:
TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;
procedure TForm1.Button3Click(Sender:
TObject);
begin
close;
end;
end.
Untuk menjalan kan program ini pertama kita
klik/pilih jenis mobil misal nya Avanza kemudian fasilitas LCD, secara otomatis harga, diskon dan total
vasilitas akan terisi, kemudian
baru klik Hitung
untuk menghitung total harga. Sedang
kan tombol Clear dia akan menghapus
data yang telah diisi sebelum nya / mau mengkosongkan seluruh komponeng edit, jika ingin keluar klik tombol Exit.
Berikut tampilan hasil desain proyek yang telah Kamu
buat:
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
Edit1
: TEdit1
Edit2
: TEdit2
Edit3 : TEdit3
Edit4 : TEdit4
Groupbox1: TGroupbox1
Groupbox2: TGroupbox2
Radiobuton1 : TRadiobuton1
Radiobuton2 : TRadiobuton2
Radiobuton3 : TRadiobuton3
ChekBox1:TChekBox1
ChekBox2:TChekBox2
ChekBox3:TChekBox3
ChekBox4:TChekBox4
Button1 : TButton1
Button2 : TButton2
Button3 : TButton3
Panel1
Panel2
|
Caption
Caption
Caption
Caption
Caption
Caption
Text
Text
Text
Text
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
|
Program Penjualan Mobil
WANDI AUTO CAR
Harga
Diskon
Total Vasilitas
Total Harga
(Kosongkan)
(Kosongkan)
(Kosongkan)
(Kosongkan
Type Mobil
Vasilitas
Avanza
Innova
Xenia
Audio
LCD
Speaker
Kaca Film
&Hitung
&Clear
&Exit
|
Setelah susunan desain form
terbentuk, selanjutnya merubah isi property desain tersebut, sehingga tampak
desain seperti dibawah ini:
3. 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 :
1.
RadioButton1
procedure
TForm1.RadioButton1Click(Sender: TObject);
begin
edit1.Text:=radiobutton1.Caption;
edit1.Text:='157000000';
edit2.Text:= currtostr
(strtoint(edit1.Text) * 0.05);
end;
2.
RadioButton2
procedure
TForm1.RadioButton2Click(Sender: TObject);
begin
edit1.Text:=radiobutton1.Caption;
edit1.Text:='300000000';
edit2.Text:= currtostr
(strtoint(edit1.Text) * 0.06);
end;
3.
RadioButton3
procedure
TForm1.RadioButton3Click(Sender: TObject);
begin
edit1.Text:=radiobutton1.Caption;
edit1.Text:='145000000';
edit2.Text:= currtostr
(strtoint(edit1.Text) * 0.05);
end;
4.
CheckBox1
procedure
TForm1.CheckBox1Click(Sender: TObject);
var
a, b, c, d :integer;
tb, dis :currency;
begin
if
checkbox1.Checked = true then
a:= 3000000 else a:=0;
if
checkbox2.Checked = true then
b:= 1000000 else b:=0;
if
checkbox3.Checked = true then
c:= 1000000 else c:=0;
if
checkbox4.Checked = true then
d:=
1500000 else d:=0;
tb
:=a+b+c+d;
edit3.Text:=
currtostr(tb);
end;
5.
CheckBox2
procedure
TForm1.CheckBox2Click(Sender: TObject);
var
a, b, c, d :integer;
tb, dis :currency;
begin
if
checkbox1.Checked = true then
a:= 3000000 else a:=0;
if
checkbox2.Checked = true then
b:= 1000000 else b:=0;
if
checkbox3.Checked = true then
c:= 1000000 else c:=0;
if
checkbox4.Checked = true then
d:=
1500000 else d:=0;
tb
:=a+b+c+d;
edit3.Text:=
currtostr(tb);
end;
6.
CheckBox3
procedure
TForm1.CheckBox3Click(Sender: TObject);
var
a, b, c, d :integer;
tb, dis :currency;
begin
if
checkbox1.Checked = true then
a:= 3000000 else a:=0;
if
checkbox2.Checked = true then
b:= 1000000 else b:=0;
if
checkbox3.Checked = true then
c:= 1000000 else c:=0;
if
checkbox4.Checked = true then
d:=
1500000 else d:=0;
tb
:=a+b+c+d;
edit3.Text:=
currtostr(tb);
end;
7.
CheckBox4
procedure
TForm1.CheckBox4Click(Sender: TObject);
var
a, b, c, d :integer;
tb, dis :currency;
begin
if
checkbox1.Checked = true then
a:= 3000000 else a:=0;
if
checkbox2.Checked = true then
b:= 1000000 else b:=0;
if
checkbox3.Checked = true then
c:= 1000000 else c:=0;
if
checkbox4.Checked = true then
d:=
1500000 else d:=0;
tb
:=a+b+c+d;
edit3.Text:=
currtostr(tb);
end;
8.
Button1/Hitung
procedure
TForm1.Button1Click(Sender: TObject);
var
a1, a2, a3,a4, hr, th:integer;
fs, harga:integer;
total, dis:currency;
begin
if
checkbox1.Checked=true then
a1:=
3000000 else a1:=0;
if
checkbox2.Checked=true then
a2:=
1000000 else a2:=0;
if
checkbox3.Checked=true then
a3:=
1000000 else a3:=0;
if
checkbox4.Checked=true then
a4:=
1500000 else a4:=0;
fs:=a1+a2+a3+a4;
edit3.Text:=inttostr(fs);
edit4.Text:=inttostr(strtoint(edit1.Text)-
strtoint(edit2.Text)+ strtoint(edit3.Text));
end;
9.
Button2/Bersih
procedure
TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;
10.
Button3
procedure
TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.
Ada
10 komponen desain yang menggunakan coding. Sehingga kode lengkapnya akan terlihat
seperti dibawah ini :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
GroupBox2: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure
TForm1.RadioButton1Click(Sender: TObject);
begin
edit1.Text:=radiobutton1.Caption;
edit1.Text:='157000000';
edit2.Text:= currtostr (strtoint(edit1.Text) * 0.05);
end;
procedure
TForm1.RadioButton2Click(Sender: TObject);
begin
edit1.Text:=radiobutton1.Caption;
edit1.Text:='300000000';
edit2.Text:= currtostr (strtoint(edit1.Text) * 0.06);
end;
procedure
TForm1.RadioButton3Click(Sender: TObject);
begin
edit1.Text:=radiobutton1.Caption;
edit1.Text:='145000000';
edit2.Text:= currtostr (strtoint(edit1.Text) * 0.05);
end;
procedure TForm1.CheckBox1Click(Sender:
TObject);
var a, b, c, d :integer;
tb, dis :currency;
begin
if checkbox1.Checked = true then
a:= 3000000 else a:=0;
if checkbox2.Checked = true then
b:= 1000000 else b:=0;
if checkbox3.Checked = true then
c:= 1000000 else c:=0;
if checkbox4.Checked = true then
d:= 1500000 else d:=0;
tb :=a+b+c+d;
edit3.Text:= currtostr(tb);
end;
procedure TForm1.CheckBox2Click(Sender:
TObject);
var a, b, c, d :integer;
tb, dis :currency;
begin
if checkbox1.Checked = true then
a:= 3000000 else a:=0;
if checkbox2.Checked = true then
b:= 1000000 else b:=0;
if checkbox3.Checked = true then
c:= 1000000 else c:=0;
if checkbox4.Checked = true then
d:= 1500000 else d:=0;
tb :=a+b+c+d;
edit3.Text:= currtostr(tb);
end;
procedure TForm1.CheckBox3Click(Sender:
TObject);
var a, b, c, d :integer;
tb, dis :currency;
begin
if checkbox1.Checked = true then
a:= 3000000 else a:=0;
if checkbox2.Checked = true then
b:= 1000000 else b:=0;
if checkbox3.Checked = true then
c:= 1000000 else c:=0;
if checkbox4.Checked = true then
d:= 1500000 else d:=0;
tb :=a+b+c+d;
edit3.Text:= currtostr(tb);
end;
procedure TForm1.CheckBox4Click(Sender:
TObject);
var a, b, c, d :integer;
tb, dis :currency;
begin
if checkbox1.Checked = true then
a:= 3000000 else a:=0;
if checkbox2.Checked = true then
b:= 1000000 else b:=0;
if checkbox3.Checked = true then
c:= 1000000 else c:=0;
if checkbox4.Checked = true then
d:= 1500000 else d:=0;
tb :=a+b+c+d;
edit3.Text:= currtostr(tb);
end;
procedure TForm1.Button1Click(Sender:
TObject);
var a1, a2, a3,a4, hr, th:integer;
fs, harga:integer;
total, dis:currency;
begin
if checkbox1.Checked=true then
a1:= 3000000 else a1:=0;
if checkbox2.Checked=true then
a2:= 1000000 else a2:=0;
if checkbox3.Checked=true then
a3:= 1000000 else a3:=0;
if checkbox4.Checked=true then
a4:= 1500000 else a4:=0;
fs:=a1+a2+a3+a4;
edit3.Text:=inttostr(fs);
edit4.Text:=inttostr(strtoint(edit1.Text)- strtoint(edit2.Text)+
strtoint(edit3.Text));
end;
procedure TForm1.Button2Click(Sender:
TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;
procedure TForm1.Button3Click(Sender:
TObject);
begin
close;
end;
end.
Untuk menjalan kan program ini pertama kita
klik/pilih jenis mobil misal nya Avanza kemudian fasilitas LCD, secara otomatis harga, diskon dan total
vasilitas akan terisi, kemudian
baru klik Hitung
untuk menghitung total harga. Sedang
kan tombol Clear dia akan menghapus
data yang telah diisi sebelum nya / mau mengkosongkan seluruh komponeng edit, jika ingin keluar klik tombol Exit.
Berikut tampilan hasil desain proyek yang telah Kamu
buat:
Tidak ada komentar:
Posting Komentar