CONTOH PROGRAM SEDERHANA PENJUALAN MOBIL
Pada kesmpatan kali ini ane akan berbagi
cara membuat program Delphi tentang penjualan mobil yang mana postingan ini terkait dengan tugas
kuliah yang ane kerjakan.hehe
ok sob langsung saja kita buat dengan
mengikuti langkah-langkah dibawah ini.
1.
Masukkan control box sbb :
a·
6 label
b·
4 Edit
c·
2 groupBox
d·
3 RadioButton
e·
4 CheckBox
f·
3 button
2. Atur seperti pada gambar form dibawah..
3.
Dengan atribut sebagai berikut
:
Kontrol
|
Caption
|
Name
|
Label (di sesuaikan)
|
||
Edit1
|
-
|
Edit1
|
Edit2
|
-
|
Edit2
|
Edit4
|
-
|
Edit4
|
Edit5
|
-
|
Edit5
|
Button1
|
Hapus
|
Button1
|
Button2
|
Hitung
|
Button2
|
Button3
|
Keluar
|
Button3
|
4.
Klik 2x pada form dan tuliskan
kode berikut:
procedure
TForm1.FormCreate(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit4.Clear;
edit5.Clear;
end;
5.
Masukkan kode script pada
radioButton1
procedure
TForm1.RadioButton1Click(Sender: TObject);
begin
edit1.Text:= '157000000';
Edit2.Text:='5';
end;
6.
Masukan kode scrip pada
radioButton2
procedure
TForm1.RadioButton2Click(Sender: TObject);
begin
edit1.Text:= '135000000';
Edit2.Text:='25';
end;
7.
Kemudian pada radioButton3
masukkan kode berikut
procedure
TForm1.RadioButton3Click(Sender: TObject);
begin
edit1.Text:= '198000000';
Edit2.Text:='10';
end;
8.
Klik 2x pada button Hitung lalu tuliskan script sebagai
berikut :
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 := 2000000 else f2 := 0;
if checkbox3.checked = true then
f3 := 750000 else f3 := 0;
if checkbox4.checked = true then
f4 := 500000 else f4 := 0;
ft := f1+f2+f3+f4;
edit4.Text:= inttostr(ft);
edit5.Text:=currtostr(strtocurr(edit1.Text)+strtocurr(edit4.Text)-strtocurr(edit1.Text)*strtocurr(edit2.Text)/100);
end;
9.
Di bagian Button Hapus tuliskan script sebagai berikut :
procedure
TForm1.Button1Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit4.Clear;
edit5.Clear;
end;
10.
Untuk button keluar sbb :
procedure
TForm1.Button3Click(Sender: TObject);
begin
CLOSE
end;
11.
Jalankan program atau dengan
menekan tombol F9 pada keyboard.
Rincian dari program diatas adalah :
a)
Harga mobil :
·
Avanza harga Rp 157.000000
diskon 5%
·
Inova harga Rp 198.000.000
diskon 10%
·
Xenia harga Rp 135.000.000
diskon 25%
b)
Jika menambahkan fasilitas maka dikenakan
biaya :
·
Audio Rp 5.000.000
·
LCD Rp 2.000.000
·
Speaker Rp 750.000
·
Kaca film Rp 500.000
Demikian
sekilas tentang artikel ini semoga dapat membantu sobat semua..
